مطلوب كود عدم تكرار رقم الفاتورة فى نفس التاريخ

[محمد سلامة]

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

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

لان جربت اكثر من كود ولا يظبط معي للاسف

تحياتى

[ابو تراب]

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

ممكن عمل مفتاح يتكون من رقم الفاتورة و التاريخ

[أبوبسمله]

وعليكم السلام اخى واستاذى @محمد سلامة

مشاركه لاخى واستاذى @ابو تراب جزاه الله خيرا

ومنورين الموقع اساتذتى 💐

ارفق لك مثال لاختنا زهره جزاها الله خيرا

 

Private Sub Rn_AfterUpdate()
If DLookup("[رقم الملف]", "[الحضور]", "[رقم الملف]=" & Me![Rn] & " AND [التاريخ] =#" & Date & "#") Then
    MsgBox "معذرة اخي الكريم .... هذا الرقم سبق ادخاله من قبل", vbCritical, "تنبيه"
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    DoCmd.Close
    Else
    DoCmd.Requery "الاسم1"
    DoCmd.Requery "الوظيفة1"
    DoCmd.RunCommand acCmdSaveRecord
End If
End Sub

 

ارجو ان يفى بالغرض معك استاذى

بالتوفيق

 

za-عدم تكرار الرقم-END.rar

[محمد سلامة]

1 ساعه مضت, ابو تراب said:

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

ممكن عمل مفتاح يتكون من رقم الفاتورة و التاريخ

اشكرك اخي ابو تراب

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

منذ ساعه, أحمد الفلاحجى said:

وعليكم السلام اخى واستاذى @محمد سلامة

مشاركه لاخى واستاذى @ابو تراب جزاه الله خيرا

ومنورين الموقع اساتذتى 💐

ارفق لك مثال لاختنا زهره جزاها الله خيرا

 

Private Sub Rn_AfterUpdate()
If DLookup("[رقم الملف]", "[الحضور]", "[رقم الملف]=" & Me![Rn] & " AND [التاريخ] =#" & Date & "#") Then
    MsgBox "معذرة اخي الكريم .... هذا الرقم سبق ادخاله من قبل", vbCritical, "تنبيه"
    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    DoCmd.Close
    Else
    DoCmd.Requery "الاسم1"
    DoCmd.Requery "الوظيفة1"
    DoCmd.RunCommand acCmdSaveRecord
End If
End Sub

 

ارجو ان يفى بالغرض معك استاذى

بالتوفيق

 

za-عدم تكرار الرقم-END.rar 52.73 kB · 3 تنزيلات

حبيبي يا غالي استاذ احمد شعلة المنتدي

هجرب وارد عليك 🌹😍💓

[أبوبسمله]

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

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