اذهب الي المحتوي
أوفيسنا

Moosak

أوفيسنا
  • Posts

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

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

  • Days Won

    51

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

  1. تمت التجربة بنجاح ما شاء الله 😊👌 وفوق الحلاوة اللي أحلى وأحلى .. بارك الله فيك شيخ المعلمين 😊🌷 فقط لاحظت أن ماكرو التعدلات لا يحفظ القيمة قبل التعديل Old Value .. ولا طبيعي كذا ؟
  2. شيخ المعلمين @jjafferr 🙂🌹 .. عطاء لا ينقطع ومعين لا ينضب ❤ حسن فوق إحسان .. شكرا جزيلاً لك بحجم السماء 🌷
  3. لا أفهم ما الداعي للكذب في طلب المساعدة .. ومحاولة تشويه صورة العرب 😒👊🏻
  4. تحية عاطرة لك حبيبنا مستر @Foksh 🙂🌹 جمال على جمال .. وإبداع يلحقه إبداع 😊👌 :: لعيونك تم دمج التحديث بالمشاركة الأولى ::
  5. أيش أخبارك مع الأجانب أستاذة صفاء ؟؟ @safaa salem5 https://www.access-programmers.co.uk/forums/threads/how-to-add-space-between-lines-in-a-report-through-a-value-in-a-field-in-the-settings-table.332569/
  6. ربما لو خليت الصورة كخلفية للنموذج بالنفس وليست كصورة مستقلة بيقل الترميش ..
  7. بالتأكيد أخي .. على الرحب والسعة 🙂 طبعا هذا النموذج يوزع الإجازات السنوية للموظفين .. يمكنك استبدال الإجازات بالمشاريع أو المهام أو أي شيء له بداية ونهاية مثل العقود أو الدراسات العليا أو الرحلات أو .. أو .. أو ... حسب حاجتك وخيالك الواسع 🙂👌 تفضل : Gant Chart.accdb
  8. وعليكم السلام ورحمة الله وبركاته .. 🙂 نعم ممكن .. أنا صممت نموذج لعرض المشاريع أو المهام على الخط الزمني لمدة عام موزعة حسب الشهور والأسابيع .. ومنها يمكنك أن تنطلق بفكرتك حسب التفاصيل الموجودة لديك ..
  9. هذا ملف جاهز لاستيراد الملفات بجانب قاعدة البيانات واستعراضها في متصفح (لعرض الصور + ملفات PDF) أو مستعرض الصور (بطريقتين) .. جعلت الأكواد ( إضافة - فتح - حفظ - حذف ) في موديول عام لذا يمكن الاستفادة منها في جميع النماذج بسطور قليلة ومبسطة .. Private Sub AddFilesBtn_Click() ' إضافة مرفق Dim Add Add = AddFiles(Me, Me.ID.Value) If Add = "" Then Exit Sub Me.FileName = Add End Sub Private Sub BrowserBtn_Click() ' استعراض المرفق Call BrowserAttachment(Me.FileName.Value) End Sub Private Sub DeletBtn_Click() ' حذف المرفق Call DeletFileFromAttacments(Me, "FileName", Me.FileName.Value) End Sub Private Sub DownloadBtn_Click() ' تحميل المرفق في جهازك Call SaveAttacment(Me.FileName.Value) End Sub وبه ميزة أن الروابط تتأقلم مع نقل البرنامج من مكان إلى آخر بشرط أن الملف attachments يجب أن يكون بجانب قاعدة البيانات دائما .. مستعرض الصور : العرض عن طريق المتصفح : للتحميل : حفظ المرفقات بجانب البرنامج دائما 2.rar
  10. وعليكم السلام ورحمة الله وبركاته .. 🙂 استخدم الدالة Trim لحذف المسافات قبل وبعد النص في حدث بعد التحديث للحقل .
  11. لعمل شبكة جدولية تربط العناصر مع بعضها .. اتبع الخطوات التالية : 1- اختر عنصر واحد ..... ومن القائمة Arrange > Stacked 2- بعد ذلك ألحق بقية العناصر للشبكة بسحبها وظمها إلى الشبكة واحد تلو الآخر: وستصبح العناصر مربوطة مع بعضها بشبكة واحدة : 3 - لإضافة مسافة فارغة بين العناصر : حدد العمود .. من خلال الخيارات ( إضافة لليمين ) ... 4- جرب الخيارات الأخرى لزيادة أو تنقيص المسافة بين العناصر
  12. هذه هي المشكلة الأزلية مع الأكسس .. 🤦‍♂️ أنا هصف جنبك لحد ما حد يحل هذي المعضلة 😅
  13. في حالتي ضغطت على زر اللعب فدخل مباشرة باسم أوفيسنا ولم يضفني .. 😅🖐
  14. تسلم أيدك يا فنان 🙂 فقط لاحظت أنني عندما أدخل أسمي كمستخدم جديد لا ينحفظ إلا إذا خرجت وفتحت النموذج من جديد 🙂
  15. نعم ممكن بنفس الفكرة .. 1-حقل لحفظ القيمة في الجدول 2- تضيفين الحقل في النموذج 3- تضيفين Tag جديد للأعمدة 4ـ تعديل الكود لتغيير عرض الأعمدة ذات نفس التاج حسب القيمة المخزنة في الجدول..
  16. لو لاحظتي أن ربطت جميع العناصر بشبكة جدولية واحدة علشان أستطيع أتحكم بمواقع العناصر وتتفاعل مع بعضها .. ويكفي أني أغير أرتفاع عنصر واحد في كل سطر ( صف ) وهيتغير أرتفاع الكل ( نفس الجداول في الأكسل أو الوورد بالضبط ) لذلك هتلاقي في أماكن فارغة في الجدول علشان التنسيق .. ودي على فكرة مساحات فارغة وليست مربعات نص ..
  17. تفضلي : التحكم بالمسافة بين السطور في التقرير.accdb
  18. ما شاء الله تبارك الله مهندسنا مستر @Foksh 😄👏 نقلة نوعية ماشاء الله .. إشي فنتاستك 🤩👌 هذي فعلا بدها منسف يا زلمة 😋🍲 الجرافكس مع التصميم والبرمجة عامل مزيج إبداعي متميز .. تستاهل خمس نجوم ⭐⭐⭐⭐⭐.. الله يوفقك ويبارك فيك 😊🤲
  19. شرح الكود من العم أبو ذكاء 😁🖐: هذا الكود هو جزء من تطبيق يستخدم لغة 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 في مجلد محدد. في النهاية، ينسخ الصورة إلى اسم جديد (إذا لزم الأمر) ويحذف النسخة الأصلية.
  20. لسه فيه مفاجآت ما خطرتش على بالك 😅🖐
  21. وعليكم السلام ورحمة الله وبركاته 🙂 أنشيء هذا الاستعلام : وهذا الناتج : وبعدها صمم تقرير مبني على هذا الاستعلام .. 🙂 احصاء بالعدد والمبلغ.rar
  22. وعليكم السلام ورحمة الله وبركاته .. 🙂 أخي مازن نافذة الأكواد مغلقة بكلمة مرور ..
  23. أستاذة صفاء .. خلي أول حاجة تيجي في بالك لما تنزلي أي موضوع أنك تحطي مرفق مع السؤال .. مش هنشتغل في الهوا بأة 😏
×
×
  • اضف...

Important Information