تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ممكن كود تأكد قبل الحفظ
#1
أنا عامل برنامج خاص بالمحل يرحل البيانات لأكثر من صفحة
كنت حاط الرسالة عند الضغط على الزر ( تم حفظ البيانات )
كيف احط الرسالة انه يتأكد من الحفظ اذا متأكد يضغط 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
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#2
السلام عليكم اخي الكريم
تفضل هذا الكود وضع جملة الحفظ خاصتك في مكان كلمة كود الحفظ

كود :
If MessageBox.Show("هل حقا تريد حفظ السجل؟", "سؤال", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
           'كود الحفظ
       Else
           Exit Sub
       End If
الرد
#3
(15-07-19, 11:24 PM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
تفضل هذا الكود وضع جملة الحفظ خاصتك في مكان كلمة كود الحفظ

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

وعليكم السلام ورحمة الله وبركاته 
أشكرك على مساعدتي لكن لم يعمل معي الكود تأتيني رسالة خطأ
فايش اعمل عشان اصححه
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#4
أنت تستخدم فيجوال بيسك 6 وهذا الكود خاص بالــــ دت نت
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#5
(18-07-19, 12:40 AM)سامي محمد كتب : أنت تستخدم فيجوال بيسك 6  وهذا الكود خاص بالــــ دت نت

أها طيب ايش الكود الملائم لي
أنا شغال فالاكسل وأبغى بعد ادخال البيانات وضغط الزر تطلع رسالة(YESوNO ) يكون مكتوب فيها (هل أنت متأكد من البيانات المدخلة)
اذا ضغط YES تترحل البيانات وتطلع رسالة (تم الحفظ ) واذا ضغط NO ماتترحل البيانات.
ممكن تساعدني
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#6
اطرح سؤالك في المنتدى المخصص للفيجوال بيسك 6 وما قبلة


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



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم