mom20088 قام بنشر يونيو 17, 2016 قام بنشر يونيو 17, 2016 هاشرح الكود: كود حفظ السجل وخروج اذا امكن من قاعدة البيانات الكود بيقول عند الضغط على الزر يعطينى ثلاث خيارات نعم ولا وتجاهل نعم يقوم بحفظ السجل ولا تقوم بحذف السجل واخيرا التجاهل يقوم بغلق النموذج حبيت اعدل فيه بحيث انه لما اقول نعم للحفظ يقوم بالحفظ ثم يسالنى مرة اخرى ان كنت اريد عمل سجل جديد او خروج أو الرجوع للشاشة الرئيسية (main) ولما اقول له لا تحفظ يقوم بحذف كل ما كتبته فى السجل الحالى ثم يسالنى سؤال مرة اخرى هل يريد منى الخروج او عمل سجل جديد واخيرا عندما اقول له تجاهل الامر اللى هى بالانجليزى Cancel يبقى الوضع على ما هو عليه ولايغير شئ رجاء تعديل الكود الى ما اريد وجزاكم الله خيرا Private Sub Command341_Click() On Error Resume Next Beep Select Case MsgBox("do you want to save record ?" & vbCrLf & _ "", vbInformation + vbMsgBoxleft + vbYesNoCancel, "Attention!") Case vbYes MsgBox "Record is saved!" DoCmd.GoToRecord , , acNewRec Me.Production_Order.SetFocus Case vbNo DoCmd.OpenQuery "Query3" MsgBox "Record Will be Deleted! ", vbOKOnly, "Attention!" DoCmd.GoToRecord , , acNewRec Me.Production_Order.SetFocus Case Else MsgBox "It was Ignore!" DoCmd.RunCommand acCmdCloseDatabase Me.Production_Order.SetFocus End Select End Sub
الساحة البريدية قام بنشر يونيو 25, 2016 قام بنشر يونيو 25, 2016 ارفق مثال علشان نشوف لو نقدر نعدل عليه
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.