+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟ (/showthread.php?tid=2672)
كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟ - Microformt - 25-04-14
الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟
وكيف اجعل برنامجي المرفق يظهر رسالة في حالة تم التعديل على السجل ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
RE: كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟ - Sniper.ps - 26-04-14
وعليكم السلام ورحمة الله وبركاته
تفضل أخي االكريم
كود :
Private Sub Command1_Click()
Dim M As VbMsgBoxResult
M = MsgBox("هل تريد تعديل البيانات", vbYesNo + vbQuestion)
If M = vbYes Then
'هنا ضع كود تعديل السجل
MsgBox "تم تعديل السجل", vbInformation, "Edit"
ElseIf M = vbNo Then
MsgBox "لم يتم تعديل السجل", vbExclamation, "Edit"
End If
End Subوفقك الله
RE: كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟ - Microformt - 26-04-14
(26-04-14, 12:28 AM)Sniper.ps كتب : وعليكم السلام ورحمة الله وبركاته---------------------------------------------------------------
تفضل أخي االكريم
كود :
Private Sub Command1_Click()
Dim M As VbMsgBoxResult
M = MsgBox("هل تريد تعديل البيانات", vbYesNo + vbQuestion)
If M = vbYes Then
'هنا ضع كود تعديل السجل
MsgBox "تم تعديل السجل", vbInformation, "Edit"
ElseIf M = vbNo Then
MsgBox "لم يتم تعديل السجل", vbExclamation, "Edit"
End If
End Sub
وفقك الله
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم