ما هو الكود المطلوب لإظهار رسالة عند إدخال رقم معين؟؟؟

If Text1.Text = "972" Then
MsgBox "Ok"
Else
MsgBox "Error"
End If

تحياااااتي

أولا شكرا أخي أبو فهيد

لكن هذا الكود لم ينجح والسبب أني إذا وضعت الكود الذي يكرته حضرتك

فعند إدخالي الرقم 972 وهو الرقم الصحيح أول ما أدخل الرقم 9 يظهر لي رسالة error ؟؟؟

أخوي جرب هذا الكود

Private Sub Text1_GotFocus()
SendKeys "{Home}+{End}"
End Sub

Private Sub Text1_LostFocus()
If Val(Text1.Text) = 972 Then
MsgBox "TRUE"
Else
MsgBox False
Text1.SetFocus
End If
End Sub

بسم الله الرحمن الرحيم

أخي استخدم LostFocus ولا تستخدم change

وبذلك يتم الفحص بعد الانتقال أو نقل التفعيل الى أداة ثانية

جرب الكود التالي

Private Sub Text1_LostFocus()
If Val(Text1.Text) = 972 Then
MsgBox "الرقم صحيح"
Else
MsgBox "الرقم خطأ"
End If
End Sub

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

يبدو أن الأخ Dr.Net كان يكتب الجواب في حين أنا كنت احرر الجواب

كود Dr.Net نفس الشيء وأدق حيث أنه في حالة الخطأ يرجعك الى نفس التكست بوكس

msaye2004

والله ما فهمت شو كتبت ؟؟!! يعني أنا ما زلت مبتدئ فلهذا أحتاج إلى قليل من التفصيل في الرد..وشكرا على كل الأحوال

Dr.NET والبريشي:

أولا الله يعطيكم العافية ..الحمد لله الكود نجح وعمل المطلوب منه

لكن لي طلب صغير لو تفضلتم يعني ممكن احد يشرح لي الكود الذي كتبتوه...طبعا الكود نفسه واضح وأعرفه لكن أسماء الأحداث GETFOCUES و LOSTFOCUS ما بعرف لماذا تستعمل؟؟

يعني هالتطبيق نجح معي بس أنا حابب أتعلمهم مشان المرات القادمة يعني لو نقلتهم مثل ما هني دون ما أفهمهم ما بستفيد شي..ولا شلون؟؟

وشكرا مرة ثانية على مساعدتكم لي...وجعلها الله في ميزان حسناتكم

مجرد أنى كنت بقول لك أنه زى ما فى > و < و = ففى <> و معناها لا يساوى.

اي احكي هيك من الأول.. :D

شكرا لك