Bonjour,
J'ai lancé ce petit programme plusieurs fois ce matin (sur différents champs et tables) sans aucun problème! Et maintenant je rencontre l'erreur ci-dessous correspondant à la ligne en rouge! Même avec l'aide, je ne vois pas ce que cela signifie! Toutes mes variables sont pourtant bien définies!
Voici le début de mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part Argument non valide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Je ne peux plus compacter ma base non plus! L'erreur est peut-être évidente mais je ne comprends vraiment pas de quoi ça vient!!!
Merci
Céline
Partager