Discussion :

[toufiketc]

bonjour a tous
je suis perdu en vba, et j'aimerai encore un peu d'aide

la fonction qui suit est censée retouver le champs de la clé primaire d'une table dont le nom est passé en paramètre.
mais a l'execution une erreur est retournée

BYREF ARGUMENT TYPE MISMATCH

j'ai essayé de me documenter sur le sujet mais j'avais peur d'abandonner la programmation.
Merci pour votre aide

la fonction

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
Function TrouverClePrimaire(NomTable As String)
 
Dim db As DAO.Database
Dim td As DAO.TableDef
Dim i As DAO.Index
Dim Str As String
    Set db = Application.CurrentDb
    Set td = db.TableDefs(NomTable)
    For Each i In td.Indexes
       If i.Primary = True Then
          Str = Mid(i.Fields, 2)
          Exit For
       End If
    Next i
   TrouverClePrimaire = Str
    db.Close
    Set db = Nothing
 
End Function

[tee_grandbois]

bonsoir,
le code n'est pas en cause, il fonctionne (testé) donc l'erreur provient probablement d'ailleurs.
Aurais-tu d'autre informations à donner: comment est appelé le la fonction, quel est la source du paramètre ... ?

[toufiketc]

excusez moi je n'ai lu ce message.
oui cette fonction fonctionne bien. c'est moi qui me suis trompé dans la formule d'appel.
Merci beaucoup