السلام عليكم جميعا
هذا الكود خاظئ ارجو ارشادي اين الخطأ في ذلك وما الصواب
ودمتم
Private Sub cmdpinok_Click() If (txtpin1.Text = 1111) And (txtpin2.Text = 2222) And (txtpin3.Text = 3333) And (txtpin4.Text = 4444) And (txtpin5 = 5555) Then MsgBox "ok" End If End Sub
تم تعديل هذه المشاركة بواسطة Xacker في 24 ديسمبر 2008 في 22:23
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
قد يكون الخطأ هو نسيان علامات التنصيص، يعني "1111" و "2222" .....
والله أعلم، ما الخطأ الذي تواجهه أخي؟
هذه الجملة خاطئة :wacko:
ساجرب علامة التنصيص ولي عودة
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.
Abboodd كتب:قد يكون الخطأ هو نسيان علامات التنصيص، يعني "1111" و "2222" .....والله أعلم، ما الخطأ الذي تواجهه أخي؟
كلام سليم
الأخطاء المتوقعه هنا إما Object required أو Type mismatch
الخطأ الأول متوقع ظهوره في حالة عدم وجود الـ Control الذي يسمى مثلا بـ txtpin1 ووجود بعده كلمة .Text
الخطأ الثاني وهو كما قال الأخ الفاضل ومعناه ان النوع غير متوافق لأنك تقارن String بـ Numeric في حالة أن الـ Control يحوي نصا
ويكون الحل إما معاملة الأرقام على أنها نصوص أو معاملة النصوص على انها أرقام
txtpin1.Text = "1111"
txtpin1.Text = CStr(1111)
Val(txtpin1.Text) = 1111
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
نعم الخطأ هو علامة التنصيص تم الحل
شكرا لكما جزيل الشكر
فأنت اخي المبرمج ..لا تبخل بعلمك عمن يطلبه فقد كنت يوما تبحث كما نبحث نحن.. واعلم لو حجب العلم عنك لما وصلت الى ما انت عليه الان.. فاتق الله في طالب العلم وتذكر ما منه الله عليك ولا تبخل بعلمك وما اوتيت من معرفة ليبارك الله علمك وينفعك به.