Discussion :

[Domi2]

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.

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

Si quelqu'un pouvait me donner la bonne syntaxe...

Merci d'avance.

Domi2

[CinePhil]

A essayer :

Code :

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

rst.FindFirst "[" & Filleuls & "] = " & adhId

D'où vient le 'adhId' ? Il n'est déclaré nulle part dans ta fonction.

[Domi2]

Bonjour,

'AdhId' est un champ de la table...

Et je viens d'essayer ta proposition.

Cela provoque l'erreur 3070 "Le moteur... ne reconnaît pas '1' en tant que nom de champs ou expression correcte."

'1' est cependant bien la valeur correcte du champ passé en paramètre.

On ne doit pas être très loin.

Domi2

[CinePhil]

Je ne suis pas sûr de bien comprendre...

Le code :

Code :

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

rst.FindFirst "[" & Filleuls & "] = " & adhId

va chercher la première occurence de 'adhId' dans le champ [valeur de Filleuls] dans la table.

Si le champ de la table s'appelle [Filleul], ce n'est pas ça que tu dois passer en paramètre de ta fonction mais adhId, l'adhérent que tu cherches.

Le bon code ne serait-il pas plutôt :

Code :

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

rst.FindFirst "[adhId] = " & Filleuls

où 'adhId' est bien le nom du champs dans lequel tu cherches le paramètre Filleuls passé à ta fonction ?

[Domi2]

Alors en fait non...

J'ai une table d'adhérents (clé adhId).

Certains d'entre eux sont "parrains" d'autres membres.

Pour les "filleuls", j'ai besoin de savoir qui est leur "parrain".

J'ai donc créé un champ "filleul" dans ma table, que je renseigne avec la valeur du champ adhId de leur "parrain".

Maintenant, ce que je cherche à faire, c'est vérifier si pour un adhérent donné, je ne trouve pas son Id dans le champ "filleul" (ceci afin d'éviter de lui supprimer son rôle de parrain).

En fait, il y'a plusieurs types de "parrain" et de "filleul", raison pour laquelle je désire faire une fonction de recherche générique.

J'espère que c'est plus clair...

Domi2

[kmarcel]

Je te propose ceci:

Code :

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

rst.FindFirst "[Filleuls]=" & " ' " & adhId & " ' "

(les côtes entourant adhId).

[Domi2]

Bonsoir,

Merci kmarcel.

Mais ta proposition ne fonctionne pas non plus. Ce n'est pas au niveau du champs adhId que j'ai un problème, mais au niveau de Filleuls.

Je viens de reprendre la chose et la proposition de CinePhil n'est pas loin.

On obtient ceci :

Code :

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

"[1]=1"

Alors qu'il faudrait ceci :

Code :

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

"1=1"

Je viens de faire le test... Si j'enlève les [] avec Replace(), cela fonctionne...

Domi2

[kmarcel]

Ok.
Avec ce que tu dis, je trouve que sans replace() et les crochets [] ça peut marcher. Comme ceci:

Code :

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

rst.FindFirst "Filleuls=" & " ' " & adhId & " ' "

[Domi2]

Hélas non... J'ai toujours la même erreur au niveau de filleul...

Par contre, ceci fonctionne :

Code :

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

1
2
3
4
5
Dim strCriteria As String
 
strCriteria = "" & Filleuls & " =  " & adhId
 
rst.FindFirst strCriteria

Mais si je fais :

rst.FindFirst = "" & Filleuls & " = " & adhId

j'ai une erreur lors de la compilation...

Domi2

[kmarcel]

Ok.
Mais n'oublie pas que dans ta citation

rst.FindFirst = "" & Filleuls & " = " & adhId

tu ne dois pas mettre le signe = tout juste après FindFirst!

[Domi2]

Ca fonctionne !

Grand merci !

Domi2