كلمة [Demo] في الحقل

[محمد سعيد رشاد]

@jjafferr اخى هل هذه مشكله فى اللغه ام ماذا ؟؟

[jjafferr]

عفوا، وين السؤال ؟

[محمد سعيد رشاد]

كلمه  dimo 

[jjafferr]

مع انك لم تعطي السؤال كاملا،

ولكن ومن ملاحظتي للبيانات، الظاهر انك استعملت برنامج تجريبي لإسترجاع البيانات، فترك بصمته على بياناتك.

 

جعفر

[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

تم تعديل April 6 بواسطه Foksh

[Eng.Qassim]

عمل جميل استاذ @Foksh

لكنه لايحدث ان كان المعرف ترقيم تلقائي

[Foksh]

4 دقائق مضت, Eng.Qassim said:

لكنه لايحدث ان كان المعرف ترقيم تلقائي

كلامك صحيح أخي @Eng.Qassim ، ولا شك فيه .

الترقيم التلقائي لا تستطيع التغيير فيه

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

ولكني وسعت الفكرة بجعلها حرة الاختيار للجدول والكلمة 

[kkhalifa1960]

استاذ @محمد سعيد رشاد اذا كان طلبك مهم ارسل القاعدة . لدي البرنامج مفعل .

[gavan]

تحياتي للأخ خليفة🌹🌹