إضافة سجل باستخدام DAO

[محمد طاهر عرفه]

الكود :

Dim mydb As database, mytable As Recordset

Set mydb = CurrentDb

Set mytable = mydb.OpenRecordset("table1", DB_OPEN_TABLE)


mytable.AddNew

      mytable!Name = [Forms]![UnboundForm]![Name]

      mytable!Salary = [Forms]![UnboundForm]![Salary]

      mytable!Birthday = [Forms]![UnboundForm]![Birthday]

mytable.Update


mytable.Close

Set mydb = Nothing

مرفق المثال

UnboundDAO.zip

[امير عاطف]

ما الحكمة من استخدام

Set mydb = Nothing

[محمد طاهر عرفه]

الحكمة منها هو الغاء ارتباط الكائن المتغير mydb بالكائن الاصلي database

أي أننا أنشأنا ارتباط فى البداية

Dim mydb As database

ثم قمنا بالاجراء

ثم ألغينا الارتباط فى النهاية

[امير عاطف]

حول اضافة سجلات الى جدول باستخدام كود الVBA

[thaeerali]

مشكورين