VBA - Probleme Appel de fonction - VB/VBA/VBS - Programmation
Marsh Posté le 22-02-2006 à 09:14:41
Eh bien déclare ta fonction requeteSelect() correctement. Tu n'as pas précisé son type, donc par défaut elle renvoie un variant.
Pour qu'elle rende le bon type il faut la déclarer comme suit :
Function requeteSelect(ByVal requete As String) As DAO.Recordset |
Marsh Posté le 22-02-2006 à 14:30:05
Merci infiniment!!!
Tu m'aide beaucoup hehe
Marsh Posté le 21-02-2006 à 17:00:56
Bonjour à tous.
Est-ce que quelqu'un comprend le probleme avec ce code VBA
La méthode existe appelle la méthode requeteSelect
Function requeteSelect(ByVal requete As String)
Dim requeteBd As DAO.Recordset
Set requeteBd = CurrentDb.OpenRecordset(requete, dbOpenForwardOnly, dbReadOnly)
requeteSelect = requeteBd
End Function
Function existe(ByVal requete As String)
Dim existeBd As DAO.Recordset
existe = False
existeBd = requeteSelect(requete) <--- Probleme a cette ligne (Mauvaise utilisation de la propriété)
If (Not existeBd.EOF) Then existe = True
End If
End Function
C'est comme si ma fonction renvoyais un type Variant ou quelque chose comme ca
Jveux recevoir le résultat de ma requete.
Que ma méthode requeteSelect renvoi le résultat DAO.recordset
et que je puisse le récupérer correctement dans ma méthode existe
Maryse
---------------
Yes! A girl in computer science!