TextBox موجود به الحرف المطلوب

[Akram Galal]

السلام عليكم ورحمة الله وبركاته 

السادة الأفضل أعضاء المنتدى 

عندي فورم بداخلها TextBox1 

أريد الآتي 

إذا كان مكتوب داخل TextBox1 حرف k مثلا

يظهر رسالة "الحرف موجود"

ولكم جزيل الشكر 

[عبدالفتاح في بي اكسيل]

مرحبا 

تريد رد ولا تريد ارفاق  ملف 😱😱

ستتم الاجابة ايضا  بلا  ملف  ومن واقع تخمين فقط 

يمكنك ازالة اخر سطر اذا كنت  لا تريد مسح  التيكست بوكس

Private Sub TextBox1_Change()
If Left(TextBox1.Text, 1) = "K" Then
   MsgBox "هذا  الحرف موجود بالفعل"
End If
TextBox1.Text = ""
End Sub

 

تم تعديل يوليو 25, 2023 بواسطه عبدالفتاح في بي اكسيل

[أبوأحـمـد]

وعليكم السلام ورحمة الله وبركاته

ولو أني لم أفهم جيدا المطلوب 

ولكن مشاركة  مع أستاذي عبدالفتاح

If InStr(TextBox1.Text, "k") > 1 Then
MsgBox "الحرف موجود"
End If

 

[أبومروان]

وعليكم السلام ورحمة الله وبركاته

 

Private Sub TextBox1_Change()
    If InStr(1, Me.TextBox1.Value, "k", vbTextCompare) > 0 Then
        MsgBox "الحرف موجود"
    End If
End Sub

Private Sub TextBox1_Change()
    If TextBox1.Value Like "*k*" Then
        MsgBox "الحرف موجود"
    End If
End Sub

 

Private Sub TextBox1_AfterUpdate()
If Me.TextBox1.Value <> "" Then
MsgBox Me.TextBox1.Value
End If

End Sub