منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة

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

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

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

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

PHP كود :

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

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

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

بالتوفيق

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

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

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

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

(

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

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

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

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("حفظ")
بالتوفيق أخي

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

aseelja

أبو عمر

aseelja

aseelja

mamas1

أبو عمر

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