درس بسيط درس بسيط لجعل الحقل النصى يقبل ارقام فقط

[أبوبسمله]

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

اخوانى فى الله احببت ان اضع درس بسيط لا يخفى على الكثيرين منكم ولكن مشاركه منى لما اتعلمه وحتى يستفاد منه المبتدئين امثالى ممن يتعلمون

فى بعض الاحيان نحتاج حقل نصى ولكن سوف نكتب به ارقام وحتى لا نقوم بحجز مساحات دون داعى

على سبيل المثال حقل لارقام المحمول نجعله نصى لان حقل المحمول سيتم تخزين فيه مثلا 11 رقم وحتى يقبل 0 باول الرقم , لان الحقل الرقمى لا يقوم بذلك

مثل الصوره الاولى

الكود التالى

IsNumeric([Tel])=صواب Or Is Null

يقوم باجبار المستخدم بادخال قيم رقميه او ترك الحقل فارغ

كما الصوره التاليه

وبالمثال يتضح المقال

 

ارجو ان اكون وفقت للشرح

تقبلوا تحياتى وتمنياتى لكم بالتوفيق

طبتم واهتديتم

 

 

ex.mdb

تم تعديل نوفمبر 30, 2019 بواسطه أحمد الفلاحجى

[عبد اللطيف سلوم]

معلومة مفيده

الله يجزيك الخير

[أبوبسمله]

جزاك الله خيرا اخى عبداللطيف

[محمد أبوعبدالله]

جزاك الله خيراً اخي احمد

راجياً من الله لك وللجميع الوفيق

تحياتي

 

[ابو ياسين المشولي]

وهذا بالكود قبل الحدث

 بدون تحقق من الصحه

If Not IsNumeric(Tel) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
ElseIf Len(Tel) <> 11 Then
 MsgBox "  فـضـلاً أدخـل  احـدعـشـر أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
Cancel = True
Me.Tel.Undo
End If

 

تم تعديل نوفمبر 30, 2019 بواسطه ابو ياسين المشولي

[أبوبسمله]

35 دقائق مضت, محمد ابوعبد الله said:

جزاك الله خيراً اخي احمد

راجياً من الله لك وللجميع الوفيق

تحياتي

 

واياك اخى محمد

34 دقائق مضت, ابو ياسين المشولي said:

وهذا بالكود قبل الحدث

 بدون تحقق من الصحه

If Not IsNumeric(Tel) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
ElseIf Len(Tel) <> 10 Then
 MsgBox "  فـضـلاً أدخـل  احـدعـشـر أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
Cancel = True
Me.Tel.Undo
End If

 

بارك الله فيك اخى ابوياسين

وجزاك الله خيرا

كنت اقوم بكتابه الكود وارفاقه ولكن ما اتعبنى فى كتابته هو ما اذا اراد ان يقوم المستخدم بترك الحقل فارغ ولا يكتب شىء

وهل كتابه الرقم 10 بدل 11 هذا لانه يعد من 0 كالمصفوفات ؟

تقبلوا تحياتى وسعيد بمشاركتكم

طبتم واهتديتم

[ابو ياسين المشولي]

8 دقائق مضت, أحمد الفلاحجى said:

واياك اخى محمد

بارك الله فيك اخى ابوياسين

وجزاك الله خيرا

كنت اقوم بكتابه الكود وارفاقه ولكن ما اتعبنى فى كتابته هو ما اذا اراد ان يقوم المستخدم بترك الحقل فارغ ولا يكتب شىء

وهل كتابه الرقم 10 بدل 11 هذا لانه يعد من 0 كالمصفوفات ؟

تقبلوا تحياتى وسعيد بمشاركتكم

طبتم واهتديتم

جرب هذا

If Not IsNumeric(Tel) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
ElseIf Len(Tel) <> 10Then
 MsgBox "  فـضـلاً أدخـل  عـشـرة أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 'Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
'Cancel = True
'Me.Tel.Undo
End If

 

8 دقائق مضت, أحمد الفلاحجى said:

واياك اخى محمد

بارك الله فيك اخى ابوياسين

وجزاك الله خيرا

كنت اقوم بكتابه الكود وارفاقه ولكن ما اتعبنى فى كتابته هو ما اذا اراد ان يقوم المستخدم بترك الحقل فارغ ولا يكتب شىء

وهل كتابه الرقم 10 بدل 11 هذا لانه يعد من 0 كالمصفوفات ؟

تقبلوا تحياتى وسعيد بمشاركتكم

طبتم واهتديتم

جرب هذا

If Not IsNumeric(Tel) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
ElseIf Len(Tel) <> 10Then
 MsgBox "  فـضـلاً أدخـل  عـشـرة أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 'Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
'Cancel = True
'Me.Tel.Undo
End If

 

[محمد سلامة]

جزاك الله خيرا استاذ احمد

[أبوبسمله]

48 دقائق مضت, ابو ياسين المشولي said:

جرب هذا

If Not IsNumeric(Tel) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
ElseIf Len(Tel) <> 10Then
 MsgBox "  فـضـلاً أدخـل  عـشـرة أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 'Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
'Cancel = True
'Me.Tel.Undo
End If

 

اخى ابوياسين

يقوم باظهار الرساله ثم يسمح

وقمت بادخال حرف فظهرت الرساله وسمح بالحرف

لا اعلم لماذا يسمح للحروف الان الحدث المستخدم للكود عند الخروج من الحقل

[أبوبسمله]

أخى ابو ياسين

افضل نتيجه توصلت اليها هو هذا الكود

Private Sub Tel_Exit(Cancel As Integer)

If IsNull(Tel) = True Then
    Me.Tel = Null
    DoCmd.GoToRecord , , acNewRec
    Me.Names.SetFocus
ElseIf Not IsNumeric([Tel]) Then
    MsgBox "  ÝÜÖÜáÇð ÃÏÎÜá  ÃÑÞÜÇã  ÝÜÞÜØ  æáÜíÜÓ  ÍÜÑ æ Ý ", vbInformation, "  : ÎÜØÜÇÁ "
    DoCmd.CancelEvent
    Me.Tel.Undo
ElseIf Len(Tel) <> 11 Then
    MsgBox "  ÝÜÖÜáÇð ÃÏÎÜá  ÇÍÜÏÚÜÔÜÑ ÃÑÞÜÇã  ÝÜÞÜØ  æáÜíÜÓ  ÇÞÜá  Çæ ÇßÜËÜÑ ", vbExclamation, " : ÎÜØÜÇÁ "
    Cancel = True 'åÐÇÇáÓØÑ æÇáÇ ÊÍÊå íÚíÏ ÇáÊÑßíÒ áäÝÓ ÇáÍÞá'
    Cancel = True
    Me.Tel.Undo
End If

End Sub

فهل هذا تمام ام هناك افضل

فى انتظار مشاركتكم اخوانى

تقبلوا تحياتى

طبتم واهتديتم

[ابو ياسين المشولي]

اظن هذا حسب طلبك

If Not IsNumeric(Tel) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
Me.Tel.Undo
ElseIf Len(Tel) <> 11 Then
 MsgBox "  فـضـلاً أدخـل  احد عـشـر أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
Me.Tel.Undo
End If

 

ex.mdb

تم تعديل نوفمبر 30, 2019 بواسطه ابو ياسين المشولي

[أبوبسمله]

منذ ساعه, ابو ياسين المشولي said:

اظن هذا خحسب طلبك

If Not IsNumeric(Tel) Then
 MsgBox "  فـضـلاً أدخـل  أرقـام  فـقـط  ولـيـس  حـر و ف ", vbInformation, "  : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
Me.Tel.Undo
ElseIf Len(Tel) <> 11 Then
 MsgBox "  فـضـلاً أدخـل  احد عـشـر أرقـام  فـقـط  ولـيـس  اقـل  او اكـثـر ", vbExclamation, " : خـطـاء "
 Cancel = True 'هذاالسطر والا تحته يعيد التركيز لنفس الحقل'
Me.Tel.Undo
End If

 

ex.mdb 352 kB · 1 تنزيلات

تسلم اخى واستاذى ابو ياسين

تغيير الحدث لقبل التحديث جعله يعمل بافضل حال

وعمل معى فالرد السابق لى فى حدث عند الخروج بالتمام

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

طبتم واهتديتم

[ابو ياسين المشولي]

بالتوفيق اخي احمد

[أبوبسمله]

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

قمت بالتحسين بالمثال شويه على سبيل التجريب والتعليم

لا استغنى عن تعديلاتكم واقتراحتكم وارشادتكم اخوانى واساتذتى  فى سبيل التعلم الصحيح

قمت باضافه حقل Kwmy بالجدول

قمت باضافه مديول لاستدعائه فى اى حقل وبه الكود التالى

Function chkNum(CNum As String, x As Byte)
Dim Cancel As Boolean
If Not IsNumeric(CNum) Then
     MsgBox "  ÝÜÖÜáÇð ÃÏÎÜá  ÃÑÞÜÇã  ÝÜÞÜØ  æáÜíÜÓ  ÍÜÑ æ Ý ", vbInformation, "  : ÎÜØÜÇÁ "
 Cancel = True 'åÐÇÇáÓØÑ æÇáÇ ÊÍÊå íÚíÏ ÇáÊÑßíÒ áäÝÓ ÇáÍÞá'
 DoCmd.CancelEvent
ElseIf Len(CNum) <> x Then
 MsgBox "  ÝÜÖÜáÇð ÃÏÎÜá " & x & " ÑÞã ÝÞØ ", vbExclamation, " : ÎÜØÜÇÁ "
 Cancel = True 'åÐÇÇáÓØÑ æÇáÇ ÊÍÊå íÚíÏ ÇáÊÑßíÒ áäÝÓ ÇáÍÞá'
DoCmd.CancelEvent
End If

End Function

وتم استدعائهم بالحقول كالتالى 

حقل قومى

Private Sub Kwmy_BeforeUpdate(Cancel As Integer)

Call chkNum(Kwmy, 14)

End Sub

حقل تليفون

Private Sub Tel_BeforeUpdate(Cancel As Integer)

Call chkNum(Tel, 11)

End Sub

والمثال المرفق بعد التعديل

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

طبتم واهتديتم

ex_up.mdb

[القبطـــان]

مشاء الله ربنا يبارك في حضرتك 

[أبوبسمله]

في ١٣‏/١٢‏/٢٠١٩ at 21:29, القبطان.دزاين said:

مشاء الله ربنا يبارك في حضرتك 

جزاك الله خيرا