26-04-14, 12:28 AM
وعليكم السلام ورحمة الله وبركاته
تفضل أخي االكريم
وفقك الله
تفضل أخي االكريم
كود :
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وفقك الله
