Discussion :

[suspiria]

Bonjour,

J'ai un formulaire avec une liste de clients. Lorsque je click 2 fois sur un client, un formulaire s'ouvre avec les infos du client. Une fois dans le formulaire je peux mettre à jour le client ou l'effacer.

J'ai décidé de faire un module contenant un certain nombre de fonctions pour ouvrir un enregistrement particulier, effacer un enregistrement particulier, etc etc car je vais avoir un 2ème formulaire de liste avec détails (des produits).

J'ai une petite fonction avec des paramètres: nom de la table et clause where qui retourne un recordset. Cette fonction ne marche pas, elle plante lors de l'appel.

Puis-je retourner un recordset depuis un module ou depuis le code d'un formulaire dans le code d'un formulaire ? Si oui faut-il le déclarer d'une manière spéciale ou l'appeler d'une manière spéciale ? Si je retourne du texte, un booléen, etc ça marche mais un recordset ça marche pas.

merci d'avance.

[Tofalu]

Une fonction peut trés bien retourné un recordset ...

Code :

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

1
2
3
4
5
6
7
8
9
Public Function function1() As DAO.Recordset
Set function1 = CurrentDb.OpenRecordset("matable")
End Function
 
Private Function function2()
Dim rs As DAO.Recordset
Set rs = function1
MsgBox rs.RecordCount
End Function

[suspiria]

Une fonction peut trés bien retourné un recordset ...

Code :

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

1
2
3
4
5
6
7
8
9
Public Function function1() As DAO.Recordset
Set function1 = CurrentDb.OpenRecordset("matable")
End Function
 
Private Function function2()
Dim rs As DAO.Recordset
Set rs = function1
MsgBox rs.RecordCount
End Function

Merci bien je me suis broutté avec DAO et ADODB et je n'avais pas mis de set avant le recordset de résultat.

[Tofalu]

Le set est obligatoire dés que tu manipules des objets c'est à dire tout ce qui n'est pas type simple :

Numérique, chaine, booleen, type défini