الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تكفون في قناع الإدخال

مغلق
بدأه أبو ريان في 27 مايو 2001 · 2 رد · 633 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأعزاء

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

أضافه بعض السطور على الكود وبعض الإشكال :-

Private Sub comAdd_Click()

Data1.Recordset.AddNew

Text1.SetFocus

Text1.Mask = ""

Text1.Text = ""

Text1.Mask = "####-##-##-####??"

Text1.PromptInclude = False

Command1.Visible = False

Command3.Visible = False

Command5.Visible = False

Command6.Visible = False

Command7.Visible = True

Command8.Visible = True

End Sub[code]

سميت Mask Edit بــ Text1 لكن الإشكال هو بعد ما تضغط على زر إضافه ثم

تدخل البيانات في Mask ثم تنتقل إلى TextBox بعد ذلك لا تريد أن تحفظ البيانات

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

وهي ناقصة البيانات دون أن تضغط زر حفظ بل ضغطت زر إلغاء الأمر.

فاين الإشكال .

مع التحيه

#2

ضع هذا في زر الإلغاء :

Private Sub cmdcancel_Click()
On Error GoTo Err_cmdcancel_Click


    DoCmd.Close

Exit_cmdcancel_Click:
    Exit Sub

Err_cmdcancel_Click:
    MsgBox Err.Description
    Resume Exit_cmdcancel_Click

End Sub
#3

الأخ أبو لمى

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

معليش أخي على الرد المتأخر لأني كنت مشغول بعض الشئ

جزاك الله ألف خير على هذا الرد ولقد كنت أنتظر الرد من قبل

ولكن وجدت حل قبل أن ترد علي وأردت أن أضع الحل فوجدت ردك

وجربت الشفره التي وضعتها ولكن لم تنجح ،الحل لهذه المشكله سهل لكن

كانت تحتاج إلى محولات الحل:-

تضع في زر إلغاء الأمر نفس الكود السابق بس تحذف سطر الإضافه

وسوف يعمل الزر باذن الله بنجاح .

مع التحيه

هذا الموضوع مغلق.

مواضيع مشابهة