[Microformt]

بسم الله الرحمن الرحيم

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

كيف اشترط على المستخدم  إدخال نص في مكان اسم المواظف  وفي رقم المواظف إدخال رقم ؟؟
نامل من الله المساعدة والله يحفظكم ويرعاكم في برنامجي المرفق
 تحياتي

[Ahmed_Mansoor]

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

أهلا بك أخي سالم , ضع هذا الكود في داخل كود المثال الذي أرفقته :

PHP كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

Dim zNumbers As String

zNumbers = "0123456789"

If InStr(1, zNumbers, Chr$(KeyAscii)) > 0 Then KeyAscii = 0: Exit Sub

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

Dim zNumbers As String

zNumbers = "0123456789"

If InStr(1, zNumbers, Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub

End Sub 


[Microformt]

(23-10-16, 01:39 AM)Ahmed_Mansoor كتب : وعليك السلام ورحمة الله وبركاته

أهلا بك أخي سالم , ضع هذا الكود في داخل كود المثال الذي أرفقته :

PHP كود :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

Dim zNumbers As String

zNumbers = "0123456789"

If InStr(1, zNumbers, Chr$(KeyAscii)) > 0 Then KeyAscii = 0: Exit Sub

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

Dim zNumbers As String

zNumbers = "0123456789"

If InStr(1, zNumbers, Chr$(KeyAscii)) <= 0 Then KeyAscii = 0: Exit Sub

End Sub 


اخي العزيز : احمد
 جزك الله با الجنه انت ومن تحب
 تحياتي