[ تمت الإجابة ]نرجو المساعدة لمعرفة الخطاء في الكود في اسرع وقت

تفضل ملفك بعد التعديل

MF_db1.rar

بعد اذن استاذي محمد فؤاد

اذا كان حقل رقم السيارة ( نصي ) نستخدم هذا الكود في حدث بعد التحديث

Private Sub numCar_AfterUpdate()
If IsNull(DLookup("[numCar]", "full data", "[numCar]='" & Me![numCar] & "'" & " And IsNull([dateIn])")) = False Then
MsgBox "يوجد للسيارة عقد ساري"
DoCmd.CancelEvent
Me.Undo
End If
End Sub

ونستخدم هذا الكود في حدث قبل التحديث لأننا لو قمنا بإيقاف دالة IF الشرطيه فسيتم مباشرة التحديث الى الجدول بدون التحقق من ان السيارة مؤجرة مسبقا ام لا

Private Sub numCar_BeforeUpdate(Cancel As Integer)
If [numCar] = True Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryUpdate"
End If
DoCmd.SetWarnings True
End Sub

ارقام لوحات السيارات المتوفره هي

ح و ى 115

ق ط ر 111

الملف بعد التعديل

za_RentCars_UP.rar

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

نعتذر عن التاخير في الاطلاع على الاجابات والرد وذلك للانشغال في بعض الامور الرمضانية

نشكر الاخ محمد فؤاد والاخت زهرة جزيل الشكر على هذا التفاعل ومساعدتي في سؤالى اسئل الله ان يجعلة في موازين حسناتك

لكن للاسف يا اخت زهرة الكود لم يعمل عندي ولكن كود الاخ محمد فؤاد بارك الله فية عمل بشكل صحيح كيف؟\

للانة اذا كانت السيارة لها عقد ساري فانة من الطبيعي ان تكون مؤجرة فاذا تم التحديث الى مؤجرة فان ذلك لا يؤثر للان الناتج في النهاية واحد

بارك الله لجميع من قدم لي يد المساعدة في هذا الشهر الكريم واسئل الله ان يتقبل منا ومنكم صالح الاعمال

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

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة