Newsgroup: it.comp.appl.access
Titolo: un tool per cambiare i nomi dei campi

ho ripreso un vecchio database originariamente scritto sulla base di una 
analisi fatta da un tedesco per cui mi trovo una sfilza di campi con nomi 
ostrogoti (per me) tipo 
 
 5            Wechselkurs
 6            FHZMKosten
 7            Transportversicherung
 8            ImportSteuer
 9            Verpackung
 10           KundendienstPct
 11           Kundendienst
 12           WEEE
 13           Finanzierung
 
oppure sigle come
 
 22           WS
 23           TV
 24           FHZM
 25           CFR
 26           IS
 27           VP
 28           KP1
 29           KP2
 30           WE
 
e ogni volta che ci metto mano perdo un sacco di tempo a ricordarmi cosa 
diavolo siano
 
Dato che il capo ha stabilito che la lingua ufficiale dell'azienda è 
l'inglese (e a me va bene, anzi meglio) vorrei mettere mano alle tabelle, 
query, maschere e report aggiornando i nomi dei campi con gli equivalenti 
in inglese
 
per diversi lo ho già fatto in quanto sono informazioni (campi) aggiunte 
all'originale
 
 68           SourceManuf
 69           Filter
 70           ModificationDate
 71           LinkedToAPLP
 72           MargDistr
 73           MargRet
 74           VAT
 75           RecommConsPrice
 
ma se ci fosse un tool per tutto il resto sarebbe una manna dal cielo
 
-- 
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........


Se vuoi, puoi provare questo demo se ti può essere utile, costa poco ;-)
https://1drv.ms/u/s!ALe2sGzrs4WCiHU
 
 
 
@Alex

 
 
Se intendi un tool di Find&Replace per tutti oggetti il nuovo standard è 
https://accessdevtools.com/product/find-and-replace/
.
 
Lo uso da circa un anno e ho fatto qualche migliaio di sostituzioni.
 
-- 
Ciao
Karl
*********
http://AccessDevCon.com
 
Access FAQ: 
http://donkarl.com/it
 

Ammammata ci ha detto :

Ciao,
 
Segnalo V-Tools (freeware), lo uso da sempre, va benone:
https://www.skrol29.com/us/vtools.php
 
 
e anche questa pagina (questo non l'ho mai usato):
https://www.devhut.net/2017/03/31/great-access-tools-find-and-replace/
 

Ammammata used his keyboard to write :

========================================
Private Sub Command5_Click()
Dim db As DAO.Database, k As Integer, i As DAO.Field, j As DAO.Field
Dim TBL2 As DAO.TableDef, TBL3 As DAO.TableDef
 
Set db = CurrentDb
Set TBL2 = db.TableDefs("TT2")
Set TBL3 = db.TableDefs("TT3")
 
For Each i In TBL2.Fields
    For Each j In TBL3.Fields
        If i.Name = LCase(j.Name) Then
            i.Name = j.Name
        End If
    Next
Next
 
End Sub
==========================================
 
TT2 ha i campi: abc, def, ghi, jkl, mno, pqr, stu, vwx, yz
TT3 ha i campi: ABC, DEF, GHI, JKL, MNO, PQR, STU, VWX, YZ
Viene eseguita la condizione If.
 
Nel tuo caso le relazioni andranno aggiustate in modo diverso
(condizionwe If), per il resto il sistema non cambia.
 
Se poi vuoi il lavoro completo mandami le relazioni
Nomi in tedesco --> Nomi in italiano.
 
Bruno

 
 
Ho pensato a Karl al primo nome di campo :D
 
Salve a tutti.
Riccardo Baldinotti