[MS Access] Sostituire un carattere in tutta la tabella

Palicare

Nuovo Utente
6 Dic 2019
1
0
1
Ciao, ho questo problema che non riesco a risolvere:
Come faccio a sostituire un carattere con un'altro all'interno di tutta una tabella?
Devo farlo con delle righe di comando e non con il pulsante cerca e trova ovviamente.
Premetto che la tabella ha circa 90 campi e migliaia di valori.
 

ges

Nuovo Utente
17 Ago 2018
6
0
1
Ciao,
prova a usare questo codice
Codice:
Dim OldTxt As String
Dim NewTxt As String
Dim mySQL As String

OldTxt = "pippo"
NewTxt = "paperino"
    
mySQL = "UPDATE NomeTabella SET NomeTabella.NomeCampo ='" & NewTxt & "' WHERE NomeTabella.NomeCampo ='" & OldTxt & "';"

DoCmd.RunSQL mySQL
 

ges

Nuovo Utente
17 Ago 2018
6
0
1
all'interno di tutta una tabella
Leggendo meglio vedo che la richiesta riguarda tutti i campi della tabella.
Allora prova cosi
Devi cambiare solo OldTxt , NewTxt e NOME_TABELLA
Codice:
Option Compare Database

Sub sostituisci_campi_tabella()

    Dim OldTxt As String
    Dim NewTxt As String
    Dim DB As DAO.Database
    Dim Tabella As Object
 
    Set DB = CurrentDb
 
    OldTxt = "PIPPO"
    NewTxt = "PAPERINO"
 
    Set Tabella = DB.OpenRecordset("NOME_TABELLA")
    For i = 0 To Tabella.Fields.Count - 1
    Tabella.MoveFirst
        Do Until Tabella.EOF
         Tabella.Edit
            If Tabella.Fields(Tabella(i).Name) = OldTxt Then
                Tabella.Fields(Tabella(i).Name) = NewTxt
                Tabella.Update
            End If
            Tabella.MoveNext
        Loop
    Next
 
    Tabella.Close
 
    Close

    Set DB = Nothing
    Set Tabella = Nothing


    MsgBox "Fatto!", vbInformation, "NOTIFICA"
End Sub