أبوبسمله

وعليكم السلام اخى @محمد التميمي هل هذا ما تريد ؟ DoCmd.OpenReport "Table", acViewPreview, , "Newborns Between forms!DateBetween!Text2 And forms!DateBetween!Text3" حقل Newborns فالجدول رقمى وليس تاريخ بالتوفيق 454(1).accdb

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد ؟ New Microsoft Access قاعدة بيانات.accdb

السلام عليكم مشاركه مع الاستاذ @عبدالله المجرب جزاه الله خير 1 - فى النموذج وفى قناع الادخال ضع "09"&0\ 0000000 بعد كتابه الاسم والانتقال مباشره اكتب اول رقم من بعد 9 مباشره الحل الاخر كما وضعه الاستاذ عبدالله فى المثال الاول وهو فى حدث عند التركيز زودت السطر التالى Number_Tel1.SelStart = 2 ليصبح الكود كالتالى Private Sub Number_Tel1_GotFocus() If IsNull(Me.Number_Tel1) Then Me.Number_Tel1 = "09" Number_Tel1.SelStart = 2 End If End Sub Private Sub Number_Tel2_GotFocus() If IsNull(Me.Number_Tel2) Then Me.Number_Tel2 = "09" Number_Tel2.SelStart = 2 End If End Sub بالتوفيق

اتفضل اخى جرب ووافنى بالنتيجه 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

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

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