البحث في الموقع
Showing results for tags 'مساعدة فى ظبط الكود'.
تم العثور علي 1 نتيجه
-
هاشرح الكود: كود حفظ السجل وخروج اذا امكن من قاعدة البيانات الكود بيقول عند الضغط على الزر يعطينى ثلاث خيارات نعم ولا وتجاهل نعم يقوم بحفظ السجل ولا تقوم بحذف السجل واخيرا التجاهل يقوم بغلق النموذج حبيت اعدل فيه بحيث انه لما اقول نعم للحفظ يقوم بالحفظ ثم يسالنى مرة اخرى ان كنت اريد عمل سجل جديد او خروج أو الرجوع للشاشة الرئيسية (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
