أبوبسمله

جزاك الله خيرا معلمنا الجليل @ابوخليل 💐

جزاك الله خيرا معلمنا الجليل @ابوخليل 💐

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

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

وعليكم السلام مشاركه مع اخى واستاذى العزيز محمد @أبو عبدالله الحلوانى جزاه الله خيرا بالتنسيق الشرطى يمكن يلبى طلبك بالتوفيق test.accdb

وعليكم السلام اخى @at_aziz اتفضل ان شاء الله يكون ما طلبت بالتوفيق azizk.rar

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

مشاركه مع اخى واستاذى محمد @محمد أبوعبدالله اتفضل تم تغيير المعيار [forms]![نموذج استعلام بالجهة]![مربع_تحرير_وسرد22] قاعدة ابوبكر.mdb

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

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

اخى @husseinharby جرب ووافنى بالنتيجه وان شاء الله يكون فى حلول افضل الكود موجود فى حدث بعد التحديث للفورم الفرعى Private Sub Form_AfterUpdate() DoCmd.RunCommand acCmdSaveRecord Me.Requery 'MsgBox Me.Text70.Value Forms!sale!code.SetFocus If Forms!sale!code = 1 Then Forms!sale!deposit = Forms!sale!Text49 Else Forms!sale!deposit = 0 End If Forms!sale!sale_sub.SetFocus DoCmd.GoToRecord , , acNewRec End Sub بالتوفيق copy-2.accdb

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

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

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

بالمشاركه مع اخوانى واساتذتى خالد وحسام جزاهم الله خيرا 💐 ارفق موضوع لام عهود جزاها الله خيرا للاطلاع http://arabteam2000-forum.com/index.php?/topic/74264-مشكلة-خطيرة-فى-التقريب-داخل-access/

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

السلام عليكم اخى @husseinharby مشاركه مع اخى العزيز @husamwahab جزاه الله خيرا نفس كود اخى حسام بس نقلته فى حدث عند الخروج للتكست 49 الصافى بعد اختيار الصنف وادخال القيم سيتم نقل التركيز على حقل الصافى وعند الضغط ع انتر او تاب سيتم تحديث حقل الدفعه ونقل التركيز مره اخرى للنموذج الفرعى ان شاء الله يكون ما تريد بالتوفيق copy-2.accdb

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

وعليكم السلام اخى @محمد التميمي هل هذا ما تريد ؟ 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 ثم العوده تم اشرح خطواتك بالتفصيل لعلى لم افهم ماذا تقصد

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