[ تمت الإجابة ] كيف يمكن معالجة مشكلة اضافة التواريخ؟

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

أخي الكريم .. لا تستخدم هذا الكود

On Error Resume Next

لأنه في حال وجود خطأ فلن تعلم بوجوده .. لأنك به تخبر مترجم اللغة أنه في حال وجود خطأ تجاوزه

نأتي الآن لحل مشكلتك .. في حدث النقر لزر CmdSave وضعت كود للتعديل أو الحفظ .. وأسندت القيم الموجودة في مربعات النص إلى حقول rs ولكنك نسيت أن مربع النص من إسمه يحمل بيانات من نوع نص .. لذا يجب تحويلها إلى النوع الصحيح لحقول جدولك .. فلو كان مربع النص يمثل حقل من نوع رقم فمن الأفضل تحويله لرقم (بإستخدام CInt للعدد الصحيح أو CDbl للعدد العشري) مع أن مترجم اللغة يتجاوز عن الرقم .. أما التاريخ وطبعا الوقت مثله فيجب تحويل قيمة مربع النص إلى تاريخ بإستخدام CDate فيكون التعديل على الكود كالتالي

If Me.CmdSave.Caption = "تعديل" Then
rs.Edit
rs!DiscountInfoNo = txtDiscountInfoNo
rs!CustomerNmbr = txtCustomerName
rs!LoanID = txtLoanID
rs!StartDate = CDate(txtStartDate)
rs!EndDate = CDate(txtEndDate)
rs!Notes = txtNotes
rs.Update
txtDiscountInfoNo = Null
txtCustomerName = Null
txtLoanID = Null
txtStartDate = Null
txtEndDate = Null
txtNotes = Null
Me.CmdSave.Caption = "حفظ "
txtDiscountInfoNo.SetFocus
Else
rs.AddNew
rs!DiscountInfoNo = txtDiscountInfoNo
rs!CustomerNmbr = txtCustomerName
rs!LoanID = txtLoanID
rs!StartDate = CDate(txtStartDate)
rs!EndDate = CDate(txtEndDate)
rs!Notes = txtNotes
rs.Update
txtDiscountInfoNo = Null
txtCustomerName = Null
txtLoanID = Null
txtStartDate = Null
txtEndDate = Null
txtNotes = Null
End If
Me.CmdSave.Caption = "حفظ "
txtDiscountInfoNo.SetFocus

وبالتوفيق

بســم الله الـرحمــن الرحيــم

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

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