Foksh

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

زاكر

أخي الكريم @nssj ، بداية دعني أوضح لك نقاط مهمة في الدوال التي تعمد على البحث داخل سجلات عن قيم غير ثابتو ولا تتبع اسلوب محدد في موضعها ، فإنه مع كثيرة السجلات والبيانات في الجداول مستقبلاً ستأخذ وقتاً أوطول كلما زادت كميوة الداتا في الجدول المستهدف للبحث فيه . وهذا أمر طبيعي ، وسأحاول جاهداً توظيف الكود ليكون سلساً وسهلاً في آلية عمله . ثانياً ، اعذرني لأني أحيانا لا أدقق في النتائج بشكل ممعن كصاحب الموضوع على العموم ، جرب هذا التعديل البسيط لجعل الكود بعتمد البحث عن الرقم بطريقتين:- الأولى حيث يتبع الرقم مباشرة اسم الكتاب، والثانية حيث يكون الرقم موجودًا داخل النص دون الالتزام بموضع محدد ، في الكود التالي ، وأخبرني بالنتيجة سريعاً الكود : Dim db As DAO.Database Dim rsBooks As DAO.Recordset Dim rsTab As DAO.Recordset Dim sql As String Dim bookNumber As String Dim found As Boolean Set db = CurrentDb() Set rsBooks = db.OpenRecordset("BOOKS") Do While Not rsBooks.EOF bookNumber = rsBooks!B_Hno found = False sql = "SELECT * FROM TAB WHERE NASS LIKE '" & rsBooks!bookName & " " & bookNumber & "%'" Set rsTab = db.OpenRecordset(sql) If Not rsTab.EOF Then rsTab.MoveFirst Do While Not rsTab.EOF If InStr(rsTab!NASS, bookNumber) = Len(rsTab!bookName) + 2 Then rsBooks.Edit rsBooks!MNO = rsTab!MNO rsBooks.Update found = True Exit Do End If rsTab.MoveNext Loop End If If Not found Then sql = "SELECT * FROM TAB WHERE InStr(NASS, '" & bookNumber & "') > 0" Set rsTab = db.OpenRecordset(sql) If Not rsTab.EOF Then rsTab.MoveFirst Do While Not rsTab.EOF If InStr(rsTab!NASS, bookNumber) > 0 Then rsBooks.Edit rsBooks!MNO = rsTab!MNO rsBooks.Update found = True Exit Do End If rsTab.MoveNext Loop End If End If rsTab.Close Set rsTab = Nothing rsBooks.MoveNext Loop rsBooks.Close Set rsBooks = Nothing Set db = Nothing المرفق بعد التعديل :- Smart_Search03.accdb

حالا اخي الكريم .. أخوك فادي من الأردن تفضل أخي @qathi ، جرب هذه الفكرة التي تم فيها تعديل بسيط لإظهار معالج السكانر في حال وجوده :- Dim imgFileName As String Dim imgPath As String Dim WIA As Object Dim scanner As Object Dim imgFile As Object Dim MyPath As String imgPath = CurrentProject.Path & "\Data\JPG\" imgFileName = imgPath & Me.ID & ".jpg" If Dir(imgPath, vbDirectory) = "" Then MkDir imgPath End If If Dir(imgFileName) <> "" Then If MsgBox("الصورة موجودة مسبقاً. هل ترغب في استبدالها؟", vbQuestion + vbYesNo, "تأكيد الاستبدال") = vbYes Then On Error Resume Next Kill imgFileName On Error GoTo 0 Else imgFileName = imgPath & Me.ID & "_new.jpg" End If End If Set WIA = CreateObject("WIA.CommonDialog") On Error Resume Next Set scanner = WIA.ShowSelectDevice() On Error GoTo 0 If Not scanner Is Nothing Then On Error Resume Next Set imgFile = WIA.ShowAcquireImage() On Error GoTo 0 If Not imgFile Is Nothing Then On Error Resume Next imgFile.SaveFile imgFileName On Error GoTo 0 Me.Pic_Path.Requery Me.Pic_Path = imgFileName Else MsgBox "فشل في الحصول على الصورة من الماسح الضوئي!", vbExclamation, "خطأ" End If Else MsgBox "يرجى التأكد من توصيل الماسح الضوئي وتشغيله.", vbExclamation, "تنبيه" End If وهذا الموفق Scanner.accdb

تفضل أخي @خالد الماجد 2 ، رغم أن المنتدى مليء بهذه المواضيع ، ولكن بما أنك عضو جديد فأهلاً وسهلاً بك معا في عالمنا الصغير المتواضع في المرفق ستجد طريقتين ، في المديول الأول Hide&Show يتم استدعاء الالة في أول نموذج يعمل في المشروع بالجملة التالية HideAccess لإخفاء واجهة آكسيس ، وأيضاً على العكس تستطيع إظهار آكسيس بالجملة التالية ShowAccess . وفي المديول الثاني Hide_Access هناك أكثر من طريقة للعمل على هذا المديول ، فمثلاً :- لإخفاء واجهة آكسيس : fSetAccessWindow(SW_HIDE) لإظهار واجهة آكسيس : fSetAccessWindow(SW_SHOWNORMAL) لإظهار واجهة آكسيس بوضع التصغير : fSetAccessWindow(SW_SHOWMINIMIZED) لإظهار واجهة آكسيس بوضع ملئ الشاشة : fSetAccessWindow(SW_SHOWMAXIMIZED) Hide & Show.accdb

ولوو ،، دا يسعدني يا باشا بس ما تتكاش أوي يعني

استناداً لفكرة أخي @Abo-Abd Allah ، تم التعديل بشكل بسيط على الكود بحيث يكون البحث داخل النص عن رقم الكتاب وليس ملزماً بموقع الرقم ، أرجو التحقق من النتائج أخي @nssj من الكود التالي :- Function UpdateBooksWithMNO() Dim db As DAO.Database Dim rsBooks As DAO.Recordset Dim rsTab As DAO.Recordset Dim sql As String Dim bookNumber As String Dim found As Boolean Set db = CurrentDb() Set rsBooks = db.OpenRecordset("BOOKS") Do While Not rsBooks.EOF bookNumber = rsBooks!B_Hno found = False sql = "SELECT * FROM TAB WHERE InStr(NASS, '" & bookNumber & "') > 0" Set rsTab = db.OpenRecordset(sql) If Not rsTab.EOF Then rsTab.MoveFirst Do While Not rsTab.EOF If InStr(rsTab!NASS, bookNumber) > 0 Then rsBooks.Edit rsBooks!MNO = rsTab!MNO rsBooks.Update found = True Exit Do End If rsTab.MoveNext Loop End If rsTab.Close Set rsTab = Nothing rsBooks.MoveNext Loop rsBooks.Close Set rsBooks = Nothing Set db = Nothing End Function Smart_Search_function.accdb

أخي الكريم ، عدة نقاط أرجو توضيحها لأني في البداية قرأت الموضوع بشكل سريع ( كنت في طريقي للعمل ) ، الآن كالتالي :- لنفترض أن لديك نموذج يحتوي مربع نص لاستخدامه للبحث ( على سبيل المثال ) وتريد كتابة البحث داخل الحقل 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