السلام عليكم
اريد ان استفسر عن هذا الكود
if Text1.MaxLength = 10 then MsgBox "يجب ان تكون هذه الخانة عشر ارقام", vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" else End If Exit Sub End Sub
واريد من هذا الكود ان يقيد المستخدم بادخال عشرة ارقام في الخانه لا تزيد ولا تنقص
هل صحيح هذا الكود ؟ ولماذا لا يعمل؟
Private Sub Command1_Click() If (Str(Len(Text1.Text)) > 10) Then MsgBox "يجب ان تكون هذه الخانة عشر ارقام", vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Else Exit Sub ' Or end if you want to exit from the program End If End Sub
Text1.MaxLength لا أدري ما عملها !
لكن قيمتها 0 ,,
Str(Len(Text1.Text))
هذي تحسب لك عدد الحروف أو الأرقام المدخلة في التكست بوكس
السلام عليكم
اخي الكريم جرب هذا الكود
private sub text1_change()
if len(text1)>10 or len(text1)<10 then
msgbox"you must enter just 10 nomber"
end if
end sub
عفوا اخي اخطات يجب وضع الكود في زر وليس في حدث التغيير للتيكست
السلام عليكم
انت ممكن تستخدم len لوحدها واليك الكود
Private Sub Command1_Click() If Len(Text1.Text) > 10 Then MsgBox "يجب ان تكون هذه الخانة عشر ارقام", vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه" Exit Sub Else End If End Sub
وخلي بالك جملة Exit Sub دي المفروض يبقى مكانها زي ما انا كاتبها لان المفروض الرسالة اللي قبلها اللي بتفيد ان عدد الحروف اكبر من 10 تعتبر رسالة خطأ فهل عاوز المستخدم يكمل عادي حتى اذا كان عدد الحروف اكبر من 10
فسوف يتوقف البرنامج عن التكملة طالما ان عدد الحروف اكبر من 10
وشكرا
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
الف شكر اخواني ماقصرتوا يعطيكم العافيه
انحلت المشكله مع هذا الكود
Private Sub Command1_Click()
If Len(Text1.Text) > 10 Then
MsgBox "يجب ان تكون هذه الخانة عشر ارقام", vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
Exit Sub
Else
End If
End Sub
الف الف شكر اخواني ماقصرتواااا
وجزاكم الله كل خير
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…