11-02-17, 10:37 PM
(11-02-17, 10:08 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته
جرب هذا الكود
والله الموفقكود :
Private Sub Command1_Click()
If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If
End Sub
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
