27-02-16, 08:02 PM
(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

