أبوبسمله

وعليكم السلام ورحمه الله وبركاته فى الاستعلام corporate_invoice2 اجعله استعلام تحديد فقط والغى عمليه التجميع للاستعلام وسوف تظهر معك جميع السجلات بالتوفيق

اتفضل جرب التعديل بالتوفيق 1_3.accdb

وعليكم السلام ورحمه الله وبركاته اتفضل ان شاء الله يكون ما تريد اضغط عالزر للحصول على العدد بالتوفيق Database1(1).accdb

ولا يهمك اخى موسى كلنا بنكمل بعض

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

السلام عليكم ورحمه الله وبركاته اخى الفاضل @Hamtoooo بعد اضافه الرابط مباشره تضغط انتر سيظهر كالتالى 👇 بالتوفيق

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

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

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

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

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