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

Lamyaa

03 عضو مميز
  • Posts

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

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

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

  1. وعليكم السلام ورحمة الله وبركاته إذا كنت تقصد من الأكسيس مباشرة ، فنعم ممكن ولكن بإصدارة قديمة مصممة للعمل بنمط ActiveX ، ابحث عنها في النت وستجدها ، وستجد أمثلة للعمل على VB6 تعمل بنفس الأكواد على VBA إن أردت سأبحث عنها لك في جهازي القديم فقد استعملتها من قبل
  2. أفضل شرح للمرحلة الثانية ما تفضلت به من شروحات ، لكم جزيل الشكر والتقدير وأعتقد أن مشاركتك لم تأخذ نصيبها من الاهتمام
  3. شكرا على المشاركة ورحم الله والديك
  4. شكرا على الملاحظة @سلمان الشهراني كرما إرسلها لي على الخاص
  5. كرما حاولت الإرسال لك بالرسائل ولكن تظهر لي رسالة مفادها: أود أنا أيضا الاستفادة من طريقة الربط
  6. طبعا نفس الحال .. وبعض الأحيان أقول ربما يستخدم ترجمة آلية إلى اللغة العربية لهذا السبب يكون أغلب الكلام غير مفهوم ومركب بشكل خاطئ إضافة إلى أن أغلب الملفات عن تنزيلها لا تعمل لدي! عموما الشكر لـ hanan_ms على جهوده ومحاولاته.
  7. إذا قمت بتسجيل الأداة بشكل صحيح فهذا المثال سيفتح معك بشكل صحيح أداة تدوير النص.accdb
  8. يمكنك استخدام هذه الأداة
  9. جزيل الشكر والتقدير لمشاركتك لمجهوزدك الجبار .. متابعة باهتمام للموضوع
  10. جزيل الشكر والتقدير على هذا المجهود الجبار بارك الله فيك
  11. رائع جدا هل يمكن أن تظهر النتيجة بشكل منسق لتسهل القراءة (تظهر لي جميع الأسطر مدمجة في سطر واحد)
  12. نعم ، هي المرحلة الأولى وقد أشبعت في المنتدى شرحا وحلولا من قبل أساتذتنا الكرام وعلى رأسهم @أبو إبراهيم الغامدي و @ابو جودي والمرحلة الأولى كانت عبارة عن ترميز لبيانات الفاتورة وإظهاره في الفاتورة من خلال QR Code أما المرحلة الثانية فهي ربط عمليات البيع بسيرفرات وزارة الزكاة وفق الآلية التي ذكرها الأستاذ at_aziz هنا:
  13. هذه طريقتي 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)
  14. ما شاء الله .. دائما متميز أستاذ موسى .. هل لديك شيء لكتابة دالة iif فحينما تكون الشروط كثيرة تصبح معقدة
  15. قم بنسخ الأداة إلى مجلد C:\WINDOWS\SysWOW64 ثم افتح Command Prompt كمسؤول وقم بتسجيل الأداة regsvr32 RotateLabelVer2.ocx والآن يمكنك في برنامج إضافة الأداة ستظهر الأداة بهذا الاسم: يمكنك تعديل نوع الخط والحجم واللون من صندوق الخصائص RotateLabelVer2.zip
  16. شخصيا استخدم مكتبة ActiveX تصنع لك Label يمكنك أن تحدد من خلالها زاوية الكتابة وهي مجانية من الأستاذ عباس الملاحي لو أردتها سأقوم برفعها لك
  17. السلام عليكم ورحمة الله وبركاته تأكد من تثبيت النواة المناسبة لك .. قد تكون قمت بتثبيت أوفيس 64 بت وأنت كنت تستخدم إصدارة 32 بت أو العكس
  18. يبدو أن شركة الوتساب حدثت البرنامج اليوم رجعت إلى مثال الأستاذ موسى الكلباني .. وإذا به يعمل بشكل صحيح ودون مشاكل
×
×
  • اضف...

Important Information