Foksh

اختر OLE Object أما الحقل المحسوب فأعتقد المشكلة في نسخة الأوفيس أو إصداره .

هذا الخطأ يظهر في الملف الذي ارفقته لك في آخر مشاركة ؟؟ تأكد من وجود المجلدات Pdf و Excel بجانب قاعدة البيانات ، لاني فعلت الكود لانشائهما في نموذج البداية عندك 🤔

وعليكم السلام ورحمة الله وبركاته ,, للسجل التالي :- DoCmd.GoToRecord , , acNext للسجل السابق :- DoCmd.GoToRecord , , acPrevious

الكود يعمل في مرفقك أخي الكريم بدون أي مشاكل ، تم اضافة ايقونات للأزرار ، وهذا موقع يعطيك أيقونات بشكل جميل FinancialPrg6 (1).accdb

إن شاء الله سهلة عليك مهندسنا الكبير ,, أما بالنسبة لفكرتي فسأذكر سبب حاجتي لهذه الفكرة ، وهي أنني سأضيف فكرة اتجاه القبلة الى برنامجي ( صلوات ) ، وتعتمد الفكرة في تنفيذها على عملية حسابية تستند الى خطي الطول والعرض لكل موقع . 😁 حاضر يا سيدي ، حال انتهائي سأدرجها هنا وهذا يا مهندسنا @Moosak الكود الذي خلصت به لتنفيذ فكرتي Dim ctrl As Control Dim secValue As Integer Dim Rx As Integer Rx = Abs(Me.Txt_Sec.Value) secValue = Abs(Round(Me.Txt_Sec.Value / 6, 0)) If Me.Txt_Sec.Value < 0 Then secValue = (360 - Rx) \ 6 End If For Each ctrl In Controls If Left(ctrl.Name, 1) = "s" Then If Right(ctrl.Name, Len(ctrl.Name) - 1) = secValue Then Me(ctrl.Name).Visible = True Else Me(ctrl.Name).Visible = False End If End If Next

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

انا اقتربت من الانتهاء من الفكرة التي خطرت لي استنباطاً من فكرة معلمنا أبو خليل من فكرة الساعة وبشكل دوران كامل 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