Discussion :

[elgordopresto]

Bonjour à tous,

J'utilisais sans problème une fonction trouvée sur ce site dénommée ColonneExiste() mais depuis peu j'ai une erreur 13 ("Type mismatch") lorsque je l'exécute.

Je n'arrive pas bien à comprendre pourquoi Access me renvoie cette erreur car je n'ai rien changé dans la fonction et cela marchait très bien auparavant...

Une idée sur le pourquoi du comment ?

Merci par avance.

el

[helas]

Bonjour,
Ce code fonctionne parfaitement, à copier et tester

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
 
Function ColonneExiste(prmNomTable As String, prmNomColonne As String) As Boolean
   ColonneExiste= False
 
   Dim db As Database, t As TableDef
 
   If ExisteTable(prmNomTable) Then
    Set db = CurrentDb
    Set t = db.TableDefs(prmNomTable)
    Dim f As Field
    For Each f In t.Fields
      If f.Name = prmNomColonne Then
        ColonneExiste= True
        Exit For
      End If
     Next f
 
    Set t = Nothing
    db.Close
    Set db = Nothing
   Else
    MsgBox ("Table inexistante")
   End If
 
End Function
 
Function ExisteTable(NomTable As String) As Boolean
    On Error GoTo erreur
    ExisteTable = False
    If CurrentDb.TableDefs(NomTable).Name = NomTable Then ExisteTable = True
erreur:
End Function