اجبار المستخدم على كتابة حروف و ارقام من 0 الى 9 مع حروف معينة مثل

[ابو هاله النبلسي]

السلام عليكم 

كيف يتكم اجبار المستخدم على كتابة حروف و ارقام من 0 الى 9 مع حروف معينة مثل RAFBDIQ  لا غيرها من خلال الفورم او استعلام او VBA 

[Foksh]

ممكن التوضيح أكثر 🤔

وإن كنت قد فهمت من حديثك ما تصورته ، فجرب هذا الكود

Private Sub YourTextbox_KeyPress(KeyAscii As Integer)
    ' تحقق من أن الحرف المكتوب هو أحد الأحرف "RAFBDIQ" أو إحدى الأرقام من 0 إلى 9
    If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) And _
       Not (KeyAscii >= Asc("A") And KeyAscii <= Asc("Z")) And _
       Not (KeyAscii >= Asc("a") And KeyAscii <= Asc("z")) Then
        ' إلغاء الحرف إذا لم يكن مسموحًا
        KeyAscii = 0
    End If
End Sub

 

يقوم هذا الكود بمنع إدخال أي حرف غير مسموح به من قبل المستخدم ، وذلك عن طريق إلغاء الحرف إذا لم يكن أحد الأحرف "RAFBDIQ" أو إحدى الأرقام من 0 إلى 9.

تم تعديل يناير 10, 2024 بواسطه Foksh

[ابو هاله النبلسي]

عند تجربة الكود اعلاه لا يعمل لكن للتوضيح عندي مربع نص احتاج ان ادخل به حروف معينه ذكرتها أعلاه مع ارقام من ٠الى٩ يعني إجبار المستخدم على هذه الصيغه فقط 

[Foksh]

تم التعديل بطريقة أخرى ,,

Private Sub Text26_BeforeUpdate(Cancel As Integer)
    Dim inputValue As String
    Dim validCharacters As String
    Dim i As Integer
    
    validCharacters = "RAFBDIQ0123456789"
    
    inputValue = Nz(Me.Text26.Value, "")
    
    For i = 1 To Len(inputValue)
        If InStr(validCharacters, Mid(inputValue, i, 1)) = 0 Then
            MsgBox "ÅÏÎÇá ÍÑæÝ ÛíÑ ÕÍíÍ", vbExclamation, "Error"
            Cancel = True
            Exit Sub
        End If
    Next i
End Sub

حيث Text26 اسم مربع النص في نموذجك