Lamyaa

إذا قمت بتسجيل الأداة بشكل صحيح فهذا المثال سيفتح معك بشكل صحيح أداة تدوير النص.accdb

يمكنك استخدام هذه الأداة

جزيل الشكر والتقدير لمشاركتك لمجهوزدك الجبار .. متابعة باهتمام للموضوع

جزيل الشكر والتقدير على هذا المجهود الجبار بارك الله فيك

رائع جدا هل يمكن أن تظهر النتيجة بشكل منسق لتسهل القراءة (تظهر لي جميع الأسطر مدمجة في سطر واحد)

نعم ، هي المرحلة الأولى وقد أشبعت في المنتدى شرحا وحلولا من قبل أساتذتنا الكرام وعلى رأسهم @أبو إبراهيم الغامدي و @ابو جودي والمرحلة الأولى كانت عبارة عن ترميز لبيانات الفاتورة وإظهاره في الفاتورة من خلال QR Code أما المرحلة الثانية فهي ربط عمليات البيع بسيرفرات وزارة الزكاة وفق الآلية التي ذكرها الأستاذ at_aziz هنا:

أوفيس 365 32بت .. يعمل بشكل صحيح

هذه طريقتي 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)

ما شاء الله .. دائما متميز أستاذ موسى .. هل لديك شيء لكتابة دالة iif فحينما تكون الشروط كثيرة تصبح معقدة

قم بنسخ الأداة إلى مجلد C:\WINDOWS\SysWOW64 ثم افتح Command Prompt كمسؤول وقم بتسجيل الأداة regsvr32 RotateLabelVer2.ocx والآن يمكنك في برنامج إضافة الأداة ستظهر الأداة بهذا الاسم: يمكنك تعديل نوع الخط والحجم واللون من صندوق الخصائص RotateLabelVer2.zip

شخصيا استخدم مكتبة ActiveX تصنع لك Label يمكنك أن تحدد من خلالها زاوية الكتابة وهي مجانية من الأستاذ عباس الملاحي لو أردتها سأقوم برفعها لك

HEUR:Trojan-Downloader.Win32.Banload.gen

السلام عليكم ورحمة الله وبركاته تأكد من تثبيت النواة المناسبة لك .. قد تكون قمت بتثبيت أوفيس 64 بت وأنت كنت تستخدم إصدارة 32 بت أو العكس

يبدو أن شركة الوتساب حدثت البرنامج اليوم رجعت إلى مثال الأستاذ موسى الكلباني .. وإذا به يعمل بشكل صحيح ودون مشاكل