Foksh

الصورة السابقة من ويندوز 7

وعليكم السلام ورحمة الله وبركاته .. إذا كان المقصود من الشرح هو الايقونة التي في الصورة ، في شريط المهام Task Bar . وهذه الايقونة المستخدمة كمثال كما في الصورة windows.zip أما أن كان غير ذلك ، فأرجو التوضيح

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

أول خطوة تعملها عند نقل الكود هي نقل الوحدة النمطية CreateFolder الى مشروعك ثاني خطوة استدعيها في اول نموذج يعمل لديك أو من اي مكان تريده أخي @abouelhassan بهذا السطر CreateDataFolder في حدث عند الفتح فقط 😊

لا يمكن فتح نسخة من قاعدة البيانات نفسها من نفس المسار !!! إلا إذا كنت تقصد فتح نفس القاعدة من مكانين مختلفين

اختر 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 🤗