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

[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
 

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

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

[jjafferr]

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

 

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

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

 

جعفر

[shod90]

41 minutes ago, jjafferr said:

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

 

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

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

 

جعفر

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

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

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

[jjafferr]

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

 

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

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

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

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

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

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

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

 

جعفر

[shod90]

16 hours ago, jjafferr said:

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

 

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

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

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

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

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

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

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

 

جعفر

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