اذهب الي المحتوي
حراثي تواتي

كود تأكيد قبل الحفظ

Recommended Posts

السلام عليكم ورحمة الله وبركاته

اريد من الاخوة الافاضل كود لتأكيد الاجراء قبل الحفظ او التعديل  العبارة " هل تريد الحفظ "  " نعم "  " لا "

 

تواتي.rar

2018-03-22_143850.jpg

تم تعديل بواسطه حراثي تواتي

شارك هذه المشاركه


رابط المشاركه
شارك

وعليكم السلام

تفضل

 

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
On Error Resume Next
Sheets(1).Visible = True
Dim iRow As Long
Dim ws As Worksheet
Set ws = Sheets(1)
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
TextBox1.SetFocus
MsgBox " هل تريد حفظ البيانات ", vbYesNo
If vbYes Then
ws.Cells(2, 2).Value = Me.TextBox1.Value
ws.Cells(5, 3).Value = Me.TextBox2.Value
ws.Cells(3, 4).Value = Me.TextBox3.Value
Else
TextBox1.SetFocus
End If
On Error GoTo 0
End Sub

 

تم تعديل بواسطه shreif mohamed

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان

  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×