احد يشوف وين الخطا في التطبيق

محد بيعرف

للرفع

تم التعديل على المرفق وحل جميع المشاكل

المشكلة : أنت حدد مسار قاعدة البيانات من على جهازك يدوياً

و من الطبيعي أن المسار الموجود على جهاز لا يطابق نفس المسار على أي جهاز آخر

و بالتالي تحل المشكلة بستخدام App.Path هذا كل ما في الامر . -_- :rolleyes:

بالتوفيق .

Exampel.rar

Private Sub Command5_Click()
dc
End Sub

واضفت التالي

Private Sub dc()

Dim CTL As Object

For Each CTL In Me.Controls

If TypeOf CTL Is TextBox Then

CTL.Text = ""

End If

Next

End Sub

ولقيت مسار قاعدة البيانات معدل عليها

بس ياليت توضح لي ماهو عمل الكود المضاف

مع شكري وتقديري لك

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

أخي الكريم بنسبة لي Dc فأنا لم أقوم بإضافته من عندي و لكنه موجود من قبل

و كان المسؤوول عن مسح جميع البيانات في الـ TextBoxs و لكنك لم تستخدمه في ذلك

بل كتبت Clear في في إجراء الـ Command5_Click لكي يقوم بمسح السجلات و لكن عند الضغط على الـ Command

كانت تظهر رسالة خطأ لعدم وجود إجراء بهذا الاسم و بالتالي قمت بستبدال Clear بـ Dc و هو اسم الأجراء المسؤول عن إعادة تعيين الحقول

أما ما كتبته في الآجراء Dc و الذي لم تستطيع فهمه فسأفسره لك :

أولاً : بما أن الاجراء كان مسؤول عن إعادة تعيين الحقول فقد كان يحتوي على هذا الكود :

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus

الكود السابق يقوم بمسح الـ TextBoxs عن طريق ذكرهم بالاسم واحداً تلو الآخر

و لكن الكود الجديد سيقوم بمسح البيانات من جميع الــ TextBoxs الموجودة على الـ Form

دون الحاجة إلى تحديد الـ Id الخاص بـ أداة الـ TextBox و هذا يوفر عليك الوقت و يقلل من حجم الكود الخاص بك .

أتمنى لك التوفيق ...