[سؤال] السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة

[سؤال] السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [سؤال] السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة (/showthread.php?tid=1131)

السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - aseelja - 29-11-13

Sad

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

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

RE: السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - أبو عمر - 30-11-13

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

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

PHP كود :

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

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

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

بالتوفيق

RE: السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - aseelja - 30-11-13

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

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

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

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

(

RE: السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - aseelja - 30-11-13

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

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

RE: السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - mamas1 - 30-11-13

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

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("حفظ") 

بالتوفيق

RE: السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - أبو عمر - 30-11-13

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

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

RE: السلام عليكم اعاني من مشكلة في الكود هل يمكن المساعدة - كاظم هاشم البهادلي - 19-12-13

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