Moosak

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

تفضلي : التحكم بالمسافة بين السطور في التقرير.accdb

ما شاء الله تبارك الله مهندسنا مستر @Foksh 😄👏 نقلة نوعية ماشاء الله .. إشي فنتاستك 🤩👌 هذي فعلا بدها منسف يا زلمة 😋🍲 الجرافكس مع التصميم والبرمجة عامل مزيج إبداعي متميز .. تستاهل خمس نجوم ⭐⭐⭐⭐⭐.. الله يوفقك ويبارك فيك 😊🤲

شرح الكود من العم أبو ذكاء 😁🖐: هذا الكود هو جزء من تطبيق يستخدم لغة VBA (Visual Basic for Applications) لإنشاء شريحة جديدة في برنامج PowerPoint والتقاط صورة منها. إليك شرحًا لوظيفة كل جزء من الكود: ### وظيفة الكود: 1. **إعداد المتغيرات**: - يتم تعريف مجموعة من المتغيرات (مثل `PptApp`, `PptDoc`, `Diapo`, `Sh`, `Sh1`) للتعامل مع كائنات PowerPoint. 2. **إنشاء تطبيق PowerPoint جديد**: - يتم إنشاء مثيل جديد من PowerPoint وفتح عرض تقديمي جديد. 3. **إضافة شريحة جديدة**: - يتم إضافة شريحة جديدة إلى العرض التقديمي وتعيين تخطيطها إلى فارغ (`ppLayoutBlank`). 4. **إضافة شكل مستطيل**: - يتم إضافة شكل مستطيل إلى الشريحة ليكون خلفية بيضاء. 5. **إضافة نص**: - يتم إضافة تسميات نصية إلى الشريحة، مع تحديد النص ولون الخط وحجمه. النص يتم الحصول عليه من خاصية `Me.note`، وإذا كان فارغًا يتم استخدام القيمة الافتراضية "kanory". 6. **توسيع الشكل ليناسب النص**: - يتم ضبط حجم الشكل تلقائيًا ليناسب النص المضاف. 7. **توسيع الشكل في وسط الشريحة**: - يتم تحديد موقع الشكل ليكون في وسط الشريحة. 8. **حفظ الشريحة كصورة**: - يتم حفظ الشريحة كصورة بتنسيق JPG في مجلد معين. 9. **إغلاق PowerPoint**: - بعد حفظ الصورة، يتم إغلاق العرض التقديمي وتطبيق PowerPoint. 10. **نسخ الصورة**: - يتم التحقق مما إذا كانت الصورة قد تم حفظها بنجاح. إذا كان هناك ملف صورة، يتم نسخه إلى موقع آخر مع اسم محدد. بعد ذلك، يتم حذف النسخة الأصلية. ### ملخص: الكود يقوم بإنشاء شريحة في PowerPoint، يضيف إليها نصًا وشكلًا، ثم يقوم بحفظ الشريحة كصورة JPG في مجلد محدد. في النهاية، ينسخ الصورة إلى اسم جديد (إذا لزم الأمر) ويحذف النسخة الأصلية.

لسه فيه مفاجآت ما خطرتش على بالك 😅🖐

وعليكم السلام ورحمة الله وبركاته 🙂 أنشيء هذا الاستعلام : وهذا الناتج : وبعدها صمم تقرير مبني على هذا الاستعلام .. 🙂 احصاء بالعدد والمبلغ.rar

وعليكم السلام ورحمة الله وبركاته .. 🙂 أخي مازن نافذة الأكواد مغلقة بكلمة مرور ..

أستاذة صفاء .. خلي أول حاجة تيجي في بالك لما تنزلي أي موضوع أنك تحطي مرفق مع السؤال .. مش هنشتغل في الهوا بأة 😏

ماشاء الله تبارك الله .. لك بصمة في كل مجال 🙂

بالإضافة لطريقة المهندس @محمد احمد لطفى جرب هذه الطريقة أيضا 🙂 : If IsDate(Me.datex) Then Me.datex2 = Year(CDate(Me.datex)) End If test8102024.rar

وعليكم السلام ورحمة الله .. تفضل 🙂 New Microsoft Access Database (4).rar

أخي أزهر .. حسب تصوري للموضوع أنك تريد نظام لمعرفة السجلات المضافة من قبل المستخدمين الآخرين وهل تم قرائتها من قبلك أم لا .. إن كان هذا هو مطلبك .. فستحتاج أن تضيف حقلين نصيين في الجدول .. الأول ( أضيف بواسطة ) : .. وفيه يتم تسجيل أسم المستخدم الذي أضاف السجل ... ويوضع في حدث قبل الإدراج. الثاني (قُرِئِت) : ... وفيه يتم إضافة اسماء المستخدمين الذين فتحو هذا السجل .. ويوضع في حدث عند الحالي وتعمل استعلام يقوم بحصر السجلات الغير مقروءة من قبلك .. فإن كان عددها أكبر من 1 تظهر لك الرسالة التنبيهية التي تريدها .. وسلامتك 🙂🖐 تم إضافة جميع ما سبق إلى ملفك : mr.accdb

وعليكم السلام ورحمة الله وبركاته معلمنا العود ، عدت والعود أحمد 😊🌹🌼 بل خسارتنا أحنا أكبر لما تغيب عنا ونفتقد توجيهاتك وخبراتك 😅🖐

وعليكم السلام ورحمة الله وبركاته 🙂 ضبط إعدادات اللغة العربية عندك :

السلام عليكم أخي @gavan 🙂 ما اسم الجدول المستهدف؟ وما اسم الحقل المراد جمعه ؟ وهل هناك شروط أخرى للجمع غير أن التاريخ يجب أن يكون قبل التاريخ المعطى ؟ ولو تكرمت أضف المزيد من السجلات للتأكد من سلامة التطبيق .. لا يمكن التحقق من سلامة النتيجة ب 3 مدخلات فقط !!

نعم ضع المعايير التي تريدها في الدالة .

أنت البحر بأمواجه أستاذنا العزيز @ابوخليل 🙂 🌹 والعسل لا ينطق إلا كلام كالعسل يا عسل 🙂 🌷 روعتها من روعتكم 😊🌷

جرب هذا ... 🙂 *لإخفاء وإظهار ورقة الخصائص PropertySheet* *شرح الكود:* من عند المهندس أبا جودي *الكود:* '================================(الروتين العام) Private Sub EnablePropertySheet() Dim obj As Object For Each obj In CommandBars If obj.Index < 10 Then obj.Enabled = True End If Next obj End Sub Private Sub DisablePropertySheet() Dim obj As Object For Each obj In CommandBars If obj.Index < 10 Then obj.Enabled = False End If Next obj End Sub '================================(الأوامر التي توضع على الأزرار للاستدعاء) Private Sub BtnOn_Click() On Error GoTo ErrHandler CommandBars("Property Sheet").Enabled = True ErrHandler: If Err Then Call EnablePropertySheet End Sub Private Sub BtnOff_Click() On Error GoTo ErrHandler CommandBars("Property Sheet").Enabled = True CommandBars("Property Sheet").Enabled = False ErrHandler: If Err Then Call DisablePropertySheet End Sub *طريقة الاستدعاء (الاستخدام):* يوضعان على زرين أحدهما لإخفاء ورقة الخصائص والثاني لإظهارها Private Sub BtnOff_Click() Private Sub BtnOn_Click() *مكتبة الأكواد*

وعليكم السلام ورحمة الله وبركاته أخي سامر 🙂 من أين تأخذ قيمة الحقل ؟ هل من الجدول مباشرة أم من النموذج ؟ إن كانت من الجدول فاستخدم دالة >> Dlookup أما إن كان من النموذج فاكتب في الاستعلام : >> forms![FormName]![location]

اعرض الملف ✨نصوص متحركة ✨ .. 4 أربعة أشكال متنوعة مما لذ وطاب 😊👌 السلام عليكم ورحمة الله وبركاته 🙂 هذي من بعض التجارب على عمل أشكال جديدة على النصوص المتحركة .. وقد خلصت التجارب إلى التالي 🙂 للاستفادة من المثال : لدينا أربعة نماذج ، كل واحد منها يحتوي على أحد الأشكال الموضحة بالترتيب .. قم بفتح النموذج المراد تطبيقه ثم أنقل الأكواد مثل ما هي إلى برنامجك + الليبل الموجود في النموذج ( ويمكنك أستخدام الليبل الخاص بك ) قم فقط بتعديل النص المراد تحريكة + اسم الليبل الذي سيتحرك النص بداخله . صاحب الملف Moosak تمت الاضافه 03 أكت, 2024 الاقسام قسم الأكسيس  

شكرا @hanan_ms 🌹 تصميم جميل وألون باهرة .. 🙂 لكن هل يمكن شرح كيفية الاستفاده منه بالصوت ( الكلام ) ؟ ولو عن طريق الذكاء الإصطناعي أو الكتابة .. لأن التصميم متداخل جدا وغير مفهوم إطلاقا .. 😪

السؤال غير واضح 🙂🖐

أنصحك بعكس تصميم التقرير .. التقرير الرئيسي للآباء .. وداخله تقرير فرعي يظهر الأبناء .. فلو كان الأب ليس لديه أبناء .. يظهر اسم الأب ويختفي التقرير الفرعي 🙂 لديه أبناء ليس لديه أبناء مثال.rar