اريد الكود الخاص بتاكيد الحفظ يعني اضفت معلومات جديدة اريد
عند الانهاء او الخروج من النموذج او عند الضغط على زر حفظ ان يسالني
البرنامج هل تريد الحفظ او لا لو سمحتوا
ياجماعة اريد كود الحفظ اذا امكن؟؟؟
مغلق
السلام عليكم ..
ضع هذا الكود في حدث عند الخروج من آخر حقل في النموذج ..
if msgbox("هل تريد حفظ البيانات السابقة ؟"& vbcrlf & _
& vbCrLf & "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbQuestion + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه") = vbYes Then
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl ("[رقم معرف]")
End If
وبالتوفيق
If MsgBox
("هل تريد حفظ البيانات السابقة "
& vbCrLf
& vbCrLf & "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbQuestion + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه") = vbYes Then
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl
("[رقم معرف]")
End Ifعزيزي لقد وضعت الكود اللي كتبته ووضعته في برنامجي لكن لم يظهر بطريقة صحيحة ارجو منك
المتابعة لو تكرمت
انا عارف ان البرد مشكلة لكن شغلوا المكيفات على الحار
السلام عليكم
يمكن لم تكتب الكود بطريقة صحيحة ..
وكتابة الكود في المنتدى صعبة .. لكن .. إذا كان لديك هوت ميل فالرجاء أتصل بالمسنجر ..
ولو نسخت الكود ثم لصقته في أجراء عند الخروج في خاصية آخر حقل في النموذج لعمل الكود زي الفل ..
السلام عليكم و رحمة الله و بركاته
لكتابة الأكود فى المنتدي تبدأ ب
"["
"code2"
"]"
و تنهي الكتابة ب
"["
"/"
"code2"
"]"
و هذه اهي الأكواد المنشورة بواسطة الأخوة بعد و ضعها كما سبق
الكود الثاني
If MsgBox
("هل تريد حفظ البيانات السابقة "
& vbCrLf
& vbCrLf & "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbQuestion + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه") = vbYes Then
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl
("[رقم معرف]")
End Ifالكود الأول
if msgbox("هل تريد حفظ البيانات السابقة ؟"& vbcrlf & _
& vbCrLf & "أضغط (نعم) للإستمرار أو (لا) لإلغاء الأمر.", vbQuestion + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "رسالة تنبيه") = vbYes Then
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl ("[رقم معرف]")
End If
شكرا لك اخ مصراوي جزيل الشكر
هذا الموضوع مغلق.