[mosamosa]

هناك طريقة باستخدام المؤشرات وفتح قاعدة البيانات والجدول لحفظ البيانات وهي طريقة ممتازة ولا يوجد بها اخطاء
مثال على ذلك
Set db = OpenDatabase("c:\mosa\db1333.mdb")
Set tb = db.OpenRecordset("emplye")
Set tb1 = db.OpenRecordset("emplye")
tb1.MoveFirst
tb1.Index = "no_emp"
tb1.Seek "=", Text1
If Not tb1.NoMatch Then
MsgBox "åÐÇ ÇáÑÞã ãæÌæÏ ãÓÈÞÇð"
Text1.SetFocus
End If
tb1.AddNew
tb1.Fields(0) = Text1
tb1.Fields(1) = Text2
tb1.Fields(2) = Text3
tb1.Fields(3) = Text4
tb1.Fields(4) = Combo1.ListIndex
tb1.Fields(5) = Text5
tb1.Fields(6) = Text6
tb1.Fields(7) = Combo2.ListIndex
tb1.Fields(8) = Combo3.ListIndex

tb1.Update
'Call clean
MsgBox "ÊãÊ ÚãáíÉ ÇáÍÝÙ ÈäÌÇÍ"