[sendbad100]

(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

والله الموفق

المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام  مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله

ركز قليلا 

الرسالة  تظهر ولكن بنص مختلف