11-02-17, 09:30 PM
11-02-17, 10:08 PM
وعليكم السلام ورحمة الله وبركاته
جرب هذا الكود
والله الموفق
جرب هذا الكود
كود :
Private Sub Command1_Click()
If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Else
MsgBox "False"
End If
End Sub11-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
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
11-02-17, 10:42 PM
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و جزاك خير الجزاء و نفع بك الاسلام و المسلمين أخي و أستاذي الغالي : SENDBAD100
لا كلام بعد كلامك و حديث بعد حديثك و لا ربع كود بعد أعمالك باسم الله تبارك اللهفقط من باب الاحتياط للشّرط إرتأيت بنظرتي المتواضعة أن أضيف لما تقدّمت به مع إفتراض وجود العديد من التاكسات بوكس :
كود :
Private Sub Command1_Click()كود :
If Trim(Mid(Me.TxtID.Text, 1, 1)) = Trim(1) Then
MsgBox "True"
Text2.Enabled = True
Text3.Enabled = True
Else
MsgBox "False"
TxtID.SetFocus
Text2.Enabled = False
Text3.Enabled = False
End If
End Subفائق الشكر و الاحترام و التّقدير
11-02-17, 10:45 PM
(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
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
ركز قليلا
الرسالة تظهر ولكن بنص مختلف
11-02-17, 11:41 PM
(11-02-17, 10:45 PM)sendbad100 كتب : [ -> ][attachment=13121]طريقة الكود صحيحه لكن هناك شيء لم اوضحه[attachment=13121] في سؤالي لذا ارفقت لك البروجيكت للتعديل عليه وملاحظة ما طلبته
(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
المعذرة بعدم القاء التحية في طلبي
السلام عليكم
لم تنجح الطريقه وقد قبل الكتابه بكل الارقام مع ظهور الرسائل في كل كبسة رقم .
اشكر ردك حفظك الله
ركز قليلا
الرسالة تظهر ولكن بنص مختلف
تحياتي
12-02-17, 12:03 AM
جرب هذا الكود
كود :
Private Sub TxtID_KeyUp(KeyCode As Integer, Shift As Integer)
If Trim(Mid(Me.TxtID.Text, 1, 1)) <> Trim(1) Then
Me.TxtID.Text = ""
End If
End Subضعه في الحدث KeyUp
والله الموفق
12-02-17, 12:19 AM
12-02-17, 12:31 AM
السلام عليكم
جرب التالي
جرب التالي
PHP كود :
Private Sub Text1_Change()
If Left(Text1.Text, 1) = "1" Then
Else
Text1.Text = ""
End If
End Sub
بالتوفيق .
12-02-17, 02:12 AM
السلام عليكم
يمكن أن تسهل المهمة بأن تجعل الرقم 1 مكتوب في Label ثابت بجوار اداة TextBox المقصودة للإشارة لقيمة ثابتة،
وعند الحفظ يمكن وضع 1 قبل محتوى النص مثل هذا الكود
يمكن أن تسهل المهمة بأن تجعل الرقم 1 مكتوب في Label ثابت بجوار اداة TextBox المقصودة للإشارة لقيمة ثابتة،
وعند الحفظ يمكن وضع 1 قبل محتوى النص مثل هذا الكود
كود :
"1" & TextBox1.Text