Bonjour,
J'ai 3 fonctions me permettant de trouver des enregistrements en fonction de 3 champs différents.
J'aimerais n'en garder qu'une en passant les champs en paramètre, mais j'ai une erreur sur le FindFirst. Je n'arrive pas à récupérer mon paramètre en type long.
Si quelqu'un pouvait me donner la bonne syntaxe...
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 Function ChercherFilleuls(Filleuls As Long) As Boolean Dim Db As DAO.Database Dim rst As DAO.Recordset Set Db = CurrentDb Set rst = Db.OpenRecordset("tblAdherents", dbOpenDynaset) rst.FindFirst "[Filleuls] = " & adhId If rst.NoMatch Then ChercherFilleuls = False GoTo ExitFunction End If ChercherFilleuls = True ExitFunction: rst.Close Set rst = Nothing Set Db = Nothing End Function
Merci d'avance.
Domi2
Partager