Foksh

لم افهم اي خطأ أخي الكريم ، اذكره بالتحديد أو صورة عنه

انا اقتربت من الانتهاء من الفكرة التي خطرت لي استنباطاً من فكرة معلمنا أبو خليل من فكرة الساعة وبشكل دوران كامل 360 درجة ، حتى أنني دعمت فكرة الزوايا التي تكون قيمتها أقل من 0 ( -250 ) مثلاً ، وقد انتهيت منها الى حد ما

مجهود رائع جداً ولا شك فيه .. ولكن ماذا لو كانت الدرجة أكبر من 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 )