برمجة مايكروسوفت أكسس بواسطة VBA: الأتمتة المتقدمة، أحداث النماذج، ومُولد أكواد DAO/ADO 2026

برمجة أكسس هي برمجة موجهة بالأحداث (Event-Driven Programming). لكي تكتب كوداً احترافياً وتمنع تضارب الشاشات، يجب أن تفهم الترتيب الزمني الصارم للأحداث:

تعتبر مكتبة DAO الخيار الأسرع والأنسب لمحرك ACE في أكسس. فيما يلي كود احترافي لفتح سجلات وإضافة حركة جديدة مع التحكم في الأخطاء:

Public Sub AddInventoryLog(ByVal itemID As Long, ByVal qty As Double, ByVal transType As String)
    On Error GoTo ErrorHandler
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("tbl_Stock_Transactions", dbOpenDynaset, dbAppendOnly)
    
    rs.AddNew
    rs!TransDate = Now()
    rs!ItemID = itemID
    rs!Quantity = qty
    rs!TransType = transType
    rs.Update
    
CleanExit:
    On Error Resume Next
    If Not rs Is Nothing Then rs.Close: Set rs = Nothing
    Set db = Nothing
    Exit Sub

ErrorHandler:
    MsgBox "حدث خطأ أثناء تسجيل الحركة المخزنية: " & Err.Description, vbCritical, "خطأ بيانات"
    Resume CleanExit
End Sub

في الأنظمة المالية والمخزنية، من غير المقبول أن يقوم موظف بتعديل سعر بيع أو حذف فاتورة دون أن يعرف المدير من قام بالتعديل، وفي أي وقت، وما هي القيمة السابقة والقيمة الجديدة. يتم بناء ذلك عبر دالة عامة تفحص خاصية OldValue لعناصر التحكم في حدث BeforeUpdate للنموذج.

عند توزيع ملف الواجهة الأمامية (Front-End) على أجهزة الموظفين، قد يتغير مسار الخادم أو عنوان IP المشترك. بدلاً من ظهور رسالة فشل الربط، يتم وضع كود في شاشة البداية يفحص اتصال جدول اختباري، وفي حال انقطاعه يفتح نافذة لاختيار مسار ملف البيانات الخلفي ويحدث خاصية TableDef.Connect فوراً.