تقييم الموضوع :
  • 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
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن سيريال تفعيل فيجوال بيسك 2010 bakriano30@yahoo.com 3 123 17-08-19, 03:39 AM
آخر رد: Abdalazim19
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 1 251 16-08-19, 11:08 PM
آخر رد: عماني939
  مفكرتي لا تدعم الحفظ باللغة العرببة UTF8 الرائد 7 157 15-08-19, 01:54 AM
آخر رد: ابراهيم ايبو
  مبتدىء فى بيئة الدوت نت - مشكلة فى كود الحفظ المبرمج العتيق 10 203 15-08-19, 12:34 AM
آخر رد: المبرمج العتيق
  [VB.NET] ممكن طلب مساعدة من الاخوة فراس الغزي 2 99 05-08-19, 01:54 PM
آخر رد: فراس الغزي
  [سؤال] ممكن طريقة عمل مشغل فيديو بجودات مختلفة ScreamVoice 7 722 28-07-19, 01:56 PM
آخر رد: yami007
  [VB.NET] ممكن شرح HAPXPathFinder bakriano30@yahoo.com 0 61 28-07-19, 08:52 AM
آخر رد: bakriano30@yahoo.com
  [VB.NET] ممكن لينك تحميل فيجوال بيسك 2015 bakriano30@yahoo.com 9 214 22-07-19, 03:05 PM
آخر رد: مبرمج مصرى
  [سؤال] ممكن لينك تحميل my sql bakriano30@yahoo.com 1 99 19-07-19, 08:03 PM
آخر رد: asemshahen5
  منع التكرار اسم الصنف في حالة الحفظ والتعديل كود واحد سلام نيس 13 453 16-07-19, 10:34 PM
آخر رد: سلام نيس

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


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