اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

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

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

تحياتى

قام بنشر

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

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

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

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

 

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.rarFetching info...

  • Like 1
قام بنشر
  في 15‏/6‏/2020 at 15:06, ابو تراب said:

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

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

Expand  

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

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

  في 15‏/6‏/2020 at 15:54, أحمد الفلاحجى 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 تنزيلات

Expand  

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

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

  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information