[aseelja]

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

عندي تسليم الاسايمنت خلال الاسبوع ومو راضية تزبط معي كبسة الحفظ الى الان ارجوووووكم مساااااااعدة وهي الكود مرفق

[أبو عمر]

التحميلات 8 مرات والردود 0 لمن حملوا المرفق ولم يجيبوا على السائل اقل شيء ارفعوا موضوعه برد

اما بالنسبة للحل ففي زر الحفظ

PHP كود :

If Txt1.Text = "" Then MsgBox "يجب ادخال الرقم الوطني للمالك أولاً", vbCritical, "": Exit Sub 


التغيير في زر الحفظ وزر التعديل

ملحوظة انت مخلي زر التعديل لحفظ الجديد والتعديل مخلي له كود الحفظ فانتبه

بالتوفيق

[aseelja]

شكرااا جزيلا
حليت هاي المشكلة وتقدمت بالحل الحمد لله تواجهني حاليا مشكلة type mismatch

لما ادخل كمدير على البرنامج واختار اسم اي مستخدم تاني من الكومبو بوكس بيطلعلي هاد الخطأ

وهي رفعت التطور في البرنامج بالمرفقات

---

مش راضي يبعته بيحكيلي انو حجمه كبير (

[aseelja]

هي رابط الملف ع الفور شيرد

http://www.4shared.com/rar/g974laZe/aseel.html

[mamas1]

المشكل عندك في هذا الكود

PHP كود :

Private Sub Combo2_Click()
rs.Index = ("الاسم"): rs.Seek "=", Combo2.Text
If rs.NoMatch Then Exit Sub
Combo2.Text = rs("الاسم")
Combo1.Text = rs("كلمة السر")
Check1.Value = ("حفظ")
Check2.Value = rs("بحث")
Check3.Value = rs("تعديل")
Check4.Value = rs("حذف")
Check5.Value = rs("التقرير")

End Sub 


و بالظبط هذا السطر

PHP كود :

Check1.Value = ("حفظ") 


إذ أن Check1.Value لا تقبل الحروف
و الواضح أنك كنت تقصد

PHP كود :

Check5.Value = rs("حفظ") 


بالتوفيق

[أبو عمر]

شوي تركيز بس
لما اعطاك رسالة الخطأ اكيد راح يظلل الخطأ باللون الاصفر تتبع الخطأ وراح تحل مشكلك نفسك

PHP كود :

Private Sub Combo2_Click()
rs.Index = ("الاسم"): rs.Seek "=", Combo2.Text
If rs.NoMatch Then Exit Sub
Combo2.Text = rs("الاسم")
Combo1.Text = rs("كلمة السر")
Check1.Value = rs("حفظ")
Check2.Value = rs("بحث")
Check3.Value = rs("تعديل")
Check4.Value = rs("حذف")
Check5.Value = rs("التقرير")

End Sub 


الخطأ كان هنا
Check1.Value = ("حفظ")
والتصحيح
Check1.Value = rs("حفظ")
بالتوفيق أخي

[كاظم هاشم البهادلي]

جزاكم الله خيرا