Foksh

تفضل أخي @محمد سعيد رشاد . إن كانت السجلات كبيرة وعددها كثير ، جرب هذا المرفق لحذف الكلمة التي تريدها دون التعديل على القيم أو التأثير عليها . اختر الجدول ثم اكتب الكلمة التي تريد حذفها من بين السجلات كود لجلب اسماء الجداول في قاعدة البيانات ، وإدراجها في الكومبوبوكس :- Private Sub Form_Open(Cancel As Integer) Dim db As DAO.Database Dim tbl As DAO.TableDef Dim strTableName As String Me.Txt_Tbl.RowSource = "" Set db = CurrentDb For Each tbl In db.TableDefs If Not (tbl.Name Like "MSys*" Or tbl.Name Like "~*") Then Me.Txt_Tbl.AddItem tbl.Name End If Next tbl db.Close Set db = Nothing End Sub والكود الرئيسي هو البحث عن الكلمة التي تم ادخالها في مربع النص ، ومن ثم حذفها :- Sub DeleteWordFromAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToDelete As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToDelete = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = Replace([" & fld.Name & "], '" & strWordToDelete & "', '')" db.Execute strSQL Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم حذف الكلمة بنجاح من جميع الحقول" End Sub Delete_Word.accdb

قد يفيدك هذا الموضوع

الأولى لك أخي الكريم توضيح طلبك بشكل واضح أكثر ، ثم ارفاق مثالك الذي يحتوي بيانات على ما تريد التطبيق عليه

وبإذن الله قيد التطوير للأفضل إن شاء الله معلمنا الأستاذ @jjafferr

معلمنا وأستاذنا الأستاذ @jjafferr ، أهلا وسهلاً بعودتك ..

أشكر مرورك أخوي @عبد اللطيف سلوم ، الأروع مرورك العطر

أهلاً وسهلاً بك أخونا @عبد اللطيف سلوم ، تمت دعوتك على جروب الواتس أب

على فرض ان اسم مربع النص الخاص بالبحث Txt_Search : في حدث عند النقر اكتب هذا السطر Me.Txt_Search = "" Me.Txt_Search.Setfocus السطر الثاني لإعادة التركيز ( وضع المؤشر ) في مربع البحث.

وملاحظة ،، تم تغيير اسم الحقل Date في الجدول الى Datee تلافياً لحدوث اي مشاكل أثناء كتابة الكود.

مشاركة جانبية ... تفضل اخي @Zooro1 Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strProjectNo As String Dim strYear As String Dim strLastReferenceNo As String Dim intLastPart As Integer Dim intNewValue As Integer Dim strNewReferenceNo As String Set db = CurrentDb strProjectNo = Me.ProjectNo.Value strYear = Year(Me.Datee.Value) strSQL = "SELECT TOP 1 ReferenceNo " & _ "FROM ESMIncoming " & _ "WHERE ProjectNo = '" & strProjectNo & "' AND Year([Datee]) = " & strYear & " " & _ "ORDER BY Right([ReferenceNo], 4) DESC" Set rs = db.OpenRecordset(strSQL) If Not rs.EOF Then strLastReferenceNo = rs!ReferenceNo Else strLastReferenceNo = strProjectNo & "-" & strYear & "-0000" End If rs.Close intLastPart = CInt(Right(strLastReferenceNo, 4)) intNewValue = intLastPart + 1 strNewReferenceNo = strProjectNo & "-" & Format(Datee, "yy") & "-" & Format(intNewValue, "0000") Me.Text0.Value = "KNPC-" & strNewReferenceNo strSQL = "INSERT INTO ESMIncoming (ProjectNo, ReferenceNo, Datee) " & _ "VALUES ('" & strProjectNo & "', '" & strNewReferenceNo & "', #" & Format(Date, "mm/dd/yyyy") & "#)" db.Execute strSQL Set rs = Nothing Set db = Nothing Memos.accdb

تم إصدار التحديث الجديد من برنامج الحضور والإنصراف - التعديل الثالث ( الإصدار الثاني ) تم استبدال الباركود برمز QR لشموليته في البيانات ودعمه اللغة العربية بشكل جيد . ربط الجوال بالكمبيوتر مع إمكانية قراءة QR من الجوال عند قراءته في آكسيس . تم إدراج البرامج المستخدمة في الروابط للتجربة Barcode2WinSetup18 Exe / APK . بعد نسخ برنامج الـ APK الى الجوال وتثبيته . وتثبيت برنامج الكمبيوتر EXE ، نفتح البرنامج من الكمبيوتر ونطبق الإعدادات كما في الصورة :- بعد تطبيق الإعدادات ، افتح البرنامج من الجوال وقم بتصوير رمز الـ QR الموجود في البرنامج في الجزء 4 ، وسيتم الإتصال بالكمبيوتر بشكل سهل وسريع جداً ( شريطة أن يكون الجوال والكمبيوتر على نفس الشبكة المحلية للإنترنت ) الميزات التي تم تعديلها وإضافتها بشكل سريع :- إضافة فكرة اختيار التسجيل برقم الموظف أو اسم الموظف . إضافة نموذج لتسجيل المغادرات وطباعة إذن الخروج . ميزة المغادرة التي لا يمكن استخدامها إلا في تاريخها . بعض التنسيقات تم تعديلها وضبطها بشكل أفضل من الإصدار السابق . الملف ما زال قيد التطوير لذا سيكون في الوقت الحالي بنفس الصيغة ACCDE البرنامج المرفق APK تم التعديل عليه بحيث تقليل نسبة الخطأ في قراءة اللغة العربية في رمز الـ QR ، بالإضافة الى تعديل الأيقونة الخاصة به .. والمزيد ما زال قيد التعديل والتطوير .. بناءً على طلب أحد الإخوة في جروب الواتس أب سيتم إلحاق فيديو يوضح طريقة العمل على البرنامجين 😎

بما أن رسالة الخطأ لم تحدد لك مكان الخلل ؛ فأعتقد انك بكل الحالات مضطر للبحث عنه بين أكثر الأماكن أحتمالاً لوجوده وهو الإستعلامات. أو أضف إلى ذلك ما تفضل به معلمنا @ابوخليل

تم الإنتهاء من تطوير الحضور والانصراف للموظفين وكذلك الأمر بالنسبة للمغادرات والعودة بتضمينهم في رمز الاستجابة السريعة QR . * تم استبدال الباركود بـ QR لشمولية البيانات فيه. الحضور والانصراف عن طريق كرت الموظف ( الباجة ) ، والمغادرات سيتم طباعتها بإذن من الموظف المسؤول. ولا يمكن استخدام المغادرة إلا في تاريخها فقط لمنع الموظفين من التلاعب أو استخدامها أكثر من مرة 😎. وسيتم ادراج البرامج المساعدة لإنشاء الـ QR . وربط الجوال بالكمبيوتر واستخدامه كقارىء QR في اكسيس 😊 .

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

بناءً على تصميم نموذجك وطريقة عرض البيانات بعد الفلترة ، جرب هذه الفكرة في مربع النص "نص31" اكتب اي جزء من اي حقل واضغط انتر 19.accdb

تفضل اخي @Abdelaziz Osman هذه الفكرة ، تم تعديل الأكواد على النحو التالي:- في حدث بعد التحديث و حدث عند التركيز للحقل Retial If Not IsNull(Me.Retial) Then Cancel = True Me.Retial.Locked = True Else Cancel = False Me.Retial.Locked = False End If لاحظ أن الكود نفسه تم استخدامه في حدثين ، ولك حرية التعديل حسب حاجتك 😊 Retial -.accdb

اخي الكريم @Abdelaziz Osman انت عضو مميز ما شاء الله ، ومن المفترض انك تعي تماماً انشاء موضوع جديد ومتطلباته لتنفيذ افكارك وحل مشاكل واجهتها ، فلم توضح ان النموذج يعرض ورقة بيانات ولا اي شيء ، ولا حتى ارفاق ملف لم تقم به . كل الشكر والتقدير لك 🤗

حسب ما توضحت الصورة في طلبك ، تفضل هذا المثال :- في حدث في الحالي للنموذج ضع هذا الكود :- Private Sub Form_Current() If Not IsNull(Me.Retial) Then Cancel = True Me.Retial.Enabled = False Else Cancel = False Me.Retial.Enabled = True End If End Sub وفي حدث بعد التحديث لمربع النص ضع هذا الجزء :- Cancel = True Me.Retial.Enabled = False Retial.accdb

تفضل أخي @rachedi ، ولكن لي طلب منك صغير وأرجو أن تأخذه بسعة صدر .. حاول ارفاق ملف للمشكلة التي تريد لها حل ، وأيضاً انتقاء العناوين المناسبة التي تصف المشكلة ليسها على الأعضاء إيجادها في البحث عند حاجتهم . تفضل هذه اقتراحي حسب ما فهمت من طلبك ، زر القبول :- Private Sub btnAccepted_Click() Me.chkAccept.Value = True End Sub وزر الغير مقبول :- Private Sub btnReject_Click() Me.chkAccept.Value = False End Sub

جرب هذا الكود في حدث عند النقر لاختيار ملف الـ PDF ، وسيتم ادراج مساره في مربع النص Private Sub btnBrowse_Click() Dim fd As Object ' متغير لمربع الحوار Dim selectedFile As Variant ' متغير لتخزين المسار المحدد ' إنشاء مربع حوار لاختيار الملفات Set fd = Application.FileDialog(3) ' 3 يعني اختيار ملف ' عرض المربع الحوار وانتظار اختيار ملف If fd.Show = -1 Then ' استخراج المسار المحدد وتخزينه في selectedFile selectedFile = fd.SelectedItems(1) ' عرض المسار المحدد في مربع النص Me.TextConv.Value = selectedFile End If ' تحرير الموارد Set fd = Nothing End Sub وشرح الكود موجود داخله 🥰

تفقد المكتبات 😊

اجعل قناع الإدخال = 00/00/0000

مشكور على الهدية أخي @طير البحر .. مقارنة مع التوسيط التلقائي في اكسيس ، إلا أن هناك فارق طبعاً.. فالتوسيط في اكسيس يعتمد على المساحة التي يتم فيها عرض واجهة البرنامج فقط وليس المساحة الإجمالية للسطح المكتب . وهذه نقطة جميلة قد تفيد البعض. 🥰

اختصرت مايكروسوفت الإجابة في المقال التالي . وكذلك سؤال أحد الأخوة في المنتدى .وهذا الموضوع.