Foksh

تفضل ، كنت لسه ما وصلتش الشغل هههههههه 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

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

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

هل أنا فقط من يشعر وكأن ترجمة جوجل صاحبة الموضوع 😅 ليست سخرية أعوذ بالله ، ولكن من نمط الكتابة تشعرني بذلك. كل الإحترام والتقدير لصاحب الموضوع 💐

ولأنك منتسب جديد في المنتدى ، في أي موضوع تقوم بنشره وقد حصلت على إجابة لموضوعك وطلبك يتوجب عليك إغلاق الموضوع باختيار أفضل إجابة للمشاركة التي كان فيها حل لمشكلتك وطلبك. وأهلاً بك مجدداً 🤗 واليك تعديل بسيط بحيث يتم افراغ المسارات في الليست بوكس Text4 قبل استعراض مجلد آخر Private Sub cmdBrowse_Click() Me.Text4.RowSource = "" Dim sysFo, sysFi, foldry, filey As Object, i As String, X As Integer Set sysFo = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then Set sysFi = sysFo.GetFolder(Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)) Set foldry = sysFo.GetFolder(sysFi).Files For Each filey In foldry i = sysFo.GetAbsolutePathName(filey) i = UCase(i) Text4.AddItem (filey) Next End If End With Set sysFo = Nothing Set sysFi = Nothing Set foldry = Nothing End Sub

سؤال على الهامش للأخ @سلمان الشهراني ولا غنى عن البقية طبعاً هل لهذا الموضوع علاقة بما تم طرحه هنا ؟؟ أو يساعد في تحقيق الهدف !!

على العموم ، وآملاً منك الإلتزام بقوانين المنتدى مستقبلاً . هل هذا طلبك في هذا الكود ؟؟؟ Private Sub Command7_Click() Dim i As Integer Dim searchText As String Dim listItem As String Dim found As Boolean searchText = InputBox("اكتب الكلمة التي تريد البحث عنها", "مربع البحث") If searchText = "" Then MsgBox "تم الغاء العملية", vbExclamation Exit Sub End If found = False For i = 0 To Me.Text4.ListCount - 1 listItem = Me.Text4.ItemData(i) If InStr(1, listItem, searchText, vbTextCompare) > 0 Then found = True Me.Text4 = listItem DoCmd.Hourglass True [WebBrowser0].Object.ExecWB OLECMDID_OPTICAL_ZOOM, _ OLECMDEXECOPT_DONTPROMPTUSER, CLng(100), vbNull [WebBrowser0].Object.Navigate2 listItem DoCmd.Hourglass False Exit Sub End If Next i If Not found Then MsgBox "لم يطابق البحث عن الكلمة التي بحثت عنها", , "" End If End Sub عارض pdf بالمسار.accdb