[Microformt]

الاخوه الكرام
السلام عليكم ورحمة وبركاته
كيف اجعل برنامجي المرفق يظهر رسالة في حالة عدم التعديل على السجل ؟؟
وكيف اجعل برنامجي المرفق يظهر رسالة في حالة تم التعديل على السجل ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم

[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

وفقك الله

[Microformt]

(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

وفقك الله

---------------------------------------------------------------
اخي العزيز
السلام عليكم ورحمة وبركاته
لك مني جزيل الشكر والتقدير على ما تقدمه من دعم فني والله يحفظكم ويرعاكم