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:
Tantôt, ma colonne "Polycarbonate" s'appelle "Polypropylene", et inversement, à chaque fois que je clique sur le bouton contenant ce code,
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 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
et là, rien ne bogue ! Miracle ! Vive l'effortmatique!
Pas très esthétique, mais si vous aviez mieux...!
Partager