أبوبسمله

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

وعليكم السلام ع حسب ما فهمت فى حدث عند الصفحه ضع الكود التالى Private Sub Report_Page() MsgBox "هذا التقرير يتكون من عدد " & Pages & " صفحه " End Sub بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐 والشكر موصو لاخى واستاذى العزيز محمد @أبو عبدالله الحلوانى جزاه الله خيرا 💐 وهو من يستحق افضل اجابه للمعلومات القيمه وان شاء الله حالما افرغ من تنصيب الويندوز وتحديثاته اقوم بوضع باقى خطوات الحل باذن الله هى جاهزه من حوالى اخر 4 ايام فى رمضان ولكنى انشغلت باستعلام قد ارهقنى عما اتممته والحمدلله رب العالمين الذى بنعمته تتم الصالحات بالتوفيق اخى @f16

اتفضل اخى @nabil2255 المفروض السجلين يظهروا لان البيانات مختلفه بالنسبه للجدول الثانى قمت بتصفيتهم واظهار اعلى تاريخ DMax("d_Aide";"Aide";"benficie=" & [nid]) جزاك الله خيرا اخى ومعلمى العزيز @jjafferr 💐 dtb1.accdb

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

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

احسنت اخى واستاذى @kanory جزاك الله خيرا 💐 اسمح لى بالاستفسار عن الفرق بين وضع مسار القاعده كامل وعن حذف dbOpenTable من الكود Set rs = db.OpenRecordset("Clients", dbOpenTable) واعذرنى فلغتى الانجليزيه ضعيفه وابحث عن المعلومه بشق الانفس مع الترجمه بارك الله فيكم اخوانى واساتذتى وجزاكم الله خيرا

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

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

الف الف مبروك اخوانى واساتذتى @Gamal.Saad و @اشرف 💐 بارك اله فيكم وجزاكم الله كل خير واعانكم الله وتقبل منكم صالح الاعمال

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

الحمدلله رب العالمين والصلاه والسلام على اشرف المرسلين سيدنا محمد المبعوث رحمه للعالمين وعلى آله ومن والاه الى يوم الدين تم معالجه ما تم ذكره سابقا فى المثالين لى ولأخى العزيز محمد @حلبي جزاه الله خيرا 🌷 المثال الاول لاخى محمد وتم تعديل الكود الى باضافه DefaultValue Private Sub Command60_Click() DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenForm "batt", , , "[idlad]=" & idlad Forms!batt!idlad.DefaultValue = Me.idlad Forms!batt!numsold = Me.nlad Forms!batt!nbatta = Me.delad End Sub ومثالى تم تعديله الى فى زر الانتقال بالماكرو باضافه [DefaultValue] [Forms]![batt]![idlad].[DefaultValue] تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق azhr_test_Mohamed.accdb azhr_test_ahmed.accdb

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

احسنت اخى محمد حلبى وجزاك الله كل خيرا 🌷 عدل الكود الى ليتم حفظ السجل الجديد اولا ثم الانتقال لقيمته Private Sub Command60_Click() DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenForm "batt", , , "[idlad]=" & idlad Forms!batt!idlad = Me.idlad Forms!batt!numsold = Me.nlad Forms!batt!nbatta = Me.delad End Sub نعم كل الطرق تؤدى انا كان ذهنى متشتت بالاضافه الى اننى مانمت الى الان وبعدما وضعت ردى بالمحاوله الفاشله هدانى الله لوضع القيمه الافتراضيه للحقل فالنموذج عند الفتح بارك الله فيك وجعلك عونا دائما لاخوانك

واليك طريقه اخرى لخى @ازهر عبد العزيز تم مسح القيمه الافتراضيه بالنموذج للمثال السابق فى زر انتقال تم وضع القيمه setvalue فالماكرو بالتوفيق اخى New Microsoft Access Database (5) - Copy(2)(1).accdb

الحمدلله رب العالمين والصلاه والسلام على اشرف المرسلين سيدنا محمد المبعوث رحمه للعالمين وعلى آله ومن والاه الى يوم الدين جرب الان اخى @ازهر عبد العزيز لما تفتح على السجل EE رقم 5 وعند الانتقال سيتم فتح النموذج ووضع رقم السجل فالنموذج سجل بياناتك فى نموذج batt وفى حقل idlad تم وضع الكود التالى للقيمه الافتراضيه =[Forms]![lad]![idlad] بالتوفيق اخى ازهر New Microsoft Access Database (5) - Copy(2).accdb

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

واضافه لاخى العزيز @ازهر عبد العزيز 🌷 زر انتقال GoTo آخر زر وهو حفظ السجل الجديد والانتقال اليه بدل الكود بالمحرر لما اعلمه سابقا من ارادته بتحويل الكودات للماكرو تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق New Microsoft Access Database (5) - Copy.accdb

لم اصنع شىء غير وضع كود لحفظ السجل الجديد لانه سجل جديد ولم يتم الحفظ واذا استعملت زر الحفظ الموجود ثم ضغط على الزر للانتقال سوف يتم نقلك لهذا السجل لان به نفس الامر قبل الانتقال وفتح النموذج Private Sub ÃãÑ13_Click() DoCmd.RunCommand acCmdSaveRecord DoCmd.OpenForm "flad1", , , "[idlad]=" & idlad End Sub السهوله تاتى بالممارسه ومعرفه الاوامر ثم اننى لم اتعلم الا من اسئلتكم جزاكم الله خيرا بالتوفيق اخوانى 🌷 ويمكن استعمال هذا الكود ايضا Private Sub أمر13_Click() DoCmd.Save Me.Refresh DoCmd.OpenForm "flad1", , , "[idlad]=" & idlad End Sub اما عن الفرق سوف ابحث عن المعلومه واتاكد منها ثم اذكرها لكم او يذكرها لنا احد اخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخوانى

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد ؟ بالتوفيق اخى New Microsoft Access Database (5) - Copy.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 🌷 والشكر موصول لاخى @فايز.. وهو من يستحق افضل اجابه 🌷 بالتوفيق اخوانى

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

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

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

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