اظهار رساله تجاوز العدد المسموح به من الارقام

[alriashi]

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

اسعد الله اوقاتكم بكل خير

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

الحقل الاول في النموذج يسمح بادخال (12) رقم والثاني يسمح بادخال (11)

وعملية الادخال تتم عن طريق النسخ واللصق واحيانا اغلط والصق ابو (11) في ابو (12) وهذا ينبهني لان فيه رقم ناقص

لكن المشكله اذا لصقت ابو (12) في ابو (11) ما ينبهين بان الرقم اكبر من المسموح به

المطلوب جزاكم الله خير في حالة ادخال رقم اكثر من العدد المسموح به تظهر رساله تنبهني تقول ادخلت رقم اكبر من المطلوب

والف شكر وتقدير

البيانات.accdb

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

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

تفضل اخي الكريم

البيانات.rar

تحياتي

 

[alriashi]

الله يجزاك خير استاذي ابو عبدالله

هذا اللي كنت اريده لحقل ابو (11) لكن المشكله الحين ما يسمح لي ادخال عدد (12) رقم في ابو (12)

وللتوضيح عندي تاشيرة من 12 رقم وبطاقه من 11 رقم 

مرات يجيني بطاقه ومرات يجيني تاشيرة

ويجب ادخال اي منهم في حقل id

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

اخوكم  Alriashi

تم تعديل يونيو 24, 2020 بواسطه alriashi

[alriashi]

شكرا استاذ ابو عبدالله

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

حقل البطاقه

If Len(id) <> 11 Then
        MsgBox "رقم بطاقه خاطئ"
       DoCmd.CancelEvent
       Else
       
       
    End If

حقل التأشيرة

If Len(id) <> 12 Then
        MsgBox "رقم تأشيرة خاطئ"
       DoCmd.CancelEvent
       Else
       
       
    End If

بيض الله وجهك ما قصرت

تم تعديل يونيو 24, 2020 بواسطه alriashi

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

بالتوفيق اخي الكريم

تحياتي

[alriashi]

سؤال الله يبارك فيك

كلمة Len الموجوده في الكود ماذا تعني...؟

وشكرا

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

1 دقيقه مضت, alriashi said:

كلمة Len الموجوده في الكود ماذا تعني...؟

تقوم بعد الحروف فى مربع نص

[alriashi]

الف شكر

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