ابوبسمله

ولا يهمك اخى ومعلمى ووالدى الحبيب فما نسيته انت فقد اكملته نيابه عنك فهذا قليل مما تعلمناه منكم فجزاكم الله عنا كل خير 💐 اللهم آمين اللهم آمين يشرفنى منادتكم لى بابنكم دكتور محمد ولا يصح ان يتوجه الاب لابنه باستاذى ومعلمى اللهم آمين جزاكم الله خيرا اخوانى وتقبل الله منكم اللهم آمين طيب اخى @Shaaban Elnagar جرب المثال المرفق هو نفس مثالى الاول مع تعديل بسيط وبدون ازرار وان شاء الله يشتغل معك هذه المره هل تقصد النموذج الفرعى طيب وهل تريد وقف الانتقال لرقم جديد الى ان يتم ملىء النموذج الفرعى ام ماذا ؟ بالتوفيق 1_2.accdb

السلام عليكم بعتذر عن التاخير بالرد وارجو الدعاء لجدى واسال الله ان يرحمه برحمته الواسعه وان يجعل قبره روضه من رياض الجنه وجزاهم الله خيرا اخوتى واساتذتى @ابو البشر و @مبرمج سابق على كل ما يقدمونه لنا فى سبيل التعلم والمساعده لاخوانهم المبتدئين امثالى 💐 واعذرنى فلم ارى مشكله بمثالى الذى ارفقته او الذى ارفقته انت استاذ شعبان ردا على مشاركتى ولا ادرى السبب هذا التعديل ع مثال اخى ومعلمى ووالدى الحبيب @مبرمج سابق واعتذر لو قمت بالتعديل بدون استئذان وهذا التعديل لسببين فى المثال السابق لمعلمى ووالدى الحبيب خالد عند الضغط عالزر يقوم بزياده الرقم بمعنى اذا كان المفروض السجل الثانى رقم 2 فيقوم باضافه 1 مره اخرى فيصبح 3 والثانى لمطلب الاستاذ شعبان Private Sub Form_Open(Cancel As Integer) 'If Me.NewRecord Then أمر11_Click 'End If End Sub Private Sub أمر11_Click() DoCmd.GoToRecord , , acNewRec Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1 Me.as_a2 = Date Me.Pu_inx8.SetFocus Me.Refresh Me.Pu_inx8.Form!as_b2.SetFocus End Sub وأخيرا اسالكم مره اخرى الدعاء لجدى بالرحمه ولجميع امواتنا من المؤمنين والمؤمنات والمسلمين والمسلمات وجزاكم الله خيرا 1(1).accdb

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

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

السلام عليكم مشاركه مع اخواتى واساتذتى الافاضل ابو البشر و ابوجودى اولا قمت بازاله القيمه الافتراضيه للترقيم فالنموذج الرئيسى وكذلك تعديل خاصيه ممكن الى نعم ثم وضع كود الترقيم فى حدث عند الفتح Private Sub Form_Open(Cancel As Integer) 'On Error Resume Next DoCmd.GoToRecord , , acNewRec Me.as_a1.SetFocus Me.as_a1 = Nz(DMax("as_a1", "pu_inv8")) + 1 Me.Pu_inx8.SetFocus Me.Pu_inx8.Form!as_b2.SetFocus End Sub بالتوفيق 1_1.accdb

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

السلام عليكم ورحمه الله وبركاته مشاركه مع مهندسنا العزيز قاسم جزاه الله خيرا 💐 اخى الفاضل عبدالحميد عدل السطر المشار اليه الى Dim rs As DAO.Recordset وان شاء الله مهندسنا العزيز يكمل معك باقى الاجوبه بالتوفيق

وعليكم السلام ورحمه الله وبركاته ما علينا طالما البرنامج الذى تود من رؤيته معمول له سيت اب فمعنى هذا الكلام ان البرنامج ليس لك والا كنت قد رفعت قاعده البيانات الاصليه مباشره فعليه يجب عليك التوجه لصاحب البرنامج لطلب ما تريد منه لحفظ حقوق الملكيه تقبل تحياتى وكل عام وانتم بخير بالتوفيق

مجرد ايضاح بسيط ربما يفيد احدكم اخيرا قد يقول قائل انا اريد استخدام female و male ولكن لا ارغب في كتابة الكلمة كاملة ارغب فقط بكتابة الحرف الاول فقط فما هو الحل اكسس يتيح لنا استخدام النجمة ايضا في حقل البحث شاهد الصورة تحياتي ماشاء الله عليك انت والدى العزيز خالد ع هذه التفسيرات والتوضيحات الرائعه التى اتعلم منها كل يوم اول مره ارى مثل هذا الاستخدام مع nz جزاكم الله عنا كل خير 💐 العفو استاذه لمياء والشكر كله لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم جزاهم الله عنا كل خير بالتوفيق وكل عام وانتم بخير

وعليكم السلام ورحمه الله وبركاته كل عام وحضرتك طيبه استاذه @Lamyaa عيدك مبارك بسبب الحقول الفارغه اتفضلى تم التعديل فالكود والاستعلام Private Sub cmdFilter_Click() DoCmd.ApplyFilter "", "[ID] Like '*" & [txtID] & "*'" & _ " AND [SName] Like '*" & [txtSName] & "*'" & _ " AND [Gender] Like '*" & [txtGender] & "*'" & _ " AND nz([A1],'') Like '*" & [txtA1] & "*'" & _ " AND nz([A2],'') Like '*" & [txtA2] & "*'" & _ " AND nz([A3],'') Like '*" & [txtA3] & "*'" & _ " AND nz([A4],'') Like '*" & [txtA4] & "*'" & _ " AND nz([A5],'') Like '*" & [txtA5] & "*'" & _ " AND nz([A6],'') Like '*" & [txtA6] & "*'" & _ " AND nz([A7],'') Like '*" & [txtA7] & "*'" & _ " AND nz([A8],'') Like '*" & [txtA8] & "*'" & _ " AND nz([A9],'') Like '*" & [txtA9] & "*'" End Sub بالتوفيق Filters(1).accdb

عيدكم مبارك كل عام وانتم بالف خير

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

السلام عليكم اخى ازهر معلش الاجابه متاخره هذه الرساله خاصه بصلاحيات الويندوز ويمكن حلها كالتالى ادخل ع C:\Program Files وقف ع الفولدر AccTxt كليك يمين وبروبيرتز ثم سكيورتى ثم ادفانسد ثم اتشينج بريميشن ثم قف ع اليوزر المستخدم للويندوز واضغط على زر ايديت ثم فعل اختيار Allow ثم اوك للاخر ثم جرب التطبيق ان شاء الله يعمل معك بالتوفيق ع ما اعتقد نعم ولكن اهل الذكر فى منتدى الاكسيل قم بنسخ رابط الموضوع وافتح موضوع جديد فى قسم الاكسيل بامكانيه تطبيق هذا العمل بالرابط التالى وضع الرابط على الاكسيل وان شاء الله اخوانا واساتذتنا فى قسم الاكسيل سوف يقوموا بمساعدتك ان شاء الله بالتوفيق

بس فى ملحوظه اخى عمر @عمر ضاحى فى التسميه فالحقول لا تجعل الاسم Amount-Erad ليه علشان لما تستخدمه فالاستعلام الاكسيس هيحسب دول حقلين مطروحين من بعض اجعله Amount_Erad بالتوفيق

احسنت مهندسنا العزيز قاسم مثل النتيجه بتاعتى جزاك الله خيرا qTotal الشهر SumAmountErad SumAmountMsrofat frk 2022/07 2400 330 2070 2022/08 1300 2000 -700

الحمد لله اتظبط دلوقتى 💐

عن نفسى لجهلى باشياء كثيره فكنت استخدم ما اتعلمه واوظفه فيما اريد ان افعله وعندما اتعلم شىء جديد ويسهل الامور علي بعتمد ع الاسهل والايسر وممكن بقى مع زحمه الامور فالمخ والانشغال مع اول فكره تيجى لحل السؤال بنضعها ههههههههههههه سواء كانت سهله او معقده بعض الشىء النسيان شىء وارد وطبيعى ونحمد الله على كل حال ربنا يعطيكم الصحه جزاكم الله عنا كل خير هو الموقع فيه مشكله ام عندى بس شاشه المحرر فيها مشكله الجزء الخاص بالتنسيقات غير ظاهر عندى ؟

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

السلام عليكم مشاركه مع الاستاذ @عمر ضاحى جزاه الله خيرا ببساطه قمت باضافه البيانات المطلوبه للكمبو ثم استدعائها وتعلمت بساطتها من اخى واستاذى ووالدى العزيز خالد جزاه الله عنى كل خير Private Sub Text74_AfterUpdate() Combo76 = Me.Text74.Column(1) Text82 = Me.Text74.Column(2) End Sub بالتوفيق Test.mdb

الله يسلمك اخى الكريم وفيك بارك الله الشرح موجود بالاعلى فى تانى مشاركه بالموضوع لاخى واستاذى العزيز خالد اولا الخطأ الموجود بالمرفق ليس له علاقه بالسؤال وموجود فاصل المرفق نفسه ثانيا انا قمت بتوضيح الطريقه بالنسبه للكمبو الموجود الخاص بالاسم سواء البحث بالرقم او الاسم فقم انت بعملها لما تريد للبحث عن الاصناف ارفقت المرفق بعد تعديل طفيف للكمبو بحيث لما تبحث ياتى لك بما بحثت عنه كما كان فقط بالتوفيق 2_مكتب قرطاسية.rar

السلام عليكم بعد اذن اخى ومعلمى ووالدى العزيز خالد اتفضل اخى @شامل2 بالرغم من اختلاف الصوره الاولى لك والمثال قمت بالتعديل عالمثال لتفهم الفكره بنفس الشرح السابقى لمعلمى العزيز @مبرمج سابق جزاه الله عنا كل خير قمت باضافه حقلين غير منضم تحت الكمبو بالتوفيق 1_مكتب قرطاسية.rar

صحيح معلمنا العزيز وانتظره ع قائمه الخبراء هو وبعض الاخوه ما شاء الله عليهم ربنا يباركلنا فيهم

نعم هى حذفت بناء ع طلب الاستاذ سيد لانه قام بتطويره ويعرض للبيع ولا يوجد للموقع اى صله بالبرنامج اخى ومهندسنا العزيز قاسم لعله لم يرى التعليقات هل راسلته على الواتس ان لم تكن راسلته على الواتس فراسله وان كنت راسلته ولم يرد فلعله قام بتغيير رقم هاتفه فالموضوع من سنه 2015 سوف اقوم بالاشاره للاستاذ جمال حتى يصله تنبيه @Elsayed Bn Gemy وسوف اقوم بارسال رساله له ايضا وربنا ييسرها ان شاء الله ويتواصل مع حضرتك برساله بالتوفيق

نعم صحيح اخى واستاذى ووالدى الحبيب ع فكره رائيك من راى معلمنا العزيز جعفر يرجعلنا بالسلامه ان شاء الله ولكن ليس لدي كثير منا طريق غيره هو والمنتديات للتعلم وانا اول هؤلاء الطلاب الذين يسعون للتعلم نعم الاغلبيه العظمى كذلك ورايت عدد قليل قام بايقاف الاعلانات بسبب ظهور اعلانات قبيحه للمشاهد فاوقفها واكتفى بمن لديه الاستطاعه للتبرع للدعم جزاه الله خيرا ع فعله وربنا يعوضه ويرزقه كل خير فعل قبيح منه ربنا يهديه وجزاك الله كل خير عما تقدمه لنا من معلومات كثيره ومفيده بابسط الطرق وايسرها عن نفسى تعلمت الكثير منك ومن اسلوبك السهل ومحاورتك معنا ومع استاذ جعفر جزاكم الله عنا كل خير ولن نستطيع ان نوفيكم انتم وجميع اخواننا واساتذتنا الذين يساهمون فى ايصال تلك المعلومات حقوكم فاسال الله ان يجازيكم عنا خير الجزاء وان يرزقكم الفردوس الاعلى وان يبارك لكم فى اهليكم وكل ماتحبون ولك من اخوك وابنك الصغير احمد كل تحيه معطره بالذكر الله يحفظكم 💐🌹 اللهم آمين وإياكم تقبلوا تحيات اخوكم وابنكم الصغير احمد

وده تعديل اضافى ليظهر كما بالصوره للتقرير Q_bait_mon بالتوفيق TEST-22.accdb