السلام عليكم
الرجاء من الاخوة المساعدة في تعديل الكود:
If DCount("[cpr]", "[Appointment Entry]", "[cpr]='" & [Forms]![AppointDate]![Appointment Entry Subform]![CPR] & "' and [Appointment date]=#" & [Forms]![AppointDate]![Appointment Entry Subform]![Appointment Date] & "#") > 0 Then
MsgBox "Customer with same CPR no. has an appointment at this date", vbCritical, "Sweety78"
الكودين التاليين
DoCmd![Forms]![AppointDate]![Appointment Entry Subform].CancelEvent
Me![Forms]![AppointDate]![Appointment Entry Subform].Undo
End Ifخلاصة الاكواد هي ان تقوم بنسخ قيمة حقل من نموذج الى حقل آخر في نموذج مختلف، والمطلوب قبل التحديث التأكد من عدم تكرار هذه القيمة في الحقل في نفس التاريخ... وإن حدث التكرار فعليه المطلوب من أخر كودين (والمراد اجراء التعديل عليهما) إلغاء الحدث والتراجع عن النسخ من خلال أمر Undo وكل هذا من نموذج أخر منفصل كما ذكرت.
المشكلة تكمن هذين الكودين:
DoCmd![Forms]![AppointDate]![Appointment Entry Subform].CancelEvent Me![Forms]![AppointDate]![Appointment Entry Subform].Undo
الأول إلغاء الحدث
والثاني التراجع
أتمنى أن أكون قد وفقت في الشرح وأرجو ان اجل لديكم الحل
تحيااااتي
