منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] ممكن كود تأكد قبل الحفظ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] ممكن كود تأكد قبل الحفظ (/showthread.php?tid=30292)

ممكن كود تأكد قبل الحفظ - WALEEDA - 15-07-19

أنا عامل برنامج خاص بالمحل يرحل البيانات لأكثر من صفحة
كنت حاط الرسالة عند الضغط على الزر ( تم حفظ البيانات )
كيف احط الرسالة انه يتأكد من الحفظ اذا متأكد يضغط yes وتترحل البيانات للصفحات
واذا ضغط No ماتترحل البيانات 


هذا نص البرمجة
كود :
Sub post()
If Range("B1").Value = False Then
MsgBox "البيانات غير مكتملة"
Else
A = Sheet2.Cells(1, 1).CurrentRegion.Rows.Count + 1
B = Sheet3.Cells(1, 1).CurrentRegion.Rows.Count + 1
C = Sheet4.Cells(1, 1).CurrentRegion.Rows.Count + 1
Sheet2.Cells(A, 1) = Range("B1")
Sheet2.Cells(A, 2) = Range("B2")
Sheet2.Cells(A, 3) = Range("B3")
Sheet2.Cells(A, 4) = Range("B4")
Sheet2.Cells(A, 5) = Range("B5")
Sheet2.Cells(A, 6) = Range("B6")
Sheet2.Cells(A, 7) = Range("B7")
Sheet3.Cells(A, 1) = Range("B1")
Sheet3.Cells(A, 2) = Range("B2")
Sheet3.Cells(A, 3) = Range("B3")
Sheet3.Cells(A, 4) = Range("B4")
Sheet3.Cells(A, 5) = Range("B5")
Sheet3.Cells(A, 6) = Range("B6")
Sheet3.Cells(A, 7) = Range("B7")
Sheet4.Cells(A, 1) = Range("B1")
Sheet4.Cells(A, 3) = Range("B3")
Sheet4.Cells(A, 4) = Range("B4")
Sheet4.Cells(A, 5) = Range("B5")
Sheet4.Cells(A, 6) = Range("B6")
Sheet4.Cells(A, 7) = Range("B7")
Range("B1") = ""
Range("B2") = ""
Range("B3") = ""
Range("B4") = ""
Range("B5") = ""
Range("B6") = ""
Range("B7") = ""
Range("B1") = ""
Range("B2") = ""
Range("B3") = ""
Range("B4") = ""
Range("B5") = ""
Range("B6") = ""
Range("B7") = ""
Range("B1") = ""
Range("B3") = ""
Range("B4") = ""
Range("B5") = ""
Range("B6") = ""
Range("B7") = ""
MsgBox "تم حفظ البيانات"
End If
End Sub


RE: ممكن كود تأكد قبل الحفظ - ابراهيم ايبو - 15-07-19

السلام عليكم اخي الكريم
تفضل هذا الكود وضع جملة الحفظ خاصتك في مكان كلمة كود الحفظ

كود :
If MessageBox.Show("هل حقا تريد حفظ السجل؟", "سؤال", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
           'كود الحفظ
       Else
           Exit Sub
       End If


RE: ممكن كود تأكد قبل الحفظ - WALEEDA - 17-07-19

(15-07-19, 11:24 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
تفضل هذا الكود وضع جملة الحفظ خاصتك في مكان كلمة كود الحفظ

كود :
If MessageBox.Show("هل حقا تريد حفظ السجل؟", "سؤال", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
           'كود الحفظ
       Else
           Exit Sub
       End If

وعليكم السلام ورحمة الله وبركاته 
أشكرك على مساعدتي لكن لم يعمل معي الكود تأتيني رسالة خطأ
فايش اعمل عشان اصححه


RE: ممكن كود تأكد قبل الحفظ - سامي محمد - 18-07-19

أنت تستخدم فيجوال بيسك 6 وهذا الكود خاص بالــــ دت نت

RE: ممكن كود تأكد قبل الحفظ - WALEEDA - 19-07-19

(18-07-19, 12:40 AM)سامي محمد كتب : أنت تستخدم فيجوال بيسك 6  وهذا الكود خاص بالــــ دت نت

أها طيب ايش الكود الملائم لي
أنا شغال فالاكسل وأبغى بعد ادخال البيانات وضغط الزر تطلع رسالة(YESوNO ) يكون مكتوب فيها (هل أنت متأكد من البيانات المدخلة)
اذا ضغط YES تترحل البيانات وتطلع رسالة (تم الحفظ ) واذا ضغط NO ماتترحل البيانات.
ممكن تساعدني

RE: ممكن كود تأكد قبل الحفظ - سامي محمد - 19-07-19

اطرح سؤالك في المنتدى المخصص للفيجوال بيسك 6 وما قبلة


كود :
http://vb4arb.com/vb/forumdisplay.php?fid=167