wael_rafat

استاذى الفاضل @ابو جودي كل الشكر والتقدير لشخصكم الكريم لقد اوضحت كل شئ بخصوص هذا الموضوع ... بارك الله فيك وجزاك الله عنا كل خير استاذنا الفاضل المعطاء وزادك الله من فضله ونعمه ...🌹

هذا ما توصلت اليه بعد البحث وباستخدام copilot وللاسف لم استطيع التطبيق بسبب المكتبة واليكم الخطوات : تأكد من أنك قمت بتثبيت مكتبة QRCodeEncoderDecoderLibrary كما تم ذكره سابقًا. بعد ذلك، يمكنك استخدام الكود التالي: vba ' تأكد من أنك قمت بإضافة مرجع للمكتبة ' Reference the QRCodeEncoderDecoderLibrary Private Sub GenerateQRCodeFromImage() ' أنشئ كائن QRCodeEncoder Dim QRCode As New QRCodeEncoderDecoderLibrary.QRCodeEncoder Dim ImagePath As String Dim SavePath As String ' تحديد مسار الصورة ومكان حفظ رمز QR ImagePath = "C:\path\to\your\image.jpg" 'حدد مسار صورتك هنا SavePath = "C:\path\to\save\QRCode.png" 'حدد مكان حفظ رمز QR هنا ' توليد رمز QR من الصورة QRCode.EncodeImageToFile ImagePath, SavePath ' إظهار رسالة توضح نجاح العملية MsgBox "تم إنشاء رمز QR وحفظه في " & SavePath, vbInformation End Sub في هذا المثال: - ImagePath: هو المسار الذي توجد فيه الصورة التي تريد تحويلها إلى رمز QR. - SavePath: هو المسار الذي تريد حفظ رمز QR فيه.

بارك الله فيك استاذي الفاضل @ناقل ... وجاري البحث ... كل الشكر والتقدير استاذنا.

بارك الله فيكم .... هل الاستفسار غير واضح ؟؟؟

السلام عليكم ورحمة الله وبركاته ... اخواني الكرام الافاضل بارك الله فيكم جميعا وجزاكم الله عنا خير الجزاء ... استفساري هو : هل يوجد امكانية لدمج بيانات مع صورة شخصية ، وذلك من خلال رمز الــ Qrcode ???? بمعنى هل يوجد امكانية لادراج بيانات موظف مثل (الاسم - الادارة - الرقم الوظيفي ....... الخ ) مع صورة شخصية له يقرأ من خلال رمز الــ Qrcode ؟؟؟ بخصوص البيانات فقط فهي متاحة ومعمول بها ، ولكن كيفية دمج صورة مع هذه البيانات فهل هذا متاح ؟؟ اتمنى يكون استفساري واضح . مع الشكر كل التقدير والاحترام

اسأل الله العظيم رب العرش العظيم ان يشفيه ويعافيه

ماشاء الله مبدع دائما استاذنا الجميل @ابو جودي زادك الله من علمه وفضله 🌹🌹

السلام عليكم ورحمه الله وبركاته بارك الله فيك استاذي العزيز ... ولكن عندي استفسار لماذا هذا الكود يشتغل على اوفيس 2016 32 بت تمام ، ولم يشتغل على اوفيس 365 64 بت وبدون اي رسائل خطأ فقط عدم استجابة مع الشكر استاذي الفاضل ... علما ايضا ان كثير من الاكواد لم تشتغل على اوفيس 2021 32 بت ايضا ولا يوجد اي رسائل خطأ وانما لا يستجيب الكود اريد ان اعرف اين تكمن المشكلة ؟؟؟؟ مع الشكر

تسلم استاذنا الجميل... تم حل المشكلة بارك الله فيك كل الشكر والتقدير ،،،

الف مبرووووك استاذنا 🌹 والى الامام دائما باذن الله 👍

عليكم السلام اتفضل Private Sub B_1_AfterUpdate() If Me.B_1 = "ذكر" Then Me.t_1 = True Me.t_2 = False Else Me.t_1 = False Me.t_2 = True End If End Sub بالتوفيق...

الف الف مبروك حبيبنا @ابو جودي تستاهل كل خير استاذنا 🌹🌹🌹🌹 والى الامام دائما باذن الله

جميل استاذنا الجميل @kanory بعد اذنك انا حاولت استخدام اكثر من معيار باستخدام And ولم ينجح الامر ... على سبيل المثال DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*'" And "class Like '*" & Me.lst4.Column(1) & "*'" فما الصيغة الصحيحة عند استخدام اكثر من معيار ؟؟؟ كل الشكر والتقدير استاذنا الفاضل

استاذنا الجميل @husamwahab مثال رائع استاذنا ولو امكن شرح الكود حتى استطيع تطبيق الفكرة على امور اخرى على سبيل المثال ( اختيار عدد العناصر - اختيار فئات معينة من العناصر - التغاطي عن ايام العطل ...... الخ كل الشكر والتقدير استاذنا الغالي ...

استاذي الفاضل @husamwahab شكرا على المتابعة وجاري عمل المطلوب كل الشكر والتقدير استاذنا ....