اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Foksh

الخبراء
  • Posts

    2,318
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    85

كل منشورات العضو Foksh

  1. الكود يعمل في مرفقك أخي الكريم بدون أي مشاكل ، تم اضافة ايقونات للأزرار ، وهذا موقع يعطيك أيقونات بشكل جميل FinancialPrg6 (1).accdb
  2. إن شاء الله سهلة عليك مهندسنا الكبير ,, أما بالنسبة لفكرتي فسأذكر سبب حاجتي لهذه الفكرة ، وهي أنني سأضيف فكرة اتجاه القبلة الى برنامجي ( صلوات ) ، وتعتمد الفكرة في تنفيذها على عملية حسابية تستند الى خطي الطول والعرض لكل موقع . 😁 حاضر يا سيدي ، حال انتهائي سأدرجها هنا وهذا يا مهندسنا @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
  3. لم افهم اي خطأ أخي الكريم ، اذكره بالتحديد أو صورة عنه
  4. انا اقتربت من الانتهاء من الفكرة التي خطرت لي استنباطاً من فكرة معلمنا أبو خليل من فكرة الساعة وبشكل دوران كامل 360 درجة ، حتى أنني دعمت فكرة الزوايا التي تكون قيمتها أقل من 0 ( -250 ) مثلاً ، وقد انتهيت منها الى حد ما
  5. مجهود رائع جداً ولا شك فيه .. ولكن ماذا لو كانت الدرجة أكبر من 160 !!!!
  6. وعليكم السلام ورحمة الله وبركاته أخي @abouelhassan ، سمحت لنفسي بدايةً بإضافة مديول يقوم بإنشاء المجلدين ( Pdf و Excel ) ، ليتم تصدير التقارير tblFinancial_Records و repTasfyahA و repTasfyahB اليهما ان كان Pdf أو Excel . FinancialPrg6.accdb
  7. مشاركة مع أستاذنا @ناقل ، جرب هذا الكود في الزر المسؤول عن التصدير 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
  8. استبدل حدث الماكرو ، بحدث VBA إن كانت فكرتك إضافة سجل جديد DoCmd.GoToRecord , , acNewRec
  9. اخي العزيز أرجو أن تقوم بإزالة أفضل إجابة ، وإستخدامها كوسيلة لغلق الموضوع عند حصولك على الإجابة التي تريدها .
  10. ارجو التأكد من الملف المرفق اخي محسن خليل
  11. الفكرة ليست في انتاج الصور الـ 360 .. الفكرة في مساحة النموذج بعد إدراج الصور . أما الفكرة الثانية فهي ما ابحث عنه ؛ وبدعمكم وافكاركم وتوجيهاتكم سنتوصل الى حل بإذن الله
  12. وعليكم السلام ورحمة الله وبركاته ،، أهلاً بصاحب الأفكار العبقرية 😀 ، حمداً لله على سلامتك معلمي الفاضل @ابوخليل . والله ما تطرقت للتشبيه في ردي على الأستاذ @Moosak إلا من وحي هذه الفكرة الخاصة من مثال الساعة . سأجرب وأخبركم بالنتيجة 🤗
  13. أهلاً بأستاذنا الكبير @Moosak ، بارك الله فيك على الإستجابة السريعة 🥰 . أنا أعلم أن اكسيس لا يوفر هذه الخاصية ، ولكن تبادر لذهني تنفيذ الفكرة بشكل برمجي إن كان ممكناً . كفكرة عقارب الساعة مثلاً أنها تدور حول مركز محدد 😉 . اما عند تنفيذ الفكرة الأولى التي ذكرتها فهنا سأحتاج الى قرابة الـ 360 صورة سهم 🥺 . واعتقد ان العمر قد لا يتسع لهذا الوقت في إنشائها وضبطها 😁 .
  14. السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا الأفاضل ، هل من الممكن تحقيق الهدف بأن يتم تدوير صورة معينة عن طريق تحديد زاوية الدوران ؟ هذه صورة توضيحية للمطلوب ، ومرفق معها مثال للتطبيق عليه . Rotate.accdb
  15. نسيت التوضيح لك أخي الكريم سيف ، بضرورة تعديل اسم العملة واسم الجزء منها من المديول في آخر الكود
  16. الأمر بسيط أخي @sief122 . انقل الوحدة النمطية N2Q لمشروعك في حدث بعد التحديث لمربع النص the amount ، ضع الكود التالي ( وهذه طريقتي ، وقد يختلف الأسلوب عند بعض الأساتذة ) :- Me.split_the_amount = Nz(KaremNumber([the amount]), 0) والنقطة الأهم عندي وأجدها نقطة ضعف في اسلوبك وهي انك تجعل الأسماء للكائنات والعناصر والحقول تحتوي على فراغات ومسافات
  17. تفضل أخي @sief122 ، إن كان هذا طلبك الجمعية التعاونية.accdb
  18. أخي سيف بدايةً قم بإغلاق هذا الموضوع باختيار افضل إجابة ، ثو أعانك الله بانشاء موضوع جديد . حتى لا تتعرض المواضيع للإغلاق . أما بخصوص عدم قدرتك على رفع الملف المرفق ، قم بالدخول الى الملف واضغط زر ضغط وإصلاح للقاعدة ، فيصبح حجمها أصغر بكثير مما يسمح لك رفع الملف
  19. وعليكم السلام ورحمة الله وبركاته أخي @abo_renad12 ، وأهلا وسهلا بك معنا في عالمنا الصغير 🤗 . بدايةً نرحب بك ونتمنى أن تجد المعلومة التي تبحث عنها هنا . وهذه مشاركتي إن كان ما فهمته صحيح :- Abo Renad.accdb
  20. جرب هذا المرفق الثاني في مشاركتي التي قبل هذه طبعاً الفكرة هي أنه عند انشاء مربع نص فأن لون خلفية التسمية يكون عادة بشكل افتراضي بلا لون ( شفاف ) ، لذا وجب تغيير اللون الى الأبيض ليتم بعدها تغيير اللون حسب رغبتك وحاجتك
  21. هل هذا طلبك ؟؟ New Microsoft Access Database.accdb يبدو أنني قد فهمت الموضوع بشكل خاطئ ، تفضل أخي الكريم New Microsoft Access Database.accdb
  22. اضبط تنسيق الوقت من إعدادات اللغة والوقت في الويندوز من الكنترول بانل
×
×
  • اضف...

Important Information