Discussion :

[jmde]

Bonsoir,

J’utilise cette fonction pour modifier le nom du champ de ma table mais j’ai un message d’erreur "Une erreur inattendue est survenue"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'--- Renomme le champ statut1 par statut
      RenommerChamp db, "tbl Excel", "Statut1", "statut"

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
33
34
35
36
Function RenommerChamp(db As Database, strNomTable As String, _
                         strAncienNomChamp As String, strNouveauNomChamp As String) As Boolean
 
On Error GoTo err
 
Dim Tbl As DAO.TableDef
 
'--- Récupèration dela table
     Set Tbl = db.TableDefs(strNomTable)
 
'--- Renommé le champ
     Tbl.Fields(strAncienNomChamp).Name = strNouveauNomChamp
 
'--- Renvoie la valeur True
     RenommerChamp = True
 
 Exit Function
 
'--- Gère les erreurs
err:
     Select Case err.Number
'--- Si impossible de trouver l'élément dans la collection
     Case 3265
 
'--- Si tbl=nothing alors tbl est la cause de l'erreur
     If Tbl Is Nothing Then
        MsgBox "Impossible de trouver la table : " & strNomTable
     Else
        MsgBox "Impossible de trouver le champ : " & strAncienNomChamp
     End If
 
     Case 3010, 3191: MsgBox "Le champ " & strNouveauNomChamp & " existe déjà"
 
     Case Else: MsgBox "Une erreur inattendue est survenue"
End Select
End Function

Merci pour votre aide.

Salutations

[loufab]

Bonjour,

Quel est le numéro de l'erreur ?

En modifiant la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case Else: MsgBox "Une erreur inattendue est survenue"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case Else: MsgBox "Une erreur inattendue est survenue :" & err.number

Tu pourra surement en savoir plus et nous également.
Peut-être que ta table est liée ?

Cordialement,

[jmde]

Bonjour loufab,

Merci pour ta réponse, le numéro de l'erreur est 91.

A-tu une idée ?

Salutations

[Tofalu]

Que vaut db dans l'appel ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RenommerChamp Currentdb, "tbl Excel", "Statut1", "statut"

[loufab]

Bien vu !

pas mieux...

(célèbre phrase du jeu "les chiffres et les lettres")

Je ne mettrais pas un fifrelin dans le goret !

(Autre phrase célèbre d'un autre jeu télévisé)

[jmde]

Bonsoir Tofalu,

C'est bien cela le problème , Currentdb plutôt que db dans l'appel.

Merci à tous pour votre aide.

Salutations