plus d'erreur d'execution 3265 avec ceci !? [Résolu]

[danbo52]

Bonsoir à tous,

Suite à la nécessité de changer le nom d'une colonne en VBA dans ACCESS 2010, je me suis trouvé avec l'erreur 3265.

Même si cela n'a aucun intérêt, faire basculer le nom d'une table, ou tout simplement ne pas le voir apparaitre dans des routines en le changeant m'a amené à produire ce truc druidique:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim db As DAO.Database
Dim tabDef As DAO.TableDef
 
Set db = CurrentDb
Set tabDef = db.TableDefs("Sacs_poubelles")
 
On Error GoTo code2:
code1:
 
    tabDef.Fields("Polypropylene").Name = "Polycarbonate"
    GoTo finducode:
 
On Error GoTo code1:
code2:
    tabDef.Fields("Polycarbonate").Name = "Polypropylene"
 
finducode:
 
Set tabDef = Nothing
Set db = Nothing

Tantôt, ma colonne "Polycarbonate" s'appelle "Polypropylene", et inversement, à chaque fois que je clique sur le bouton contenant ce code,
et là, rien ne bogue ! Miracle ! Vive l'effortmatique!

Pas très esthétique, mais si vous aviez mieux...!

[argyronet]

Envoyé par danbo52

Pas très esthétique, mais si vous aviez mieux...!

En effet, c'est peut-être pour ça qu'on te regarde
Bref, nommer un champ avec ce qu'il doit contenir ou représenter est aberrant !
C'est comme si tu nommais un champ Pierre ou Jacques en fonction du prénom du quidam !!!
Que voulais-tu faire si c'est non Résolu !

Argy