ابو هاله النبلسي قام بنشر يناير 10 مشاركة قام بنشر يناير 10 السلام عليكم كيف يتكم اجبار المستخدم على كتابة حروف و ارقام من 0 الى 9 مع حروف معينة مثل RAFBDIQ لا غيرها من خلال الفورم او استعلام او VBA رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يناير 10 مشاركة قام بنشر يناير 10 (معدل) ممكن التوضيح أكثر 🤔 وإن كنت قد فهمت من حديثك ما تصورته ، فجرب هذا الكود 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 بواسطه Foksh رابط هذا التعليق شارك More sharing options...
ابو هاله النبلسي قام بنشر يناير 10 الكاتب مشاركة قام بنشر يناير 10 عند تجربة الكود اعلاه لا يعمل لكن للتوضيح عندي مربع نص احتاج ان ادخل به حروف معينه ذكرتها أعلاه مع ارقام من ٠الى٩ يعني إجبار المستخدم على هذه الصيغه فقط رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر يناير 11 أفضل إجابة مشاركة قام بنشر يناير 11 تم التعديل بطريقة أخرى ,, 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 اسم مربع النص في نموذجك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان