Foksh

أخي الكريم ، عدة نقاط أرجو توضيحها لأني في البداية قرأت الموضوع بشكل سريع ( كنت في طريقي للعمل ) ، الآن كالتالي :- لنفترض أن لديك نموذج يحتوي مربع نص لاستخدامه للبحث ( على سبيل المثال ) وتريد كتابة البحث داخل الحقل NASS في الجدول TAB ( صحيح ) عن قيم عشوائية يتم كتابتها بشكل يدوي وليس قيم محددة ( صحيح ؟ ) . يعني مثلاُ النتيجة التي تريدها عند البحث عن " فوائد تمام (756) " القيمة مأخوذة من أحي بيانات سجل في الجدول TAB من الحقل NASS ، وعليه فأن النتيجة التي تريد عرضها في النموذج الفرعي للنتئج ماذا ستكون ؟؟؟؟؟؟؟؟ لا بأس في شرحك إلا أن الأمور قد تتداخل في بعضها

تأكد من تفعيل الماكرو في ( مركز الوثوق > ضبط اعدادات الماكرو ) في جهاز العميل

أحياناً .. دي بتكون مشكلة في الأوفيس ، لأني جربت البحث بالعربي وبالانجليزي على أكثر من مكان ، وما ظهرش مشكلة عندي انا بستعمل أوفيس 2016 نواة 64 بت

إزاي ممكن توضح ؟؟؟لأن نتيجة البحث بتكون حسب اسماء الملفات بتاعتك ، بص هنا

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

تفضل ، كنت لسه ما وصلتش الشغل هههههههه Mega

لا بجد والله انا بعتذر ، يبدو ان المشكلة في سيرفر الميديا فاير ، هرفع الملف تاني وارجو استبدال الرابط في المشاركة 😬

موضوع جميل مشوق ، يسعدني المشاركه مع الإخوة الأفاضل بأقرب فرصة 🤗

كنت في إجازة ، إن شاء الله هحاول اليوم ارفقلك التعديل ،

مهي النسخة المفتوحة موجودة في المشاركة الأخيرة يا صديقي 🤗 من هنا

راجع هذه المشاركة هنا

عملتهولك في هذه المشاركة

برضوووو 😂 ربنا يكرمك ، دا من زوءك 🥰

بداية الفكرة اللي في الملف تم حل مشكلة التعرف على الماسح الضوئي ؟؟ أم لا ؟؟؟؟؟؟ ثم ممكن نحل هذه المشكلة التي ذكرتها

جرب هذا المرفق ، جزء من أحد مشاريعي 🙄 Scanner.accdb

Docmd.Maximize

لنجرب اعادة ترتيب الأحداث .. لأ المرفق عندي يعمل 100% في جهازي في العمل Private Sub scan1_Click() [picfile] = Null On Error Resume Next If scanner.DeviceInfos.Count = 0 Then MsgBox "لا يوجد ماسح ضوئي متصل", vbExclamation Exit Sub Else Dim filelocation As String ' متغير موقع الملف filelocation = Application.CurrentProject.Path & "\" & "Image" & "\Items\" & Me.mID & "T." & ".jpg" 'filelocation = Application.CurrentProject.Path & "\" & "Image" & "\" & "Items" & "\" & Me.mID & "T." & ".jpg" Dim scandiag As New WIA.CommonDialog Dim image As WIA.ImageFile Set image = scandiag.ShowAcquireImage image.SaveFile filelocation Me.picfile = filelocation Me.Refresh End If End Sub

طبعاً للأمانة أمام الله ، هذه الفكرة تم استخدامها وإضافتها من أحد ملفات أستاذنا @ابو جودي ، جزاه الله خير طبعاً

ارجو اختيار أفضل إجابة لصاحب حل المشكلة أخي @أبو أحمد واعتقد هو الأستاذ @kkhalifa1960

تم إضافة التأثيرات الصوتية الى التحديث الجديد . تم إضافة اسماء اللاعبين في مربعات نص . تم تعديل التعليقات من اللغة الإنجليزية الى اللغة العربية . تم إضافة تاثير الحركة الإنتقالية المرئية . تم إضافة زر لإيقاف الأصوات أو تشغيلها أثناء اللعب . Snake.zip

وإياكم معلمي الفاضل ..

جرب هذه الفكرة معلمي الفاضل @ابوخليل :) Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub

هذه فكرتي المتواضعة ، ويمكن تعديلها حسب الحاجة Global Time.accdb

مهو لو توضح أكثر صديقي العزيز ، وزودني بصورة لنتيجة البحث 😁

و والديكم يا عزيزي ، تقبل اعتذاري ، وانني فقط أمازحك 🥰