محمد سلامة قام بنشر يونيو 15, 2020 قام بنشر يونيو 15, 2020 السلام عليكم ورحمة الله مطلوب كود اذا تم ادخال رقم الفاتورة فى نفس التاريخ مرة اخرى تظهر رسالة الفاتورة مكررة فى نفس التاريخ لان جربت اكثر من كود ولا يظبط معي للاسف تحياتى
ابو تراب قام بنشر يونيو 15, 2020 قام بنشر يونيو 15, 2020 وعليكم السلام ممكن عمل مفتاح يتكون من رقم الفاتورة و التاريخ 1
أبوبسمله قام بنشر يونيو 15, 2020 قام بنشر يونيو 15, 2020 وعليكم السلام اخى واستاذى @محمد سلامة مشاركه لاخى واستاذى @ابو تراب جزاه الله خيرا ومنورين الموقع اساتذتى 💐 ارفق لك مثال لاختنا زهره جزاها الله خيرا 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... 1
محمد سلامة قام بنشر يونيو 15, 2020 الكاتب قام بنشر يونيو 15, 2020 في 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 حبيبي يا غالي استاذ احمد شعلة المنتدي هجرب وارد عليك 🌹😍💓 1
أبوبسمله قام بنشر يونيو 15, 2020 قام بنشر يونيو 15, 2020 العفو استاذ محمد انتم استذتى جزاكم الله خيرا بالتوفيق ان شاء الله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.