Foksh

بطريق آخر ،، المهم نجاح الفكرة و وصولك الى حل يعالج مشكلتك ، بالتوفيق أستاذ @عبد الله قدور

فهمتك أخي الكريم @أمير ادم ، ولكن على ما يبدو أنه بسبب عدم وجود البرامج التي تم تثبيتها على جهازك لم يعمل الملف معي بشكل صحيح ، لذا اضطررت الى الاتجاه على طريق آخر ،، على العموم جرب هذا الكود كمحاولة فقط لتحديد التنسيق في حقل الوقت والتاريخ . On Error Resume Next Dim apiUrl As String Dim qrData As String Dim savePath As String Dim result As Long Dim formattedDate As String formattedDate = Format(Me.AD_Invoice_Time_and_Date, "yyyy-mm-dd hh:nn:ss ampm") Me.AD_Associatedcells = Me.AD_Company_Vendor_Name & "_" & Me.AD_Tax_Number & "_" & formattedDate & "_" & Me.AD_InvoiceAmountwithaddedvalue & "_" & Me.AD_VAT qrData = Me.AD_Associatedcells.Value apiUrl = "https://api.qrserver.com/v1/create-qr-code/?data=" & qrData & "&size=200x200" savePath = Application.CurrentProject.Path & "\qr_code.bmp" result = URLDownloadToFile(0, apiUrl, savePath, 0, 0) If result = 0 Then Me.imgQRCode.Picture = savePath Else MsgBox "Failed to download QR code image.", vbExclamation End If أو ارفق لنا البرامج التي تم تثبيتها على الكمبيوتر عندك والسبب وجود مكتبات ناقصة كما في الصورة

الموضوع ليس بالقديم جداً ، ولكني انصحك بفتح موضوع جديد وإرفاق ملفك الذي تريد التعديل عليه

أخي الكريم @أمير ادم ، قمت بتعديل جذري على فكرتك بحيث ابتعدت عن الاعتماد على موقع يقوم بإنشاء كود QR ، واستعنت ببرنامج صغير يدعم اللغة العربية أيضاً ، وأعدت صياغة الكود كما يلي ، مع العلم أن المشكلة لديك كانت في تنسيق مربع النص AD_Invoice_Time_and_Date .. تفضل تجربتي وأخبرني بالنتيجة QR.zip

نعود هنا لنقطة النقاش والمعضلة .. وهي أنك كمصمم للبرنامج ستكون ملزم بتحديد القياسات ( حجم الشاشة ) !! وهذا الأمر إلى حد ما منافٍ للمنطق والمعقول . حاول بلورة الموضوع من خلال ان تجعل الفورم يتعرف على قياسات الشاشة بشكل تلقائي وديناميكي ،، سأدلك على موضوع لي سابق كنت قد توجهت به إلى طريقة للتعرف على قياسات الشاشة بشكل تلقائي في هذا الموضوع 😉 .

اخي الكريم @sm44ms كنا بدايةً في موضوع الأيقونة ، ثم اتجهنا الى كود لا يعمل ، والآن زر حفظ وتراجع ،، افتح موضوع في كل طلب حتى لا تخالف قوانين المنتدى 🥰

مشاركة جانبية متأخرة مع الأساتذة ( أن تصل متأخراً خير من أن لا تصل ابدأ )، جرب هذه الفكرة اخي @عبد الله قدور ، ننشئ دالة عامة في مديول ونستخدم هذا الكود الذي يعيد تنسيق التاريخ بالشكل DD/MM/YYYY :- Public Function ParseDate(inputDate As String) As Date Dim dayPart As String Dim monthPart As String Dim yearPart As String dayPart = Mid(inputDate, 1, 2) monthPart = Mid(inputDate, 4, 2) yearPart = Mid(inputDate, 7, 4) ParseDate = DateSerial(CInt(yearPart), CInt(monthPart), CInt(dayPart)) End Function ونستدعيه على سبيل المثال كالآتي ( المتغير اختياري وعلى سبيل المثال ) :- Dim myDate As Date myDate = ParseDate("24/05/2024") ودمتم 🤗

تم تحديث الملف بتعديل بعض الأكواد للأفضل ( لا زيادة على الأكواد )

شكراً لمروروك صديقي @TQTHAMI ، كلامك سليم ، ولكن اللعبة هنا تحتوي على 10 صور فقط وهي ( 6 صور لأوجه حجر النرد + 4 صور بين القرعة واللاعب الأول والثاني واللعبة الجديدة )

السلام عليكم ورحمة الله وبركاته ، أخواني وأساتذتي ومعلمينا ( دون استثناء ) طبعاً المكتوب باين من عنوانه . هي اللعبة المعروفة والتي لعبها منا على الأغلب الجميع في طفولته .. من يبدأ اللعب هو من يحصل على أعلى رقم من القرعة . اللعبة يلعبها لاعبين اثنين فقط . يتم تسجيل النقاط لكل لاعب في خانة منفصلة . طريقة التحرك بنمط حجر النرد ( ولا أعلم إن كان البعض سيقول لي أن النرد حرام ) لكنه هنا ليس حجر نرد حقيقي وإنما فكرة اختيار عشوائي لصور أوجه حجر النرد ) الأرقام ) تدل على خطوات التقدم . الصعود لأعلى عند وصول اللاعب إلى أول السلم حتى الخانة التي تمثل رأس السلم . وكما الصعود !! سيكون لدينا النزول عند وصول اللاعب إلى رأس الثعبان سينزل باتجاه الذيل نزولاً .. تسجيل الحركات الإنتقالية لكل لاعب في مربع الحركات أسفل اللعبة . في حال الوصول إلى 95 سيحتاج اللاعب للوصول إلى الهدف 100 إلى 6 نقاط أو أقل ، فلو تقدم الى 99 كمثال هنا سيحتاج الى نقطة واحدة للتحرك وللفوز . فلو كان الاختيار العشوائي للصورة فرضاً 4 فلا يتم تحقيق الفوز إلا بالرقم 1 .... وهكذا . عند فوز أحد اللاعبين ، سيتحول الزر إلى لعبة جديدة . إمكانية تكبير النموذج لملئ الشاشة أو لا ، حسب رغبتك صور من اللعبة :- ملف اللعبة مفتوح المصدر Snake3.accdb

موضوع تحديد القياسات مشكلة عند تحديدها ,, اقرأ هذا الموضوع قد يفيدك لأخونا @طير البحر ..

ولا يهمك يا أخي ، ولكني انصحك بأن لا تبخل في وصف المطلوب حتى لا يبخل عليك أحد في الإجابة

هنا المشكلة يا صديقي ، تكمن في اختلاف الدقة من كمبيوتر إلى آخر ,, على العموم مشكور على المحاولة اللطيفة ,, بعد تجربته على ملف خاص كانت نسبة النجاح في تحقيق الهدف 85% مقارنة مع الكود الذي أشرت إليه سابقاً ..

تفضل أخي @2saad ، نفس الدالة تم تنفيذها على استعلامك .. mas.zip

بارك الله فيك ، تعديل جميل ويحقق فكرة الأخ @سيد رجب