1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Sub RemplacerCaracteresSpeciaux()
'ouvrons la base de données
Set db = CurrentDb
Dim rst As DAO.Recordset
NomTable = "IdentificationSecteur4"
NewFld = "PrenomModifie"
OldFld = "Prenom"
'--------------------------------------------------------------------------
' AJOUT D'UN CHAMP POUR LES VALEURS RECTIFIEES
'--------------------------------------------------------------------------
'Récupérons notre objet TableDef
Set tbl = db.TableDefs(NomTable)
'Création du champ PrenomSansMarie
Set fld = tbl.CreateField(NewFld, dbText)
'Propriétés du champ
fld.Required = False 'le champ peut contenir des valeurs de type Null
fld.AllowZeroLength = True 'l'objet Field accepte une chaîne de longueur nulle comme propriété Value
'Ajout du champ dans la table
tbl.Fields.Append fld
'Indique que la création du champ a réussi
MsgBox "L'ajout du champ " & fld.Name & " à la table a réussi"
...etc |
Partager