مطلوب اظهار رسالة عند تعديل البيانات داخل النموذج

[sobhyahmed]

ممكن الافادة

عايز كود      اذا تم تعديل اي قيمة فى النموذج يخرجلى رسالة عند الحفظ  بانه "تم تعديل قيم فى النموذج"      

""ولكم جزيل الشكر""

[محمد أبوعبدالله]

ممكن وضع مربع نص غير منضم على النموذج ( مخفي ) مثلاً txt1

ثم نصع في حدث قبل التحديث الكود التالي

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Me.txt1 = 1
    If Me.txt1 = 1 Then
    MsgBox "تم التعديل على قيم النموذج"
    Else
    End If
End Sub

اذا اصبحت قيمة الحقل txt1 = 1 تظهر الرساله

تحياتي