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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] ممكن الخطا في البرنامج AbdoDabak 0 40 أمس, 03:04 AM
آخر رد: AbdoDabak
  مشكلة في الحفظ في الاكسس SaedAmer 21 537 02-09-19, 02:08 AM
آخر رد: ابراهيم ايبو
  ممكن كود اضافة ترقيم تلقائي +السنة الحالية ابو رضوان 2 138 01-09-19, 04:28 PM
آخر رد: ابو رضوان
  ممكن مساعدة بكود ريجكس لاستخراج id حسابي bakriano30@yahoo.com 1 101 30-08-19, 05:08 AM
آخر رد: mohamedahmed1
  [كود] ممكن كود Thabetdz 4 172 28-08-19, 11:16 AM
آخر رد: Thabetdz
  [VB.NET] ممكن مساعدتي في اكمال مشروعي في فيجوال بيسك hothif 1 96 25-08-19, 04:47 AM
آخر رد: اسامه الهرماوي
  استفسار بعد عمليات الحفظ والنعديل والبحث خالد كامل1 4 141 25-08-19, 01:27 AM
آخر رد: viv
  [سؤال] ممكن مساعده في حل هذي المشكله لو سمح moh123456 1 109 21-08-19, 10:12 PM
آخر رد: ابراهيم ايبو
  [VB.NET] ممكن سيريال تفعيل فيجوال بيسك 2010 bakriano30@yahoo.com 3 181 17-08-19, 03:39 AM
آخر رد: Abdalazim19
Thumbs Up [VB.NET] هل ممكن تغيير رقم الهارد عن طريق الكود رمضان محمد 1 312 16-08-19, 11:08 PM
آخر رد: عماني939

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


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