Foksh

مجهود رائع جداً ولا شك فيه .. ولكن ماذا لو كانت الدرجة أكبر من 160 !!!!

ولك بالمثل أخي الكريم

وعليكم السلام ورحمة الله وبركاته أخي @abouelhassan ، سمحت لنفسي بدايةً بإضافة مديول يقوم بإنشاء المجلدين ( Pdf و Excel ) ، ليتم تصدير التقارير tblFinancial_Records و repTasfyahA و repTasfyahB اليهما ان كان Pdf أو Excel . FinancialPrg6.accdb

مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير Dim outputPath As String outputPath = CurrentProject.Path & "\Reports\" If CheckA.Value = True Then DoCmd.OutputTo acOutputReport, "Report1", acFormatPDF, outputPath & "Report1.pdf" End If If CheckC.Value = True Then DoCmd.OutputTo acOutputReport, "Report2", acFormatPDF, outputPath & "Report2.pdf" End If If CheckD.Value = True Then DoCmd.OutputTo acOutputReport, "Report3", acFormatPDF, outputPath & "Report3.pdf" End If If CheckE.Value = True Then DoCmd.OutputTo acOutputReport, "Report4", acFormatPDF, outputPath & "Report4.pdf" End If وهذا مرفق ، جرب الزر Try Me بعد تحديد اي تقارير تريد Test (1) (1).accdb

تفضل ، محسن خليل.accdb

استبدل حدث الماكرو ، بحدث VBA إن كانت فكرتك إضافة سجل جديد DoCmd.GoToRecord , , acNewRec

اخي العزيز أرجو أن تقوم بإزالة أفضل إجابة ، وإستخدامها كوسيلة لغلق الموضوع عند حصولك على الإجابة التي تريدها .

ارجو التأكد من الملف المرفق اخي محسن خليل

الفكرة ليست في انتاج الصور الـ 360 .. الفكرة في مساحة النموذج بعد إدراج الصور . أما الفكرة الثانية فهي ما ابحث عنه ؛ وبدعمكم وافكاركم وتوجيهاتكم سنتوصل الى حل بإذن الله

وعليكم السلام ورحمة الله وبركاته ،، أهلاً بصاحب الأفكار العبقرية 😀 ، حمداً لله على سلامتك معلمي الفاضل @ابوخليل . والله ما تطرقت للتشبيه في ردي على الأستاذ @Moosak إلا من وحي هذه الفكرة الخاصة من مثال الساعة . سأجرب وأخبركم بالنتيجة 🤗

أهلاً بأستاذنا الكبير @Moosak ، بارك الله فيك على الإستجابة السريعة 🥰 . أنا أعلم أن اكسيس لا يوفر هذه الخاصية ، ولكن تبادر لذهني تنفيذ الفكرة بشكل برمجي إن كان ممكناً . كفكرة عقارب الساعة مثلاً أنها تدور حول مركز محدد 😉 . اما عند تنفيذ الفكرة الأولى التي ذكرتها فهنا سأحتاج الى قرابة الـ 360 صورة سهم 🥺 . واعتقد ان العمر قد لا يتسع لهذا الوقت في إنشائها وضبطها 😁 .

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا الأفاضل ، هل من الممكن تحقيق الهدف بأن يتم تدوير صورة معينة عن طريق تحديد زاوية الدوران ؟ هذه صورة توضيحية للمطلوب ، ومرفق معها مثال للتطبيق عليه . Rotate.accdb

لا تنسى إغلاق مواضيعك اخي @sief122 🤗

نسيت التوضيح لك أخي الكريم سيف ، بضرورة تعديل اسم العملة واسم الجزء منها من المديول في آخر الكود

الأمر بسيط أخي @sief122 . انقل الوحدة النمطية N2Q لمشروعك في حدث بعد التحديث لمربع النص the amount ، ضع الكود التالي ( وهذه طريقتي ، وقد يختلف الأسلوب عند بعض الأساتذة ) :- Me.split_the_amount = Nz(KaremNumber([the amount]), 0) والنقطة الأهم عندي وأجدها نقطة ضعف في اسلوبك وهي انك تجعل الأسماء للكائنات والعناصر والحقول تحتوي على فراغات ومسافات

تفضل أخي @sief122 ، إن كان هذا طلبك الجمعية التعاونية.accdb

أخي سيف بدايةً قم بإغلاق هذا الموضوع باختيار افضل إجابة ، ثو أعانك الله بانشاء موضوع جديد . حتى لا تتعرض المواضيع للإغلاق . أما بخصوص عدم قدرتك على رفع الملف المرفق ، قم بالدخول الى الملف واضغط زر ضغط وإصلاح للقاعدة ، فيصبح حجمها أصغر بكثير مما يسمح لك رفع الملف

وعليكم السلام ورحمة الله وبركاته أخي @abo_renad12 ، وأهلا وسهلا بك معنا في عالمنا الصغير 🤗 . بدايةً نرحب بك ونتمنى أن تجد المعلومة التي تبحث عنها هنا . وهذه مشاركتي إن كان ما فهمته صحيح :- Abo Renad.accdb

جرب هذا المرفق الثاني في مشاركتي التي قبل هذه طبعاً الفكرة هي أنه عند انشاء مربع نص فأن لون خلفية التسمية يكون عادة بشكل افتراضي بلا لون ( شفاف ) ، لذا وجب تغيير اللون الى الأبيض ليتم بعدها تغيير اللون حسب رغبتك وحاجتك

هل هذا طلبك ؟؟ New Microsoft Access Database.accdb يبدو أنني قد فهمت الموضوع بشكل خاطئ ، تفضل أخي الكريم New Microsoft Access Database.accdb

اضبط تنسيق الوقت من إعدادات اللغة والوقت في الويندوز من الكنترول بانل

استناداً إلى ما طلبت ، هذا المديول العام الذي خرجت به :- Public Sub ApplyFilterToSubForm(subFormName As String, filterCriteria As String, captionText As String, JOValue As Integer) On Error Resume Next Dim subForm As Form Forms("NewPara").P_Day.sourceObject = "NewPU" Set subForm = Forms("NewPara").Controls(subFormName).Form If Not subForm Is Nothing Then subForm.TN.caption = captionText subForm.Form.Filter = filterCriteria subForm.Form.FilterOn = True Forms("NewPara").JO = JOValue Forms("NewPara").U_OK.Requery subForm.SetFocus Forms("NewPara").SNormal.SetFocus Else MsgBox "Subform '" & subFormName & "' not found.", vbExclamation End If End Sub وهنا الإستدعاء له في الأزرار الـ 5 في القائمة المنسدلة الخاصة بك :- Public Sub Urine() ApplyFilterToSubForm "P_Day", "[TName]='Urine'", "Urine", 3 Forms("NewPara").Controls("Name_Urine").caption = "All" End Sub Public Sub Stool() ApplyFilterToSubForm "P_Day", "[TName]='Stool'", "Stool", 4 End Sub Public Sub Lipids() ApplyFilterToSubForm "P_Day", "[TName]='Lipids'", "Lipids", 15 End Sub Public Sub Creat() ApplyFilterToSubForm "P_Day", "[TName]='Creatinine'", "Creat", 9 End Sub Public Sub All() Forms("NewPara").P_Day.sourceObject = "NewPp" Forms("NewPara").U_OK.Requery Forms("NewPara").Controls("Name_Urine").caption = "Urine" End Sub وهذا المرفق بعد التطبيق |~ LAB_2024 - JO.zip ~| جرب وأخبرني بالنتيجة 😊

أخي الكريم ، العنوان + الشرح + المطلوب لا يمكن لأحد التنبؤ بما قد نسيته أو تريد إعادة ضبطه . لتلافي اغلاق الموضوع ، قم بالتوضيح المفصل لمشكلتك . وأتمنى أن تجد الحل لجميع مشاكلك . على العموم الملف بتنسيق أكسيس 2003 ، ويوجد به خلل في المكتبات كما في الصورة التالية :- وهذا ملفك بعد التعديل ( Dataaa.accdb )

هل جربت تنصيب اوفيس 2019 أو 2016 ؟

ومساهمة مع الأساتذة جزاهم الله خير ، حسب ما فهمت من الكود 😅 . كود المديول :- Public Function ApplyFilterToSubForm(subForm As Form, filterText As String) subForm.Form.Filter = filterText subForm.Form.FilterOn = True End Function وللإستدعاء من النموذج في حدث عند النقر :- ApplyFilterToSubForm Forms("P_Day"), "[TName]='Urine'" U_Ok.Requery هي الفكرة انك تطبق الفلترة على النموذج الفرعي P_Day من مربع النص TName اللي بتساوي Urine . جرب وأعطيني النتيجة ، أو أرسل مرفقك للتطبيق ، فليست النتيجة واضحة دون مرفق أخي @jo_2010