sm44ms قام بنشر مايو 27 مشاركة قام بنشر مايو 27 (معدل) اريد كود للحفظ وفي نفس اللحظة التراجع عن الحفظ Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub اريد تعديل تم تعديل مايو 27 بواسطه ابوخليل تنسيق الكود رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابوخليل قام بنشر مايو 27 أفضل إجابة مشاركة قام بنشر مايو 27 Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click Beep If MsgBox("هل تريد الحفظ ؟؟", _ vbQuestion + vbYesNo, _ "تنبيه") = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" else undo DoCmd.CancelEvent exit sub end if Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub 2 رابط هذا التعليق شارك More sharing options...
sm44ms قام بنشر مايو 27 الكاتب مشاركة قام بنشر مايو 27 الف شكر الغالي سوف اجربة بكره لني مخلص الدوام واخبرك بالنتيجة رابط هذا التعليق شارك More sharing options...
sm44ms قام بنشر مايو 28 الكاتب مشاركة قام بنشر مايو 28 اريد كود للحفظ وفي نفس اللحظة التراجع عن الحفظ Private Sub VIP4_Click() On Error GoTo Err_VIP4_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.OpenForm "ACSSES_ADDUSER" Exit_VIP4_Click: Exit Sub Err_VIP4_Click: Resume Exit_VIP4_Click End Sub اريد تعديل رابط هذا التعليق شارك More sharing options...
sm44ms قام بنشر مايو 29 الكاتب مشاركة قام بنشر مايو 29 الف الف شكر وتقدير لكم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.