VBA - Probleme Appel de fonction

VBA - Probleme Appel de fonction - VB/VBA/VBS - Programmation

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!
Reply

Marsh Posté le 21-02-2006 à 17:00:56   

Reply

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

Reply

Marsh Posté le 22-02-2006 à 14:30:05    

Merci infiniment!!! :)  
Tu m'aide beaucoup hehe ;)


---------------
Yes! A girl in computer science!
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed