shod90 قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 السلام عليكم و رحمة الله و بركاتة عندي نموذج فيه كود الموظف و تاريخ الميلاد فرضا إذا ادخلنا حروف ليس تاريخ في حقل تاريخ الميلاد من المفترض أن تظهر لي رسالة علي سبيل المثال "قيمة تاريخ الميلاد غير صحيحة " و لكن لا أعرف كيف أفعلها لأن الرسالة الإفتراضية الخاصة بالأكسس تظهر لي و كودها 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 و بالفعل نجحت .. و لكن إذا أدخلت كود الموظف حروف و ليس أرقام تظهر لي نفس الرسالة أيضا !! كيف يتم الفصل ما بين هذه القيمة و هذة القيمة رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 وعليكم السلام جرب هاي الكود ، طبعا بعدما تغير اسماء الحقول 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 جعفر رابط هذا التعليق شارك More sharing options...
shod90 قام بنشر يناير 15, 2018 الكاتب مشاركة قام بنشر يناير 15, 2018 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 جعفر تمام يا أستاذنا .. و لكن هو لا يسمح لي أن أذهب الي مربع نص أخر غير أما أعدل القيمة المدخلة هل في طريقة أتجاهل المشكلة غير في أخر النوذج و هو بيضغط علي حفظ يطلع له كل المشكلات المدخلة ؟ يعني مثلا يغير لون الخط أو يكون في علامة حمراء بجانب كل مربع و لكن يكونوا مخفيين و لما يكون في مشكلة في المدخلات تظهر ؟ رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 لا يمكن بالطريقة الحالية ، لأن الامر يأتيه من الجدول عندك طريقتين لعمل الذي تريده: 1. ان تجعل الحقول غير مضمنه (غير مرتبطه بحقول بالجدول) ، يعني عند الذهاب الى سجل ، تأتي بالسجل من الجدول برمجيا ، ثم تُدخل هذه القيم في حقول النموذج ، وعند التغيير/إضافة وقبل الخروج من السجل يجب حفظ البيانات برمجيا ، 2. ان تعمل حقل مزيف/مؤقت لجميع الحقول او للحقول التي تريد تعمل المطلوب عليها ، بالإضافة الى الحقل الاصلmyDate : مثل tDate يعني تاريخ مزيف/مؤقت ، غير مضمن ، نوعه نص ، عند تحميل السجل ، تقول برمجيا: me.tDate = me.MyDate وعند حفظ السجل تقول برمجيا: me.MyDate = me.tDate عندها ستظهر رسالة الخطأ على الحقل MyDate جعفر 2 رابط هذا التعليق شارك More sharing options...
shod90 قام بنشر يناير 16, 2018 الكاتب مشاركة قام بنشر يناير 16, 2018 16 hours ago, jjafferr said: لا يمكن بالطريقة الحالية ، لأن الامر يأتيه من الجدول عندك طريقتين لعمل الذي تريده: 1. ان تجعل الحقول غير مضمنه (غير مرتبطه بحقول بالجدول) ، يعني عند الذهاب الى سجل ، تأتي بالسجل من الجدول برمجيا ، ثم تُدخل هذه القيم في حقول النموذج ، وعند التغيير/إضافة وقبل الخروج من السجل يجب حفظ البيانات برمجيا ، 2. ان تعمل حقل مزيف/مؤقت لجميع الحقول او للحقول التي تريد تعمل المطلوب عليها ، بالإضافة الى الحقل الاصلmyDate : مثل tDate يعني تاريخ مزيف/مؤقت ، غير مضمن ، نوعه نص ، عند تحميل السجل ، تقول برمجيا: me.tDate = me.MyDate وعند حفظ السجل تقول برمجيا: me.MyDate = me.tDate عندها ستظهر رسالة الخطأ على الحقل MyDate جعفر كم انت كبير يا أستاذ جعفر .. حفظك الله و رعاك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.