السلام عليكم
عندي 8 تكست بوكس مخفيةاي Visible =false
و المطلوب إذا اصبح عدد منها غير مخفي
اضعه بدلا عن ما بين قوسين في الشرط
كود :
if (text1.text="" or text2.text="" or text3.text=""................................ text8.text="") then
يعني مثلا اذا اصبح لدينا التكست1 و التكست2 ظاهرين يكون الشرط
كود :
if text1.text="" or text2.text="" then
و اذا اصبح لدينا التكست1 و التكست2 و التكست3 ظاهرة يكون الشرط
كود :
if text1.text="" or text2.text="" or text3.text="" then
السلام عليكم
اخي الكريم استخدم Visible =True في الشرط مع And لتصبح الجملة كالتالي
كود :
If Text1.Visbile = True And Text2.Visbile = True And Text3.Visbile = true Then
يعطيك العافية
abulayth كتب :السلام عليكم
اخي الكريم استخدم Visible =True في الشرط مع And لتصبح الجملة كالتالي
كود :
If Text1.Visbile = True And Text2.Visbile = True And Text3.Visbile = true Then
يعطيك العافية
مشكور اخي المشرف
بس انا اريد اظهار رسالة ما اذا ما عدد معين من مثلا 3 تم اظهاره و عدم ادخال اي قيمة في واحدة منها او اثنين او الثلاثة معا
و اذا تم اظهار 4 و لم تتم عملية ادخال اية قيمة في احدها او اثنتين او ثلاثة او كلها
و هكذا
السلام عليكم ورحمة الله وبركاته
يمكنك وضع شرط لكل نص وبهالشكل
كود :
If Text1.Visible = True And Text1.Text = "" Then
MsgBox("Enter text")
End If
بالتوفيق
السلام عليكم
- إستخدم هذا الكود على حسب مافهمت ، أنك تريد إذا أصبح أي تكست من الثمانية في حالة الظهور يتم وضعه في جملة الشرط أي إذا كان أي تكست ظاهرا يجب فحصه ما إذا كان فارغ أم لا , إذا أعتقد أن هذا هو الكود المناسب :
كود :
Dim Ctrl As Control
For Each Ctrl In Controls
IF TypeOf Ctl Is TextBox And Ctl.Visible = True Then
IF Trim$(Ctl.Text) = "" Then
MsgBox "Write Text"
Ctl.SetFocus
Exit Sub
End If
End IF
Next
- تحياتي .
شكرا للاخوة المجيبين
و خاصة ل 3booody و VB_Coder
على الرغم من ان كوده يظهر لي خطأ
و طلع اذا بدك تحط else بدك تحط : If Text1.Visible = True And not Text1.Text = "" Then
بدلا عنه
السلام عليكم
- ماهو الخطأ ، أعتقد أنه يظهر على كلمة SetFocus إذا كان كذلك فقم بإزالتها .
- تحياتي .
اخي انته مو شرط انك تضع عبارة Else في وسط if حتى تحصل الي تريده يمكنك وضع كما قال الاخ VB_Coder او بهالشكل
كود :
If Text1.Visible = True And Text1.Text = "" Then
'
End If
If Text2.Visible = True And Text2.Text = "" Then
End If
لاتضع Else الا لتحقيق لشرط ثاني
asto كتب :و طلع اذا بدك تحط else بدك تحط : If Text1.Visible = True And not Text1.Text = "" Then
بدلا عنه
سلام عليكم اخ
هناك طريقة بدل التي وضعتها
not text1.text=""
وهي
Text1.Text<> ""
او
(text1.text)len >0
للمعلومة فقط:o