[norhan]

(27-02-16, 12:08 AM)administrator كتب :

(26-02-16, 11:58 PM)norhan كتب : شكرا استاذنا  ولكن  انا اريد ان يتحقق الشرط من وجود نص فى التكست بوكس وليس اعطائى رسائل
فمثلا اذا اردت ان يكون التكست بوكس فارغ بكتب هذا الكود text1.tex = ""
لكن اذا كان هناك نص فى االتكست او ان اداه الشرط تشترط وجود نص بما يعنى text1.text = ? ??? ماذا اكتب هنا

الكود مثل ما طلبت
نشرح الكود خطوه خطوه

PHP كود :

   If Trim$(Text1.Text) = "" Then 


الكود في الاعلى يتحقق من قيمة (Text1) اذا كانت فارغه ( لا تحتوي على نص )
يظهر المسج التالي

PHP كود :

       MsgBox "لا يوجد نص", vbCritical 


اذا كان غير فارغ ( يحتوي على نص )
يظهر المسج التالي

PHP كود :

       MsgBox "يوجد نص", vbOKOnly 


------------------ انتهى ------------------

بالنسبه للرسائل بامكانك وضع الكود الذي يناسبك مكان كود الرساله

اعزرنى  الكود ليس هو ما اردت ولكن سوف ارسل لك ما اريد
Private Sub Command2_Click()
   
                                                                         "انتبه انت لم تدخل اسم العميل"   If Text1.Text = ""Then MsgBox 
   "WindowsMediaPlayer1.URL = "c:\windows\media\Windows Exclamation.wav

  
  (فى هذا المكان اريد التحقق من وجود نص فى التكست بوكس حتى ينفذ عمليه الطباعه فاذا لم يجد نص لا يقوم بالطباعه)
    
 Command2.Visible = False
    Command1.Visible = False
    Printer.Orientation = vbPRORLandscape ' Returns 2
   Printer.Copies = 1
    PrintForm
    End If
     Command1.Visible = True
     
    Command2.Visible = True
End Sub