Foksh

سلمك الله من كل سوء وشر معلمي الفاضل @ابوخليل 🥰 كلامك سليم 100% الله يسلمك يا دكتور ، جرب وأخبرنا بالنتيجة وحسب توجيهات معلمنا الفاضل ابو خليل.

استخدم نموذج فرعي للساعة بحيث يكون منفصل ، وفي النموذج الرئيسي اجعل التايمر مخصص فقط للهدف الثاني . ويوجد حل آخر لكن هذا افضل وأضمن لك

صديقنا الدكتور @الحلبي ،، سأشرح لك ما فهمته من تجربتي معك بخصوص هذا الموضوع .. سيكون لديك قاعدة بيانات للجداول والتي من الضروري أن تكون محمية بكلمة مرور ( وليس شرط أن تكون صيغتها Accde أو Accdb ) . وأيضاً سيكون لديك قاعدة النماذج والتي أيضاً من الضروري أن تكون محمية بكلمة مرور ( وعند الإنتهاء من كافة تعديلات النماذج يفضل - ليس شرطاً - حفظها بصيغة Accde ) . سيكون لديك الكود الذي سيقوم بدوره بربط الجداول بقاعدة البيانات الأمامية ( وسيتم افهامه بكلمة المرور لقاعدة بيانات الجداول داخل الأكواد ) . الآن أهم مرحلة وهي مرحلة الوسيط الذي سيقوم بفتح قاعدة البيانات الأمامية والتي تم حمايتها بكلمة مرور ( وهو بدوره سيقوم بتعريف كلمة مرور قاعدة البيانات من خلال الأكواد ) وبعد اتمام عملية مطابقة كلمة المرور سيقوم باغلاق نفسه وإبقاء قاعدة البيانات الأمامية مفتوحة بوضعها الطبيعي . والأكواد كالتالي .. في قاعدة بيانات الوسيط الذي سيكون فيه فقط نموذج فارغ لا يحتوي على اي عنصر أو كائن ، وفي حدث عند الفتح :- Dim App As Access.Application, strPath As String Set App = New Access.Application strPath = Application.CurrentProject.Path & "\XXXXX.accdb" With App .DoCmd.RunCommand acCmdAppMinimize .OpenCurrentDatabase strPath, , "YYYYY" .DoCmd.OpenForm "x0", , , , , acWindowNormal End With Set App = Nothing DoCmd.Quit طبعاً XXXXX = اسم قاعدة البيانات . و YYYYY كلمة المرور التي تم حماية قاعدة بيانات النماذج بها . وبلا شك سيتم حفظ هذا الوسيط بصيغة Accde هذا ملخص لما قد تحتاجه . وثق تماماً أن أي نقطة لم تكن واضحة سيتم توضيحها لك

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

هل هذا طلبك أخي الكريم @Zooro1 ؟؟ admin.accdb

ايش الجمال هذا كله أحسنت وأبدعت في هذا العمل أخي @فريدالطحان

لم افهم السبب الذي يمنع ذلك !!!!

إن شاء الله ، حال اصدار النسخة الجديدة سيتم ذلك

قريباً النسخة الجديدة مع تعديلات و إضافات جديدة 😁

وعليكم السلام ورحمة الله وبركاته اخي الكريم.. الموضوع جداً متشعب وفي اسئلتك شرح غير وافي لما تريده. على العموم تابع هذا الموضوع قد يفيدك

فقط اجعل PopUp = Yes Modal= Yes

بداية أشكر صديقي العزيز المهندس محمد ، جزاه الله كل خير عني وعنكم. وأشكركم جميعاً لدعائكم لي ، الحمد لله رب العالمين هي فقط تراكمات في العمل والتعب اشعرني إني عجزت 😅 لي ولكم ولوالديكم الرحمة ( فوق الأرض وتحت الأرض ويوم العرض ) . وأعانني الله على رد محبتكم لي دون استثناء 🥰

شكراً لك أختنا الكريمة صفاء على سءالك ،، الحمد لله بخير . وأشكر كل من قام بالسؤال عني ، وربنا يطمنكم على حبايبكم ولا يريكم فيهم مكروه ولا يشغلني عنكم فعلاً سوى العمل للأسف .. متواجد بفترات على الواتس في مجموعة المنتدى

يسعدني اكتساب هذه المعلومة بصدق

امممم دي آخر إجابة ليك ؟؟؟؟؟؟ 😎 يعني لو اتنقل لمربع نص تاني واستخدم Alt+F11 مش هيفتح محرر الأكواد ؟؟؟ 😉 ولا انت فكرني يا حج إني مخدتش بالي ان الحدث في الكومبوبوكس بس مش في حدث النموذج اروح انا فين بس

هل ستتم المقارنة بناءً على التاريخ اليوم ، أم ماذا ؟؟؟

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

زاكر

أخي الكريم @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 ، وعليه فأن النتيجة التي تريد عرضها في النموذج الفرعي للنتئج ماذا ستكون ؟؟؟؟؟؟؟؟ لا بأس في شرحك إلا أن الأمور قد تتداخل في بعضها