مساعده في تعديل كود التشييك على الحقول

[شاهر]

الاخوه الاعزاء بعد التحيه

لدي طلب لوامكن التعديل علي الكود في هذا المثل وهولاحد الاعضاء المنتدي

فيه استعلام الحاق لاسم المعدل والحقل المعدل ببيانات السابق والبيانات المعدله في حدول مستقل

المطلوب نفس العمل مع تحديد في حالة التعديل على حقل معين وليس جميع الحقول حتي لايكبر الجدول معي في القاعده

مثل عند حقل المبلغ وحقل الضريبه وحقل الصافي في حالة المثل ان تم التعديل علي المبلغ يتم الحقل التعديلات التي تم علي جميع الحقول الضريبه والصافي وان لاارغب في الحقل التعديل في هذين الحقل والاكتفاء بحقل المبالغ

ايعني االحقل التي ارغب في اظهار ها فقط ارجوا ان يكون االمطلوب واضح

واليكم المرفقات

ModifiedFields.rar

[rudwan]

اذا كنت تريد فقط معرفة البيانات الخاصة بتعديل حقل معين و ليس كل الحقول , احذف الكود الخاص بالبحث عن جميع الكونترول ليقتصر الكود على الجملة التالية بفرض أن الحقل المطلوب هو Amount

Dim m As Integer
Dim ctl As Control
Dim g, k, s As String
Dim z As Date
k = MyUser.UserName
s = CStr(Now())

If Me.Amount.OldValue <> Me.Amount Then
    
    g = "INSERT INTO Modifications ( RecordID, TableName, FieldName, OldValue, NewValue,ModifiedBy,  ModifiedDate) values(" & Me.Direct_ID & " , " & Chr$(34) & "employee" & Chr$(34) & "  , " & Chr$(39) & ctl.ControlName & Chr$(39) & " , " & Chr$(39) & ctl.OldValue & Chr$(39) & " , " & Chr$(39) & ctl & Chr$(39) & " , " & Chr$(39) & k & Chr$(39) & " , " & Chr$(39) & s & Chr$(39) & ")"
DoCmd.SetWarnings False
          DoCmd.RunSQL g
    
    End If

[شاهر]

جربة اخي الكريم رضوان اضن فيها صعوبه نوما واضن انها في حقول الاستعلام

على العموم الف الف شكر

[rudwan]

اذا لم يتضح الجواب أعد الطلب مرة أخرى