إدخال بيان جديد
كود
If Me.NewRecord Then
Me.AllowEdits = True
Else
Me.AllowEdits = False
End If
استيراد جدول من فلوبي
كود
MsgBox "تأكد... من أن القرص المرن المنسوخة عليه البيانات موجود في محرك الأقراص", vbOKOnly, "برنامج تنظيم المعاملات"
DoCmd.TransferDatabase acImport, "Microsoft Access", "a:\backup.mdb", acTable, "المعاملات", "المعاملات", False
DoCmd.SetWarnings False
DoCmd.OpenQuery "mo", acNormal, acEdit
DoCmd.DeleteObject acTable, "المعاملات1"
DoCmd.TransferDatabase acImport, "Microsoft Access", "a:\backup.mdb", acTable, "جهة", "جهة", False
DoCmd.SetWarnings False
DoCmd.OpenQuery "je", acNormal, acEdit
DoCmd.DeleteObject acTable, "جهة1"
DoCmd.TransferDatabase acImport, "Microsoft Access", "a:\backup.mdb", acTable, "ملف", "ملف", False
DoCmd.SetWarnings False
DoCmd.OpenQuery "ma", acNormal, acEdit
DoCmd.DeleteObject acTable, "ملف1"
DoCmd.TransferDatabase acImport, "Microsoft Access", "a:\backup.mdb", acTable, "نوع", "نوع", False
DoCmd.SetWarnings False
DoCmd.OpenQuery "nw", acNormal, acEdit
DoCmd.DeleteObject acTable, "نوع1"
MsgBox "لقد تمت عملية استرجاع البيانات بنجاح", vbOKOnly, "برنامج تنظيم المعاملات"
ملحوظة قم بتغيير ما يلزم تغييره