رسالة تحذير بتكرار الفاتورة

[husseinharby]

السلام عليكم

اريد رسالة تحذير اذا قمت بعمل فاتورة في نفس التاريخ لنفس العميل

M88usic.rar

[أبوبسمله]

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

بارك الله فيك اخى حسين

اتفضل ان شاء الله يكون ما تريد اختار العميل وعند كتابه التاريخ سيتم التنفيذ

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

A_DlookupNew.accdb

[husseinharby]

السلام عليكم استاذ احمد

حضرتك بنيت الكود علي اساس ادخال التاريخ يدوي

لكن التاريخ عندي افتراضي

اي انني لا اقوم بادخال التاريخ لكنه يظهر تلقائي

لذا لاتظهر الرسالة

[أبوبسمله]

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

اخى حسين خد الكود من قبل التحديث للتاريخ

وضعه بحدث قبل التحديث لكود العميل اى عندما تختار العميل

بالتوفيق ان شاء الله

[husseinharby]

استاذ احمد

الكود يمنع اضافة اي فاتورة للعميل حتي بعد تغيير التاريخ

المطلوب ان تظهر رسالة تحذيرية اذا كان  نفس التاريخ فقط

وان يترك لي حرية التسجيل بعد التحذير

 

[أبوبسمله]

عفوا اخى حسين

كان يوجد خطأ مطبعى بالكود 😀

x = Nz(DLookup("sale_id", "sale", "[reg_date]=" & Format([reg_date], "\#mm\/dd\/yyyy\#") & "And [code]=" & [code]), 0)

If x > 0 Then
MsgBox ("íæÌÏ ÝÇÊæÑå áåÐÇ ÇáÚãíá :" & " " & Me.code.Column(1) & " " & "/ ÈäÝÓ ÇáÊÇÑíÎ ")
Me.Undo
End If

جرب الان ووافنى بالنتيجه

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

AUP_DlookupNew.accdb

[husseinharby]

سلمت يداك يا ابو بسملة ياغالي

هدية بسيطة كده

[أبوبسمله]

جزاك الله خيرا وهديه مقبوله منك ياطيب

هديتى  انت عرفتها خلاص

بالتوفيق ان شاء الله