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

Lamyaa

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    110

  • تاريخ الانضمام

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

  • Days Won

    1

 نوع المحتوي 

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

  1. Lamyaa
  2. Lamyaa
    الأداة رائعة ولكن اشتغلت معي مرة واحدة وبعدها يظهر لي الخطأ: حدث خطأ أثناء الاتصال بخدمة الذكاء الاصطناعي
  3. Lamyaa
    ملفك بعد التعديل 20251124.rar
  4. Lamyaa
    هذا هو التطبيق PrintMultipleCopies.accdb
  5. Lamyaa
    خطأ مطبعي
  6. Lamyaa
    إضافة إلى ما ذكره الأساتذة يمكنك استخدام هذه الدالة: Public Function PrintMultipleCopies(strReportName As String, _ bytNumberOfCopies As Byte) Dim bytCounter As Byte For bytCounter = 1 To bytNumberOfCopies DoCmd.OpenReport strReportName Next bytCounter End Function وطريقة الاستدعاء: Call PrintMultipleReports("[اسم التقرير]", 2) ' حاليا تم التعيين نسختين ويمكنك التعديل حسب ما تريد
  7. Lamyaa
    وعليكم السلام ورحمة الله وبركاته إذا كنت تقصد من الأكسيس مباشرة ، فنعم ممكن ولكن بإصدارة قديمة مصممة للعمل بنمط ActiveX ، ابحث عنها في النت وستجدها ، وستجد أمثلة للعمل على VB6 تعمل بنفس الأكواد على VBA إن أردت سأبحث عنها لك في جهازي القديم فقد استعملتها من قبل
  8. Lamyaa
    أفضل شرح للمرحلة الثانية ما تفضلت به من شروحات ، لكم جزيل الشكر والتقدير وأعتقد أن مشاركتك لم تأخذ نصيبها من الاهتمام
  9. Lamyaa
    شكرا على المشاركة ورحم الله والديك
  10. Lamyaa
    دائما مبدع .. وبأفكار جديدة شكرا يا أبا جودي
  11. Lamyaa
    بارك الله فيك ونفع بك
  12. Lamyaa
    جزيل الشكر على المشاركة
  13. Lamyaa
    شكرا على الملاحظة @سلمان الشهراني كرما إرسلها لي على الخاص
  14. Lamyaa
    كرما حاولت الإرسال لك بالرسائل ولكن تظهر لي رسالة مفادها: أود أنا أيضا الاستفادة من طريقة الربط
  15. Lamyaa
    أداة رائعة جدا .. شكرا لك
  16. Lamyaa
    طبعا نفس الحال .. وبعض الأحيان أقول ربما يستخدم ترجمة آلية إلى اللغة العربية لهذا السبب يكون أغلب الكلام غير مفهوم ومركب بشكل خاطئ إضافة إلى أن أغلب الملفات عن تنزيلها لا تعمل لدي! عموما الشكر لـ hanan_ms على جهوده ومحاولاته.
  17. Lamyaa
    إذا قمت بتسجيل الأداة بشكل صحيح فهذا المثال سيفتح معك بشكل صحيح أداة تدوير النص.accdb
  18. Lamyaa
    يمكنك استخدام هذه الأداة
  19. Lamyaa
    جزيل الشكر والتقدير لمشاركتك لمجهوزدك الجبار .. متابعة باهتمام للموضوع
  20. Lamyaa
    جزيل الشكر والتقدير على هذا المجهود الجبار بارك الله فيك
  21. Lamyaa
    رائع جدا هل يمكن أن تظهر النتيجة بشكل منسق لتسهل القراءة (تظهر لي جميع الأسطر مدمجة في سطر واحد)
  22. Lamyaa
  23. Lamyaa
    نعم ، هي المرحلة الأولى وقد أشبعت في المنتدى شرحا وحلولا من قبل أساتذتنا الكرام وعلى رأسهم @أبو إبراهيم الغامدي و @ابو جودي والمرحلة الأولى كانت عبارة عن ترميز لبيانات الفاتورة وإظهاره في الفاتورة من خلال QR Code أما المرحلة الثانية فهي ربط عمليات البيع بسيرفرات وزارة الزكاة وفق الآلية التي ذكرها الأستاذ at_aziz هنا:
  24. Lamyaa
    أوفيس 365 32بت .. يعمل بشكل صحيح
  25. Lamyaa
    هذه طريقتي Dim QRLines As Variant QRLines = Split(Replace(QRText, Chr(13), ""), Chr(10)) ' يتم قراءة الأسطر من حقل QR ومن ثم تجزئتها إلى مصفوفة ' من ثم يتم إسناد القيم من المصفوفة إلى الحقول Textbox1 = QRLines(0) Textbox2 = QRLines(1) Textbox3 = QRLines(2) Textbox4 = QRLines(3)
×
×
  • اضف...

Important Information

  I accept