erreur code renommer table
re,
j'ai un soucis avec le code suivant, qui ne veut pas marcher :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Private Sub finitions_Click()
On Error GoTo Err_finitions_Click
db.TableDefs("COMPTE_PARCELLE1").Name = "COMPTE_PARCELLE"
db.TableDefs("PDL1").Name = "PDL"
db.TableDefs("LOT1").Name = "LOT"
db.TableDefs("COMPTE1").Name = "COMPTE"
db.TableDefs("COMPTE_PROPRIETAIRE1").Name = "COMPTE_PROPRIETAIRE"
db.TableDefs("PROPRIETAIRE").Name = "PROPRIETAIRE"
Exit_finitions_Click:
Exit Sub
Err_finitions_Click:
MsgBox Err.Description
Resume Exit_finitions_Click
End Sub |
pouvez vous me dire où est l'erreur?
(mon but est de renommer les tables pour enlever le 1 final)
