مطلوب عدم الاستجابة للكتابة في مربع النص عند ادخال حروف

[alsihran]

السلام عليكم 

المطلوب مربع النص الاول عدم الاستجابة اذا تم ادخال حروف والاستجابة عند  ادخال ارقم 

ومربع النص الثاني يكون العكس

nbm.accdb

تم تعديل ديسمبر 30, 2020 بواسطه alsihran

[kanory]

استخدم هذا الكود ......

Private Sub Text0_Change()
On Error Resume Next
Dim L As Integer
L = Val(Len(Text0.Text) - 1)
If Not Trim(Text0.Text) = "" Then
If IsNumeric(Text0.Text) = False Then
Text0.Text = Mid(Text0.Text, 1, L): Text0.SelStart = Len(Text0.Text)
End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
On Error Resume Next
Select Case KeyAscii
Case 48 To 57, 32  '(لإلغاء SPACE)
KeyAscii = 0
End Select
End Sub

 

[jjafferr]

10 ساعات مضت, kanory said:

استخدم هذا الكود .....

 

واذا عندك لوحة مفاتيح كبيرة ، فهذه ارقام ارقامها ، ويجب اضافتها للكود :

Case 96 To 105  'numeric pad

 

جعفر

[alsihran]

16 ساعات مضت, kanory said:

ستخدم هذا الكود ......

شكرا لك 

الكود يعمل بشكل صحيح لحقل الارقام

لكن ظهرت مشكلة

عندي في نفس مربع النص حدث بعد التحديث عند النقر على اي حرف تظهر الرسالة الموجودة في حدث بعد التحديث

ارجو حل هذه الجزئية 

 

5 ساعات مضت, jjafferr said:

واذا عندك لوحة مفاتيح كبيرة ، فهذه ارقام ارقامها ، ويجب اضافتها للكود :

شكر لك 🌷

nbm1.rar

[kanory]

25 دقائق مضت, alsihran said:

شكرا لك 

الكود يعمل بشكل صحيح لحقل الارقام

لكن ظهرت مشكلة

عندي في نفس مربع النص حدث بعد التحديث عند النقر على اي حرف تظهر الرسالة الموجودة في حدث بعد التحديث

ارجو حل هذه الجزئية 

ما بها الرسالة هل تريد الغائها وعدم ظهورها ؟؟؟؟؟

[alsihran]

 

6 دقائق مضت, kanory said:

ما بها الرسالة هل تريد الغائها وعدم ظهورها ؟؟؟؟؟

الرسالة يجب ان تظهر لكن بعد ادخال الرقم ويكون غير موجود بالجدول 

[kanory]

طيب برنامجك جربته وكتبت في الرقم 100 واشتغل عادي ايش المشكلة

[kanory]

انت وضع شرط للبرنامج لابد ان يكون رقم PC واحدة من الارقام الموجودة في الجدول الموجود في الصورة وفي حالة Text4 خالي تظهر الرسالة انت حدد ذلك للبرنامج

Me![Text4] = DLookup("[Pc]", "[Table1]", "[Pc]=forms![Form1].[Text0]")
Refresh
 If (IsNull(Forms![Form1]![Text4])) Or (Forms![Form1]![Text4] = "") Then
 
 MsgBox "Number not found", 48, "Attention"
 End If

 

[alsihran]

5 دقائق مضت, kanory said:

نت وضع شرط للبرنامج لابد ان يكون رقم PC واحدة من الارقام الموجودة في الجدول الموجود في الصورة وفي حالة Text4 خالي تظهر الرسالة انت حدد ذلك للبرنامج

الظاهر اني ما قدرت اوضح المشكلة بالشكل الطلوب

استاذنا 

لم يكون التركيز على حقل الارقام وانقر على حرف تظهر الرسالة 

والمفروض عند ادخال حرف ما يستجيب مربع النص لأي حدث 

[alsihran]

تم حل المشكلة بتغيير معادلة الكود 

 If (Not IsNull(Forms![Form1]![Text0])) And IsNull(Forms![Form1]![Text4]) Or (Forms![Form1]![Text4] = "") Then

شكرا لكم جميعا