أبوبسمله

اتفضل اخى جرب ووافنى بالنتيجه Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer) x = Trim(DLookup("الوظيفـة", "البيانات", "[الوظيفـة] = 1 and [اسم المدرسة]='" & [اسم المدرسة] & "'")) y = Me.الوظيفـة.Column(0) If x = y Then MsgBox "هذه الوظيفه تم تسجيلها من قبل لهذه المدرسه" DoCmd.CancelEvent Else End If End Sub المدرسه.accdb

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

لم يحدث معى ذلك قمت بحذف كشف 1 واختياره تم غيرت كشف 1 لكشف 3 ثم العوده تم اشرح خطواتك بالتفصيل لعلى لم افهم ماذا تقصد

وفيك بارك الله اخى محمد ولا يهمك اخى كلنا نخطئ ونتعلم من اخطائنا بالتوفيق اخوانى

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 وفيك بارك الله اخى بالتوفيق

وعليكم السلام اتفضل اخى @ابوصلاح ان شاء الله يكون ما تريد جرب ووافنا بالنتيجه بالتوفيق اخى العد من 1 الي 14.accdb

وعليكم السلام اتفضل اخى الفاضل @ameer.iraq.93 ملحوظه : يجب عدم استعمال الغه العربيه فى تسميه الحقول والجداول يمكنك استخدام اللغه العربيه فالتسميه التوضيحيه للحقل من خصائص الحقل كما يجب عدم استخدام مسافات فالتسميه واستخدام حرف كبير او علامه _ الشرطه السفليه جرب ووافنا بالنتيجه Private Sub الوظيفـة_BeforeUpdate(Cancel As Integer) If Me.الوظيفـة.Column(1) = "مدير مدرسة" Then MsgBox "هذه الوظيفه تم تسجيلها من قبل" Me.Undo End If End Sub بالتوفيق المدرسة.accdb

احسنت اخى خالد جزاك الله خيرا 💐 عملت بنفس طريقتك 😀 بالتوفيق اخوانى

اتفضل اخى ازهر ان شاء الله يكون ما تريد بالتوفيق الجمع باكثر من شرط.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 بالتوفيق اخى

وعليكم السلام فى مشكله عندك فى اعدادت اللغه لانى لما غيرت اسم التقرير لى Etat1 فتح المحرر عادى بالتوفيق مشكل في التقارير.accdb

الشكر لله ثم لاخوانى واساتذتى جزاهم الله خيرا 💐 بالتوفيق اخى

اتفضل اخى ازهر ان شاء الله يكون ما تريد =IIf([L1]<>"";Nz(DSum("N1";"TBR";"[W]='X' and [L1]=" & [IDL]);0);" New Microsoft Access قاعدة بيانات(2).accdb

اتفضل اخى @صايل عزام ان شاء الله يكون ما تريد Repair(4).mdb

وعليكم السلام اخى @صايل عزام ممكن ارفاق مثال لما لديك

ليس مخالف بل نحن نطالب بهذا من الجميع وفي آخر توقيعي رابط الطريقه للتغيير بالتوفيق

وعليكم السلام اخى @tiger wanted هل هذا ما تريد ؟ Database11.accdb

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

وعليكم السلام مشاركه مع اخى واستاذى @محمد أبوعبدالله جزاه الله خيرا هل هذا ما تريد ؟ FrEmpl.rar

مشاركه مع اخى @فايز.. جزاه الله خيرا💐 اتفضل التعديل ع مثالك اخى بالتوفيق اخوانى A_dbu - 11.rar

الشكر لله ثم لاخوانى واساتذتى جزاهم الله خيرا 💐 بالتوفيق اخى

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

وعليكم السلام اخى واستاذى @محمد سلامة مشاركه لاخى واستاذى @ابو تراب جزاه الله خيرا ومنورين الموقع اساتذتى 💐 ارفق لك مثال لاختنا زهره جزاها الله خيرا 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

مشاركه مع اخى واستاذى العزيز @kha9009lid جزاه الله خيرا 💐 استخدم استعلام تحديث للحقل المراد طالما انك تريد وضع مسافات انا واضع 5 مسافات كمثال لاظهارها بالتوفيق

احسنت اخى @ledoledo وجزاك الله خيرا مشاركتك الحل لنستفيد بارك الله فيك 💐