هل يمكن صنع وحدة نمطية شاملة للأوامر الشائعة

Option Compare Database
Option Explicit
 
'فتح نموذج
'form هو وسيط يشير إلى اسم النموذج المراد فتحه
Public Sub run_open(Form As String)
On Error GoTo Err_run_open
        Dim stLinkCriteria As String
        DoCmd.OpenForm Form, , , stLinkCriteria
Exit_run_open:
        Exit Sub
Err_run_open:
        MsgBox Err.description
        Resume Exit_run_open
End Sub
 
'إغلاق نموذج
Public Sub run_close()
On Error GoTo Err_run_close
DoCmd.close
Exit_run_close:
        Exit Sub
Err_run_close:
        MsgBox Err.description
        Resume Exit_run_close
End Sub
 
'تحديث بيانات نموذج
Public Sub run_update()
On Error GoTo Err_run_update
 
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_run_update:
        Exit Sub
Err_run_update:
        MsgBox Err.description
        Resume Exit_run_update
End Sub
 
'السجل الأول
Public Sub run_first()
On Error GoTo Err_run_first
 
        DoCmd.GoToRecord , , acFirst
Exit_run_first:
        Exit Sub
Err_run_first:
        Beep
        Resume Exit_run_first
End Sub
 
'السجل التالي
Public Sub run_next()
On Error GoTo Err_run_next
 
        DoCmd.GoToRecord , , acNext
Exit_run_next:
        Exit Sub
Err_run_next:
Beep
Resume Exit_run_next
End Sub
 
'السجل السابق
Public Sub run_previous()
On Error GoTo Err_run_Previous
 
        DoCmd.GoToRecord , , acPrevious
Exit_run_Previous:
        Exit Sub
Err_run_Previous:
Beep
Resume Exit_run_Previous
End Sub
 
'السجل الأخير
Public Sub run_last()
On Error GoTo Err_run_last
 
        DoCmd.GoToRecord , , acLast
Exit_run_last:
        Exit Sub
Err_run_last:
        Beep
        Resume Exit_run_last
End Sub
 
'إضافة سجل
'start هو وسيط يشير إلى عنصر التحكم المراد الانتقال إليه عند بداية إدخال السجل
Public Sub run_add(start As String)
On Error GoTo Err_run_add
 
        DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl start
Exit_run_add:
        Exit Sub
Err_run_add:
        MsgBox Err.description
        Resume Exit_run_add
End Sub
 
'حذف سجل
Public Sub run_del()
On Error GoTo Err_run_del
 
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_run_del:
        Exit Sub
Err_run_del:
        MsgBox Err.description
        Resume Exit_run_del
End Sub
 
'تراجع
Public Sub run_undo()
On Error GoTo Err_run_undo
 
        DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Exit_run_undo:
        Exit Sub
Err_run_undo:
Beep
        Resume Exit_run_undo
 
End Sub
 
'معاينة تقرير
Public Sub open_report(report As String)
On Error GoTo Err_open_report
        DoCmd.openreport report, acPreview
Exit_open_report:
        Exit Sub
Err_open_report:
        MsgBox Err.description
        Resume Exit_open_report
End Sub
 
'طباعة تقرير
Public Sub print_report(report As String)
On Error GoTo Err_print_report
        DoCmd.openreport report, acNormal
Exit_print_report:
        Exit Sub
Err_print_report:
        MsgBox Err.description
        Resume Exit_print_report
End Sub