Moosak

تم عمل بعض التعديلات عمي جعفر .. مع التنويه إلى أن هذه الأداة لاتقوم بكتابة الأكواد بناءً على الطلبات ! بل وظيفتها تعديل وتحسين الكود الذي تعطيها إياه وتصحيح الأخطاء الموجودة فيه بالإضافة للخدمات الأخرى : ولتحقيق مرونة أكبر للمستخدم ، أضفت حقل خاص بكتابة تعليمات مخصصة توجهها للذكاء الاصطناعي بحيث يراعيها عند معالجة الطلب ، مثال : ( قم بتغيير أسماء المتغيرات لأسماء مقروءة ، أو قم تقسيم جملة SQL لعدة أسطر هكذا ....... ، أو ، أو ) أكتب ما شئت 🙂 وبعد التجربة على الجملة التي أوردتها : strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " & vbCrLf & _ "FROM tblCheckINOut " & vbCrLf & _ "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) " & vbCrLf & _ "ORDER BY tblCheckINOut.id DESC;" كانت النتيجة : Option Explicit Dim strSql As String strSql = "SELECT TOP 1 tblCheckINOut.id, tblCheckINOut.EmpUser, tblCheckINOut.chekInOut, tblCheckINOut.chkio, tblCheckINOut.ftra_id " strSql = strSql & "FROM tblCheckINOut " strSql = strSql & "WHERE (((tblCheckINOut.EmpUser)='" & EmpUserid & "')) " strSql = strSql & "ORDER BY tblCheckINOut.id DESC;" وكانت هذه هي التعليمات الإضافية : قم بتقسيم جملة SQL لعدة أسطر بهذا الأسلوب : strSql = strSql & " "

وعليكم السلام ورحمة الله وبركاته عمي جعفر 🙂 سعدت بمرورك 😊🌹 تمام إن شاء الله .. بإذن الله أصلحه ما أمكن .. وآتيك بالخبر اليقين .. 👍

شكرا جزيلا لك أخي منتصر .. عندك حلول لكل معضلة ما شاء الله 👍😄

اللهم يا شافي العليل، اشفِ أخانا قاسم شفاءً كاملاً لا يُبقي أثرًا. اللهم اجعل مرضه كفارةً لذنوبه وسببا لرفعة درجاته. واحفظ والدته، وبارك لها في عمرها وصحتها وطمأنينتها. نسأل الله أن يجعل ما تمر به سببًا للشفاء والعافية. برحمتك يا أرحم الراحمين.

تريده هكذا أستاذ يوسف ؟ 🙂 JO_Lab.rar

دائما لك نكهة خاصة مميزة 😋👌🌹 إبداع وإمتاع

تعديل على إجابة الباش مهندس فادي حيث أنه يريد التلوين عندما تكون القيمة لا تساوي "لا يوجد" 🙂 [Foksh] <> "لا يوجد"

طيب هناك فكرة تدور في ذهني .. يمكنك إخراج الملف بأسم غريب ومشفر لا يفهمة إلا من يعرفه 🙂 مثلا لو كان اسم الملف Ball.png أجعل اسمه هكذا مثلا gfkjgfggsdfjhfd.ddt وبعد أستيراده مجددا رجع الاسم الحقيقي للملفBall.png واحذف الملف المشفر ولن يفهم أحد أيش اللي حصل .. ولا من سمع ولا من دري 😅

ألف شكر لك حبيب الملايين 😊🌹🌺🌸

كلها كانت محاولات لفهم ماذا تقصد بالمسار الوهمي ؟!! فعلا قصدك غير واضح 😅🖐️

يمكنك تجربة الكود الأخير للأخ خليفة أو أن تضيف حقل نصي بجانب حقل المرفق يحفظ لك رابط الصورة أو الملف في الخارج ويتم تحديثه عند كل عملية إخراج .. وعندها سيبقى الرابط مسجلا عندك بشكل دائم ويمكنك الرجوع إليه حتى عند إقلاع البرنامج (لفحص وجود الملف مثلا) .. وعندك أكثر من طريقة لعمل دالة عامة Function ترجع لك الرابط المسجل في الجدول 🙂

ما شاء الله تبارك الرحمن 🙂 جميل جدا تنوع الأفكار في نفس المجال 😊👌 وأنا أيضا لدي برنامج خاص بتصميم الشهادات وتنسيقها وتوليد الشهادات لمجموعة كبيرة من الطلاب أو المتدربين أو المستلمين بشكل عام ، وكذلك يقوم بإرسال الشهادات بالبريد الإلكتروني لكل المستهدفين ( كل متدرب أو طالب يستلم شهادته) ، وأيضا يقوم بحفظ جميع الشهادات على شكل Pdf دفعة واحدة .. 🙂 مع إمكانيات تنسيق النص ( الخطوط والألوان ) بشكل حر ، وإضافة التواقيع ، وتغيير إطارات البرنامج .. إلخ تصميم وتنسيق النصوص بكل أريحية إضافة المتدربين دفعة واحدة بعدد لا محدود معاينة بشكل مباشر اواجهة البرنامج مع خيارات البحث وعرض تقارير وإحصائيات لتحميل البرنامج : تنصيب برنامج صانع الشهادات الإصدار الثالث 3.0.zip

أفتح البرنامج عن طريق الضغط على زر الشفت Shift لكي تصل إلى الأكواد .. وبعدها قم بتحويل الأكواد وأعد تشغيل البرنامج 🙂

تفضل أخي بلال .. 🙂 الزر الثاني : Me.SubForm.SourceObject = "Report.Report_Rpt" 222222.accdb

لا أعلم ما السبب حقيقة .. لكن هل عندما تجرب من أجهزة مختلفة تحصل على نفس النتيجة ؟ خطوة عزيزة حبيبنا الغالي 😊🌹 الأداة سرها العجيب هو كود الـ API والمربوط بال Gemini لذلك مثلما لايمكنك فتح الأيميل بدون إنترنت فهذه كذلك 😅 أستخدمها أول الشهر (لما ينزل الراتب وتسدد فاتورة النت) وصبر نفسك آخر الشهر 😂🖐