نجوم المشاركات

وانت بالف خير تفضل اخي العزيز filter1.rar

وهذا تعديل مع الكود تبعك .... اختر ما شئت ... ومع العايدين Dim db As DAO.Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Clients") If Me.txtnomclien <> "" Then If rrr(Me.txtnomclien) = False Then rs.AddNew rs!nomComplet = Me.txtnomclien rs!Societé = Me.txtsociete rs!Adresse = Me.txtadresse rs("Tel") = Me.txttel rs!Email = Me.txtemail rs!Ville = Me.txtville rs.Update rs.Close Set rs = Nothing DoCmd.Close acForm, Me.Name 'DoCmd.Requery Else MsgBox "ce client existe deja", vbInformation Me.txtnomclien.SetFocus End If Else MsgBox "remplir le champ nom de client", vbCritical End If

جرب هذا الكود مع تعديل مسار وجود قاعدة الجداول Dim dbCurrent As DAO.Database Dim recCategories As Recordset Set dbCurrent = OpenDatabase("C:\Users\ACER\Desktop" & "\Nouveau Microsoft Access Base de données.accdb", False) Set recCategories = dbCurrent.OpenRecordset("select * from Clients") With recCategories .AddNew !nomComplet = Me.txtnomclien '!Time = Time .Update End With recCategories.Close dbCurrent.Close Set dbCurrent = Nothing

بعد اذنك أخي واستاذي ابو فريد .... هذه طريقة أخرى 11 (1).mdb

الملف ليس فيه افكار لاقتباسها وانما هي جداول واستعلامات فقط فكيف تطبق الفكرة على برامجك ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ ليس في الملف بيانات حساسة لذلك نترك الامر للمشرفين

Warning = MsgBox("أنت الآن على وشك حذف السجل الحالي فهل أنت واثق من رغبتك في الحذف", vbYesNo + vbQuestion, "تحذير") If Warning = vbYes Then DoCmd.SetWarnings (False) ضع الكود السابق هنا DoCmd.SetWarnings (True) Else DoCmd.CancelEvent End If

وعليكم السلام لحساب عدد الشيك استخدم هذا الكود =Sum(IIf([غياب]=-1;1;0)) وغياب هو اسم الحقل عندك لحذف السجلات المختارة استخدم هذا الكود CurrentDb.Execute "DELETE * FROM L WHERE [غياب] = true" Me.Requery حيث L هو اسم الجدول لديك

بعد اذن حبيبي سليم للاثراء =SMALL($B$2:$B$14;COUNTIF($B$2:$B$14;"<"&E2)+1) تجريبي 2.xlsx

جرب هذا الملف Tajribi_2.xlsm

ممكن كدا .... R_MultiHead.accdb R_MultiHead.accdb

وعليكم السلام 🙂 يجب ان تعطي الامر بالكامل علشان تحصل على النتيجة المطلوبة ، وعلشان الكود ينكتب بالطريقة الصحيحة ، خلينا نستخدم هذه الاسماء بالانجليزي كمثال: حالة الخدمة= H_Service منقطع = Temp فيكون الكود : Sum_Filed: Sum(iif([H_Service]="Temp",1,0) يعني اذا قيمة الحقل = Temp اجمع لنا 1 (لأن العدد واحد لكل شخص) ، بالعربي المعادلة تنقلب (لهذا السبب فإنه لا يُنصح بإستخدام مسميات عربية في اي من كائنات الاكسس) : . والنتيجة بعد التعديل: . . جعفر AA1.zip

وعليكم السلام 🙂 استعلامين ، وانت اختار اللي تريده : . . جعفر 1226.dtb1.accdb.zip

أخي @Barna اذننا دائما معك ماشاء الله فعلا طريقة جيدة

اسمح لي استاذي @kanory اجاوب ... اخي الحبيب @احمد الفلاحجي في الكود الاول تم الاتصال بالقاعدة الخارجية مباشرة دون النظر الى الجداول المرتبطة ... فلذلك احتجنا كتابة مسار القاعدة المطلوبة اما في الحالة الثانية كان اخي السائل @rey360 كاتب الكود على اساس الاتصال بالقاعدة الحالية فلذلك لم يكن يحتاج لمسار القاعدة الخارجية ... ولكنه عرف المطلوب انه جدول وليس جدول مرتبط فلذلك الكود كان يدور ويبحث عن اسم الجدول Clients ولا يجد ... فقام اخي kanory بحذف عبارة dbOpenTable ارجو اني اوصلت الفكرة انا اضعف منك في اللغة ولم ادرس البرمجة وتحصصي بعيد جدا عن الحاسب ومجالاته .... والحمد لله رب العالمين بفضل الله ثم امثالكم من اساتذة المنتدى تعلمنا بالاضافة لشيئ مهم وهي عملية التطبيق .... بارك الله فيك .... واكرر معذرتي لاخي @kanory

وعليكم السلام-يمكنك استخدام هذه المعادلة =COUNTIF($C$7:$C$12,E$6) تواتي 221.xlsx

ما شاء الله اخي Kanory وكل عام وانت بخير

السلام عليكم اخواني الاعزاء كل عام وانتم بخير اشكر ادارة الموقع علي هذه الثقة الكبيرة وادعو الله ان اكون عند حسن ظنهم اشكر من شرفني بالتهنئة jjafferr kanory ابوخليل ابو تراب kha9009lid أحمد الفلاحجى فايز warvin raviny انا عضو في هذا الموقع منذ زمن طويل لجأت اليه كثيرا في مشكلات واجهتني في اعمالي وكان وما زال ملجأ وملاذ لحل المشكلات المتعلقة بالاكسيس وكنت دائما انظر لفريق الموقع والخبراء باحترام شديد لعلمهم الوافر وسعة صدرهم مع المبتدئين امثالي وتمنيت ان اصبح فردا من ضمن هؤلاء الافذاذ كل التقدير والاحترام لفريق الموقع ولكل الخبراء والاعضاء وزوار الموقع

وعليكم السلام ممكن توضيح اكثر استاذ زوهير

السلام عليكم و رحمة الله تعالى و بركاته بعد أن أنهينا الشطر الأول الخاص بالتعامل مع الويب من الأكسس بإستخدام أداة WebBrowser و هذا رابط الموضوع: نبدأ الآن بحول الله تعالى في الشطر الثاني و هو التعامل مع صفحات الويب بدون إستخدام أداة WebBrowser سوف نستخدم في هذا الموضوع طريقتين الأولى التعامل المباشر مع المتصفح Internet Explorer و الثانية بإستخدام سرفر معين الجزء الأول: التعامل المباشر مع المتصفح Internet Explorer في هذا الجزء إن شاء الله سوف نقوم بفتح نسخة من المتصفح Internet Explorer و نرسل لها بيانات أو نستقبل منها. سوف نستخدم مثال الأخ @ابوآمنة للتطبيق عليه بإرسال بيانات لنموذج غوغل من خلال متصفح خارجي: هذا هو الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String On Error GoTo Err_Clear sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" Set oBrowser = New InternetExplorer oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE Set HTMLDoc = oBrowser.Document HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL oBrowser.Quit MsgBox "لقد تم إرسال البيانات بنجاح" Me.n1 = "" Me.n2 = "" Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If شرح الكود: Dim HTMLDoc As HTMLDocument Dim oBrowser As InternetExplorer Dim oHTML_Element As IHTMLElement Dim sURL As String هنا قمنا بتعريف المتغيرات التي نحتاجها sURL = "https://docs.google.com/forms/d/e/1FAIpQLSejrVMF2ucvGdzXefD7MeoKze4_8Fn-ir7dHmrAIwduHzBbtg/viewform" هذا رابط الموقع Set oBrowser = New InternetExplorer إسناد نسخة من جديدة من Internet Explorer للمتغير oBrowser oBrowser.Silent = True oBrowser.Navigate sURL oBrowser.Visible = False السطر الأول هو إيقاف ظهور رسائل الأخطاء من المتصفح السطر الثاني تصفح الرابط sURL السطر الثالث التحكم في إظهاء أو إخفاء المتصفح أثناء العمل عليه Do ' Wait till the Browser is loaded Loop Until oBrowser.ReadyState = READYSTATE_COMPLETE الإنتظار إلى حين تحميل الصفحة HTMLDoc.getElementsByTagName("input").Item(0).Value = Me.n1 HTMLDoc.getElementsByTagName("input").Item(1).Value = Me.n2 إرسال قيم للمربع الأول و الثاني HTMLDoc.getElementsByClassName("appsMaterialWizButtonPaperbuttonLabel quantumWizButtonPaperbuttonLabel exportLabel").Item(0).Click الضغط على زر إرسال Do ' Wait till the Browser is loaded Loop Until oBrowser.LocationURL <> sURL إجراء حلقة دورانية لا يخرج منها إلا عند تغير رابط الصفحة و ذلك عند الضغط على زر الإرسال oBrowser.Quit إغلاق المتصفح بعد إرسال البيانات للتجربة افتح المرفق و ادخل بيانات في المربع الأول و المربع الثاني و اضغط على زر الإرسال و لاحظ ماذا يحدث و للإطلاع على ظهور النتائج ادخل على هذا الرابط: https://docs.google.com/spreadsheets/d/e/2PACX-1vSi73gAAIE9Rv8Ux43jjcvq9SSpzdVzs3M3ZEtehWqqP0pW4NLFLnkX3Iqoc9dYm_cx8vPz9S1465zd/pubhtml ارسال بيانات لنماذج غوغل.rar

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

بسم الله الرحمن الرحيم قواعد المشاركة بمنتدي أوفيسنا المنتدى مثله مثل أي عمل جماعي لابد أن تكون هناك أسس واضحة للمشاركة فيه، يقرها ويلتزم بها جميع الأعضاء للحصول على الفائدة العامة. وقبول العضوية بالمنتدى تعني ضمناً الموافقة على قواعد المشاركة المعتمدة به. هذه الوثيقة تشمل قواعد طرح الاسئلة التي يرجي مراعاتها لضمان الحصول على أفضل نتيجة، وهذه القواعد لم توضع بهدف تسلط أو تعقيد، وإنما الهدف منها تحقيق المنفعة العامة من المنتدى، وان لم تمثل الوضع المناسب لجميع المشاركين في جميع المواقف، يجب أن يتم الالتزام بما ورد فيها بصورة كاملة، ومخالفة قواعد المشاركة تعرض المشاركة للإلغاء وفي حال تكرار المخالفة قد يتعرض المخالف لعقوبات تصل لإيقاف العضوية. وأخيرا وقبل أن نعرض إلى القواعد، ندعو الله أن يكون ما يبذل من جهد من الجميع هنا من باب "علم ينتفع به "، فكما قال رسول الله صلي الله عليه وسلم: (إذا مات الإنسان انقطع عنه عمله إلا من ثلاثة: إلا من صدقة جارية. أو علم ينتفع به. أو ولد صالح يدعو له). قبل كتابة موضوع جديد 1. استخدم البحث في المنتدى قبل وضع سؤالك فقد يكون مكررا. وذلك لتفادي عواقب التكرار وأهمها أن تكرار الموضوع سيصعب المهمة على من يبحث بعدك كما أنه يمكنك توفير جهد الأعضاء للإجابة على موضوع آخر لم يطرح سابقاً. 2. يتم طرح السؤال باللغة العربية الفصحى لأنها مفهومة للجميع، وتجنب استخدام اللهجات المحلية 3. تأكد أن طرح سؤالك في المكان المناسب لتحصل على أفضل إجابة، لا تسأل في المنتدى العام عن مشكلة في الاكسيل. وإذا كنت تريد الإعلان أو طلب برنامج بأجر أو بمقابل مادي فيجب نشر موضوعك بقسم إعلانات شخصية بأجر للأعضاء. عنوان المشاركة 4. يجب أن يكون عنوان المشاركة يدل على محتواها 5. أن لا يحتوي على عبارات مثيرة مثل " النجدة "، "الحقونا 6. يمنع منعا باتا توجيه السؤال إلى شخص بعينه لان هذا قد يدفع الآخرين إلى عدم الإجابة، والهدف هو التفاعل من الجميع. 7. يرجى إضافة الكلمات المفتاحية تحت العنوان لتسهيل الوصول إلى الموضوع من خلال عملية البحث لاحقاً، كما أن المنتدى يظهر بطريقة آلية المواضيع الشبيهة تحت الموضوع بناء على الكلمات المفتاحية المسجلة. محتوى المشاركة 8. يجب ذكر كافة المعلومات التي من الممكن أن تُسأل عنها، مع الشرح الوافي للمشكلة لأن الشخص الذي تكتب له ليس ملما بالمشكلة مثلك. ويحبذ وضع مثال للنتيجة التي تريدها (سواء كملف مرفق باستخدام البرنامج المطلوب كالاكسيل او الأكسيس مثلا، او صورة توضيحية، أو تفصيل المطلوب بشرح وافي)، ويجب ان تكون بيانات المثال نابعة من نفس بيانات المرفق كي بمكن الربط و الفهم بسهولة. 9. بخصوص التسميات، يُفضل أن تكون أسماء الكائنات والحقول بالإنجليزية، لان العربية تحدث فيها مشاكل مع الأكواد. 10. اذكر في محتوى مشاركتك عن المجهود الذي قمت به لكيلا يأتيك رد قد قمت بمحاولة تنفيذه بالفعل. 11. ممنوع طرح أكثر من سؤال في موضوع واحد ليسهل البحث عن المواضيع لاحقا. 12. يمنع وضع سؤال لا علاقة له بالموضوع الموضوع فيه التساؤل أو ليس له مناسبة في وضعه معه. 13. - يمنع وضع السؤال داخل المرفق، يجب شرح السؤال بالتفصيل لتعم الفائدة، ولا مانع من اضافة صورة توضيحية 14. - يجب عند الرد، عدم الاكتفاء بإضافة مرفق بالحل، بل يجب التوضيح و الشرح، و اضافة الكود المستخدم (إن وجد) ، بالإضافة للمرفق، و ذلك لتعم الفائدة 15. يفضل عدم طلب عمل برنامج فهذا المنتدى للتبادل العلمي، وليس للبحث عن البرامج الجاهزة، ولكن ابدأ بالعمل واطرح المشاكل التي تواجهك (بعد البحث في المنتدى منعا للتكرار). وما سبق طرحه من برامج يمكنك الوصول إليها باستخدام البحث، ويفضل ألا تخصص مشاركة لهذا الغرض وإن كان ذلك متاح لكن ممنوع الإلحاح في ذلك. 16. عدم طرح أي اقتراح بخصوص المنتدى أو شكوى في الأقسام العامة، فهناك قسم مخصص لذلك المرفقات 17. إذا لم يكن السؤال يسهل فهمه عن طريق الشرح فقط، يجب إرفاق مثال. 18. المرفقات يجب تحوي مثال مبسط وعينة كافية من البيانات بحيث تعم الفائدة دون الحاجة لتحميل ملفات كبيرة الحجم 19. تجنب نشر بيانات حقيقية يخشى نشرها ويمكن أن تطلب حذفها لاحقاً. المحظورات 20. يمنع منعا باتا نشر أية موارد تخالف حقوق الملكية الفكرية بما في ذلك الكتب والكراك وتبادل السيريال، والمخالفة تعرض المشاركة للإلغاء والعضوية للإيقاف. 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها. 22. يتم حذف أي مشاركة تحتوي على الفاظ وعبارات وأعمال مخالفة للشرع أو الأخلاق العامة أو التي تحوي عبارات عرقية أو دينية أو أي عبارات قد تجرح مشاعر الآخرين. مع إيقاف صاحب المشاركة نهائياً، وحجب البريد المسجل به. متابعة المشاركات 23. ممنوع نهائيا وبشكل قاطع تكرار الموضوع نفسه أو فتح موضوع جديد للمطالبة برد في موضوع سابق، كما يمنع منعا باتا ذكر أكثر من سؤال في نفس الموضوع، وهذا لكي يسهل البحث والحصول على المعلومة على من بعدك. 24. إذا كان الموضوع استكمالا لموضوع موجود مسبقا في الأرشيف فيرجي وضع رابط الموضوع الذي تريد استكماله أو الإضافة عليه لتسهل على الجميع الوصول إلى الموضوع المشابه. الإشارة لمواقع أخرى 25. لا تأخذ مواضيع أو ردود آخرين وتنسبها لنفسك.. هذه سرقه، إذا كنت قد اقتبست، أذكر أسم صاحب الموضوع، أو على الأقل اذكر أن الموضوع منقول. 26. يمنع الرد على الاستفسارات عن طريق الإشارة لموقع آخر، يجب وضع الحل كاملاً هنا ويمنع أن تكون الإجابة عن طريق الإشارة لموقع آخر فقط. ولا مانع من نشر اسم المصدر دون وصلة في نهاية الرد بعد وضع الرد والشرح كاملاً بعد المشاركة 27. لا تتوقع أن يجاب على سؤالك خلال ساعات قليلة، لكن تأكد أولا تأكد سؤالك يستحق الإجابة (غير مكرر، ويوفر معلومات كاملة).. أحيانا يحتاج من يجيب للوقت لجمع معلومات عن الإجابة 28. إذا تأخرت الإجابة فمن حقك الاستعجال فقط بإضافة عبارة "للرفع" على فترات متباعدة بدون أي عبارات أخري لا داعي لها. 29. يجب أن يكتب صاحب الموضوع في حالة حل مشكلته أن المشكلة قد حلت ليتوقف الأعضاء من الاستمرار في حل المشكلة. 30. من الجميل أن تتبع الإجابة عن سؤالك بشكر لمن ساعدك، وبإخبار عن النتيجة، العديد يتابع الأسئلة، ويود أن يعرف عن النتيجة، فمن واجب السائل أن يشكر من حاول مساعداته بالنقر على زر الإعجاب، وأن يختار خيار أفضل إجابة ليعرف الجميع أن موضوعه قد تم حله بطريقة مرضية. 31. على الجانب الآخر إذا لم يأتيك شكر على موضوع قدمته، فنرجو اعتبار كل قراءة من قراءات الموضوع باقة ورد وشكر لك من المشرفين والأعضاء، ونذكرك بأن الموضوع لا تقتصر فائدته علي من قرأوه في وقته فقط، ولكن تصل إلى كل من يبحث لاحقا في المنتدي وهم ان شاء الله أضعاف من يقرأه في وقته، ونسأل الله عز وجل أن يضاعف لك الجزاء عن كل من يستفيد منه. حذف وتنقيح المشاركات 32. ما يتم نشره ويتفاعل الأعضاء معه لا يمكن طلب حذفه، فبنشره يصبح ملكية عامة. 33. إذا كانت المشاركة تحوي بيانات خاصة فلا تنشرها واستبدلها ببيانات غير حقيقية، حتى لا تطالب بحذف المشاركة لاحقا. 34. يتم تنقيح المشاركات دوريا وحذف المشاركات غير المجدية، ودمج ما يلزم من مشاركات. أسماء الدخول للموقع و الأسماء الحقيقية 35. يرجى مراعاة تجنب الأسماء أو الكنيات الغريبة فيما يخض إسم الدخول للموقع User Name 36. يفضل كون اسم الدخول باللغة العربية و عدم استخدام الأسماء الغريبة او غير المعتادة سواء باللغة العربية أو غيرها. 37. يرجى من الجميع اضافة الاسم الحقيقي باللغة العربية فى الحقل المناظر، والهدف هو تسهيل التواصل الفعال بين الأعضاء ، و ان تعذر فيتم اختيار كنية باللغة العربية فى مكان الاسم الحقيقي. 38. سيتم تعديل أي أسماء دخول أو أسماء حال مخالفتها للذوق العام أو احتوائها على أي إيحاءات غير معتادة. لمعرفة كيفية تعديل الإسم أو إسم الدخول يرجى مراجعة هذا الموضوع وأخيرا يرجى الالتزام التام بقواعد المشاركة وفي حال وجود اقتراحات إضافية بشأن القواعد، يمكن إضافة الاقتراح في قسم الاقتراحات بالمنتدى وسيتم دراستها تباعاً.

السلام عليكم 🙂 وهذه عيدية العيد لنا 🙂 شكرا للاخوة الاخوة @اشرف و @Gamal.Saad لكل ما تبذلوه ، مبروك لكم الترقية 🙂 جعفر

حتى اذا تصدر الى اكسل ، فالتنسيق يكون في الاكسل 🙂 جعفر

الاستعلام هو وسيط بيانات بين الجدول و النموذج/التقرير (حيث تعمل التنسيق اللي تحب 🙂 ) جعفر

الى الان الصورة ليست واضحة بالنسبة لي .. لعل احد الاخوة يفيدنا

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

اخي الاستاذ جعفر كل عام وانت بخير وعلى الجميع لقد وجدت في كلا الاجابتين ما ابحث عنه وقد استفدت من كلا المشاركتين لاكني استفدت اكثر من اجابة أ/ ابو بسملة هذا ولكم مني خالص التحيه والتقدير اخوكم عمار

وعليكم السلام 🙂 . 1. نعم مثل ما كتب اخوي احمد ، 2. نعم تستطيع عمل هذا: اكتب هذا الكود في "عند تنسيق" "قسم التفصيل" Detail : if me.pages > 1 then msgbox "توجد اكثر من صفحة في التقرير" end if جعفر

السلام عليكم 🙂 اسمحوا لي ان اقوم بتغيير افضل اجابة الى اجابة اخونا "أبو عبدالله الحلواني" ، لأنه اجاب على السؤال ، بينما اخونا "احمد الفلاحجي" قام بإعطاء جواب بديل جميل ،ولكنه لا علاقة له بإستعلام التجميع 🙂 والحل في هذه الحالة هو الجدول المؤقت ، مثل ما عمل اخونا أبو عبدااله 🙂 جعفر

انت تستتعمل windows xp حاول تثبيت هدا الملف https://download.microsoft.com/download/1/f/4/1f477e1b-4534-48ff-b31e-eb6f29b8a85f/VBA64-KB822150-X86-FRA.exe و جرب الملف المرفق cheque.xlsm

أحسنت استاذ منير عمل رائع ومجهود كبير زادك الله من فضله

عيدك مبارك يعني المطلوب اخفاء ت1 مثلا واظهار ت2 وهكذا .... وضح لو تكرمت

السلام عليكم هذا هو الخلل الذي تم تصحيحه في النسخة الأخيرة في المرفقات (الملف الذي اسمه CHQ(1).xlsm)... المشكل الوحيد الذي لم أستطع حتى الآن تصحيحه هو عند طباعة معلومات الصك لا تنطبق هذه المعلومات على ورقة الصك (باعتبار أن الطباعة لا تتم من الفورم مباشرة كما يظهر قبل الطباعة بل من ورقة إكسيل مخفية تم تحضيرها لهذا الغرض)، ولا زلت بصدد العمل عليه...

تم انشاء ملف ل خر لمعالجة التاريخ Number_search_date.xlsm

AA1.mdb

تم تجريب ملف الأخ ببن علية حاجي في مشاركته الأولى على اووفيس 2016 و 2019 و الملف يعمل جيدا 100/100. ربما المشكل عندك أاخي وادي سلي. حاول اررسال صورة للخطأ و ان شاء الله سنجد لك الحل

يا فرحة العيد الف مبروك للاساتذه @Gamal.Saadو @اشرف

جرب هذا الملف العامود L اتركه فارغاً تماماً (حتى لا يؤثر على عمل الماكرو) MY_librery.xlsb لتعديل البيانات يمكنك راٍساُ تعديلها يدوياً ( بعد اجراء الفلتر) أو بواسطة ماكرو اخر

تم معالجة الأمر البحث يتم بواسطة الرقم لا بالتاريخ (لضيق الوقت ) يمكنك التعديل اذا اردت البحث بالتاريخ Number_search.xlsm

تهنئة من قلبى لكل من / @اشرفو @Gamal.Saad بالترقيه وننتظر مزيد من التألق فهم فعلا اهل ثقة ويستحقون

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

الف مبروك لكل من :- استاذ Gamal.Saad استاذ اشرف دوام يارب التوفيق و التقدم كل تحياتى

تمام ....... أيها الأستاذ المحترم بارك الله فيك

قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

ايضا هذا كود اخر جميل وتعدد الخيارات بمجرد تشغيل تستطيع تحدد العمود الذي تريد من تحدف منه البيان وكذلك الكلمة او القيمة التي تريدها Sub DeleteRows() 'Updateby20140314 Dim rng As Range Dim InputRng As Range Dim DeleteRng As Range Dim DeleteStr As String xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) For Each rng In InputRng If rng.Value = DeleteStr Then If DeleteRng Is Nothing Then Set DeleteRng = rng Else Set DeleteRng = Application.Union(DeleteRng, rng) End If End If Next DeleteRng.EntireRow.Delete End Sub

ادا اردت كل التوارييخ حتى المكرررة . ضع هذه المعادلة =COUNTIFS($D$4:$D$13;">"&$G$4;$D$4:$D$13;"<"&$I$4)

السلام عليكم اخي ابو معاذ هذه المشكلة بسبب الأداة ( treeview) والمكتبة التابعة لها والسبب كما بينته انت في اختلاف نسخة وندوز جرب ابحث عن اصدارات جديدة لهذه الأداة ارجوا لك التوفيق ، واخبرنا بالنتيجة

السلام عليكم اخى @f16 مشاركه مع اخى واستاذى محمد @أبو عبدالله الحلوانى جزاه الله خيرا ارفق حل بدون اللجوء الى استعلام التحديد والتجميع وهو بداله Dsum فى استعلام التحديث DSum("num";"request";"item_id=" & [item_id]) اضف سجل جديد بالجدول request لاى رقم من الموجودين بالجدول مثال 101 او 102 ثم استخدم استعلام التحديث يمكن عمل استعلام الحاقى بعد ذلك لاضافه السجلات الجديده بالجدول request للجدول story مع عدم تكرار السجلات المدخله من قبل تقبلوا تحياتى وارجو لكم وللجميع التوفيق والنجاح مثال_اوفيسنا_استعلام_تحديث_من_استعلام_تجميع(1).accdb

جرب هذا الملف (الصفحة Target_sh ) الكود Option Explicit Sub Get_data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim D As Worksheet, T As Worksheet Dim D_Rg As Range, T_rg As Range, Single_rg As Range Dim RoD%, RoT%, All_ro%, X%, y% Dim Nme$ Set D = Sheets("Data"): Set T = Sheets("Target_sh") Set D_Rg = D.Range("A4").CurrentRegion Set T_rg = T.Range("A3").CurrentRegion RoT = T_rg.Rows.Count If RoT > 1 Then _ T_rg.Offset(1).Resize(RoT - 1).Clear If D.FilterMode Then D_Rg.AutoFilter RoD = D_Rg.Rows.Count Set Single_rg = D_Rg.Offset(1).Resize(RoD - 1) Nme = T.Cells(3, "K") D_Rg.AutoFilter 4, Nme D_Rg.AutoFilter 3, "اجل" y = D_Rg.SpecialCells(12).Rows.Count If y > 0 Then Single_rg.Columns(2).SpecialCells(12).Copy T.Range("A4").PasteSpecial (12) Single_rg.Columns(8).SpecialCells(12).Copy T.Range("B4").PasteSpecial (12) End If D_Rg.AutoFilter D_Rg.AutoFilter 4, Nme D_Rg.AutoFilter 3, "نقدا" X = D_Rg.SpecialCells(12).Rows.Count If X = 0 Then Exit Sub Single_rg.Columns(2).SpecialCells(12).Copy T.Range("C4").PasteSpecial (12) Single_rg.Columns(8).SpecialCells(12).Copy T.Range("D4").PasteSpecial (12) All_ro = T.Range("A3").CurrentRegion.Rows.Count With T.Cells(All_ro + 3, 1) .Value = "المجموع:" .Offset(, 1) = Evaluate("=SUM(B4:B" & All_ro + 2 & ")") .Offset(, 2) = "المجموع:" .Offset(, 3) = Evaluate("=SUM(D4:D" & All_ro + 2 & ")") End With With T.Cells(4, 1).Resize(All_ro, 4) .InsertIndent 1: .Borders.LineStyle = 1 .Font.Size = 13: .Font.Bold = True .Interior.ColorIndex = 38 End With If D.FilterMode Then D_Rg.AutoFilter With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic End With End Sub الملف مرفق Mabieat_Filter.xlsm

السلام عليكم ... ليش العذاب يا أخي ؟!!! بحثت لك في دوال الاكسل الجاهزة و لم أجد مبتغاك. على أية حال فقد أنشئت لك الدالة SheetsCount : أولاً قم بوضع الكود التالي في الموديل: Function SheetsCount(Index As Integer) As String SheetsCount = Sheets(Index).Name End Function الدالة السابقة تقوم بإرجاع اسم الورقة بناءاً على ترتيبها. الآن اذهب إلى ورقة العمل واستخدم هذه الدالة مع الدالة INDIRECT في وضع هذه الصيغة: =INDIRECT(SheetsCount(2)&"!"&"D4") بالتوفيق SheetsCount.zip