اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

رسالة خطأ عند إدخال قيمة غير صحيحة في مربع النص


shod90

الردود الموصى بها

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

عندي نموذج فيه كود الموظف و تاريخ الميلاد

فرضا إذا ادخلنا حروف ليس تاريخ في حقل تاريخ الميلاد من المفترض أن تظهر لي رسالة علي سبيل المثال "قيمة تاريخ الميلاد غير صحيحة " و لكن لا أعرف كيف أفعلها لأن الرسالة الإفتراضية الخاصة بالأكسس تظهر لي و كودها 2113

جربت أن أغير نص الرسالة من حدث ONerror

Quote

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conErrDataType = 2113
If DataErr = conErrDataType Then
    MsgBox "قيمة تاريخ الميلاد غير صحيحة", vbInformation, "Easy Cash V.1.0"
     Response = acDataErrContinue
     End If
End Sub
 

و بالفعل نجحت .. و لكن إذا أدخلت كود الموظف حروف و ليس أرقام تظهر لي نفس الرسالة أيضا !! 

كيف يتم الفصل ما بين هذه القيمة و هذة القيمة 

رابط هذا التعليق
شارك

وعليكم السلام:smile:

 

جرب هاي الكود ، طبعا بعدما تغير اسماء الحقول


Private Sub Form_Error(DataErr As Integer, Response As Integer)

    'MsgBox DataErr & vbCrLf & Screen.ActiveControl.Name & vbCrLf & _
        Screen.ActiveControl.ControlType & vbCrLf & Screen.ActiveControl.Format
    
    If DataErr = 2113 And Screen.ActiveControl.Name = "iDate" Then
        Response = acDataErrContinue
        MsgBox "Date"
    
    ElseIf DataErr = 2113 And Screen.ActiveControl.Name = "icode" Then
        Response = acDataErrContinue
        MsgBox "Code"
    
    End If
    
End Sub

 

جعفر

رابط هذا التعليق
شارك

41 minutes ago, jjafferr said:

وعليكم السلام:smile:

 

جرب هاي الكود ، طبعا بعدما تغير اسماء الحقول



Private Sub Form_Error(DataErr As Integer, Response As Integer)

    'MsgBox DataErr & vbCrLf & Screen.ActiveControl.Name & vbCrLf & _
        Screen.ActiveControl.ControlType & vbCrLf & Screen.ActiveControl.Format
    
    If DataErr = 2113 And Screen.ActiveControl.Name = "iDate" Then
        Response = acDataErrContinue
        MsgBox "Date"
    
    ElseIf DataErr = 2113 And Screen.ActiveControl.Name = "icode" Then
        Response = acDataErrContinue
        MsgBox "Code"
    
    End If
    
End Sub

 

جعفر

تمام يا أستاذنا .. و لكن هو لا يسمح لي أن أذهب الي مربع نص أخر غير أما أعدل القيمة المدخلة 

هل في طريقة أتجاهل المشكلة غير في أخر النوذج و هو بيضغط علي حفظ يطلع له كل المشكلات المدخلة ؟

يعني مثلا يغير لون الخط أو يكون في علامة حمراء بجانب كل مربع و لكن يكونوا مخفيين و لما يكون في مشكلة في المدخلات تظهر ؟

رابط هذا التعليق
شارك

لا يمكن بالطريقة الحالية ، لأن الامر يأتيه من الجدول:blink:

 

عندك طريقتين لعمل الذي تريده:

1. ان تجعل الحقول غير مضمنه (غير مرتبطه بحقول بالجدول) ،

يعني عند الذهاب الى سجل ، تأتي بالسجل من الجدول برمجيا ، ثم تُدخل هذه القيم في حقول النموذج ، وعند التغيير/إضافة وقبل الخروج من السجل يجب حفظ البيانات برمجيا ،

2. ان تعمل حقل مزيف/مؤقت لجميع الحقول او للحقول التي تريد تعمل المطلوب عليها ، بالإضافة الى الحقل الاصلmyDate : مثل tDate يعني تاريخ مزيف/مؤقت ، غير مضمن ، نوعه نص ،

عند تحميل السجل ، تقول برمجيا: me.tDate = me.MyDate

وعند حفظ السجل تقول برمجيا: me.MyDate = me.tDate

عندها ستظهر رسالة الخطأ على الحقل MyDate

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

16 hours ago, jjafferr said:

لا يمكن بالطريقة الحالية ، لأن الامر يأتيه من الجدول:blink:

 

عندك طريقتين لعمل الذي تريده:

1. ان تجعل الحقول غير مضمنه (غير مرتبطه بحقول بالجدول) ،

يعني عند الذهاب الى سجل ، تأتي بالسجل من الجدول برمجيا ، ثم تُدخل هذه القيم في حقول النموذج ، وعند التغيير/إضافة وقبل الخروج من السجل يجب حفظ البيانات برمجيا ،

2. ان تعمل حقل مزيف/مؤقت لجميع الحقول او للحقول التي تريد تعمل المطلوب عليها ، بالإضافة الى الحقل الاصلmyDate : مثل tDate يعني تاريخ مزيف/مؤقت ، غير مضمن ، نوعه نص ،

عند تحميل السجل ، تقول برمجيا: me.tDate = me.MyDate

وعند حفظ السجل تقول برمجيا: me.MyDate = me.tDate

عندها ستظهر رسالة الخطأ على الحقل MyDate

 

جعفر

كم انت كبير يا أستاذ جعفر .. حفظك الله و رعاك

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information