الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟
وكيف اجعل برنامجي المرفق يظهر رسالة في حالة تم التعديل على السجل ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم
وعليكم السلام ورحمة الله وبركاته
تفضل أخي االكريم
كود :
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
وفقك الله
(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
وفقك الله
---------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم