اريد تكرار نص معين في جميع السجلات

[salah.sarea]

السلام عليكم ورحمة الله وبركاته 

لو بالامكان اريد كود يكرر لي نص معين اكتبه في النموذج يتم تكراره في جميع السجلات في الجدول .

[Foksh]

تفضل أخي @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

[gavan]

السؤال يمكن أن يكون قليل الشرح، هل الجدول ممتلئ بالبيانات ام فارغ؟ ، ماذا لو أدخلت تلك الكلمة في  القيمة الافتراضية في الجدول؟؟ 

بعدها كما تقول لنفترض انك كتبت كلمة،، بيت،، في النموذج ليحول ذلك الحقل في الجدول الي كلمة،، بيت،، 

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

ارجوا ان اكون وفقت في إيصال الفكرة، تحياتي 🌹🌹

[kkhalifa1960]

13 ساعات مضت, salah.sarea said:

لو بالامكان اريد كود يكرر لي نص معين اكتبه في النموذج يتم تكراره في جميع السجلات في الجدول .

استاذ @gavan هذا طلب السائل .

أم.. هل انت تريد التطبيق على السجلات الجديدة ؟. هنا الكود سيتغير . واذا كان الامر كذلك .

حتى لا أركب على عمل استاذ @Foksh نترك له ذلك بعد تحديد طلبك .

تحياتي وعيدكم مبارك .

[Foksh]

47 دقائق مضت, gavan said:

السؤال يمكن أن يكون قليل الشرح، هل الجدول ممتلئ بالبيانات ام فارغ؟ ، ماذا لو أدخلت تلك الكلمة في  القيمة الافتراضية في الجدول؟؟ 

بعدها كما تقول لنفترض انك كتبت كلمة،، بيت،، في النموذج ليحول ذلك الحقل في الجدول الي كلمة،، بيت،، 

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

ارجوا ان اكون وفقت في إيصال الفكرة، تحياتي 🌹🌹

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