[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

وفقك الله

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