Foksh

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

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

شرفتنا بمرورك العطر أخي @علي بطيخ سالم 💐 ولكم من الدعاء أكثر مما دعيتم 🤲

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

أخي @gavan ، في المثال الذي أرفقته مع الكود في مشاركتي ( إضافة كلمة إلى القيمة الموجودة في السجل ) وليس استبدال القيمة في الحقول كاملةً .

تفضل أخي @salah.sarea ، هذا الكود لإضافة كلمة تحددها في النموذج الى جميع السجلات في الجدول الذي تختاره ، طبعاً باستثناء حقل الترقيم التلقائي :- Sub AddWordToAllFields() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strTable As String Dim strWordToAdd As String Dim fld As DAO.Field strTable = Txt_Tbl.Value strWordToAdd = Txt_Search.Value Set db = CurrentDb Set rs = db.OpenRecordset(strTable) For Each fld In rs.Fields If fld.Name <> "ID" And fld.Name <> "RecordID" Then strSQL = "UPDATE " & strTable & " SET " & fld.Name & " = IIf([" & fld.Name & "] Is Null, '" & " " & strWordToAdd & " " & "', [" & fld.Name & "] & '" & strWordToAdd & "')" db.Execute strSQL End If Next fld rs.Close Set rs = Nothing Set db = Nothing MsgBox "تمت إضافة الكلمة بنجاح إلى جميع الحقول في الجدول" End Sub Add_Word.accdb

القيمة Null هي قيمة غير معروفة أو مفقودة لذلك نستخدم معها الدالة Null Zero (nz) لتعود لنا بقيمة معلومة يتم تحديدها أو كما تفضلت بالقيمة "" والتي قد تساوي 0 . اما Empty فهي باعتقادي للدلالة على متغير لم يتم تحديد قيمته ( الكيس الفارغ المفتوح ) أي قيمة قابلة للتغيير .

لاحظ أن مستوى الترقيم المطلوب قد توسع 🤗 تمام. أعتقد أنه سيصبح لديك أكثر من نمط للترقيم.

من وجهة نظري وحسب فهمي لهذا الموضوع:- "" يعتبرها آكسيس سلسلة فارغة ( فراغ ذو قيمة ) لكنه لا يعتبر قيمة . Null يعتبرها آكسيس قيمة موجودة. Empty يعتبرها آكسيس قيمة لم تأخذ قيمة كأن تكون فارغة "" أو Null . كأن نقول لطالب :- كم تفاحة في هذا الكيس ( مع عدم وجود كيس ) الجواب ولا تفاحة. كم تفاحة في هذا الكيس ( مع وجود كيس فارغ مغلق ) الجواب ولا تفاحة. كم تفاحة في هذا الكيس ( مع وجود كيس فارغ مفتوح ) الجواب ولا تفاحة. يا رب ما أكون صعبتها بدل ما أسهلها 🤣

ما الذي يميز الكتب الصادرة عن الكتب الواردة ؟؟

كلامك صحيح أخي @Eng.Qassim ، ولا شك فيه . الترقيم التلقائي لا تستطيع التغيير فيه ولكن مشاركتي كانت بهدف توفير الوقت لصالح الأخ @محمد سعيد رشاد عندما استرجع بياناته المحذوفة عن طريق برنامج مجاني ، ولكني وسعت الفكرة بجعلها حرة الاختيار للجدول والكلمة

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

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