مطلوب كود لحفظ البيانات

أخي الكريم

كي تتمكن من وضع رسالة تنبيه للحفظ أو عدم الحفظ ضع هذا الكود في زر لحفظ السجل :

Dim msg, style, title, result
msg = "سيتم الآن حفظ البيانات !!! هل ترغب في الاستمرار ؟؟"
style = vbYesNo
title = " تنبيه- حفظ بيانات"
result = msgbox(msg, style, title)
If result = vbYes Then
docmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If result = vbNo Then
docmd.CancelEvent
msbox"لقد تراجعت عن حفظ السجل"
End If
End If

كي تتمكن من وضع رسالة تنبيه للذهاب لسجل جديد ضع هذا الكود في زر إضافة سجل جديد :

Dim msg, style, title, result
msg = "سيتم الآن الذهاب لسجل جديد!!! هل ترغب في الاستمرار ؟؟"
style = vbYesNo
title = " تنبيه- الذهاب لسجل جديد"
result = msgbox(msg, style, title)
If result = vbYes Then
 docmd.GoToRecord , , acNewRec
If result = vbNo Then
docmd.CancelEvent
msbox"لقد تراجعت عن الذهاب للسجل الجديد"
End If
End If

شاكر

السلام عليكم ورحمة الله وبركاته

حل أخر ...

ضع الكود التالي في "حدث قبل التحديث" للنموذج :

Beep
If MsgBox("هل ترغب بحفظ التعديلات ؟" & vbCrLf & _
    "أضغط (نعـم) للحفظ  ،  أو (لا) لإلغاء الأمر .", _
    vbInformation + vbMsgBoxRight + vbOKCancel + vbDefaultButton2, _
    "تنبيـــه :  تم تعديل السجل") = vbOK Then
         
    Else
        DoCmd.RunCommand acCmdUndo
    End If

End Sub

والله الموفق .

على الرحب والسعة يا أخي / أبوعبدالله

إحنا حاضرين للطيبين

شاكر