Discussion :

[jmde]

Bonjour,

Comment compléter mon DLookup avec le champ "Montant" de la tbl Chèque pour savoir si le NomAdhérent et un montant existent pour ce même Adhérent.

Code :

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

1
2
3
4
5
6
7
Dim A as Variant 
A = DLookup("RegroupFamille", "tbl Adhérents", "[NomAdhérent] = '" & Me.txtNom & "'") 
if Nz(A, "") = 1 Then 
    msgbox "Existe"   
else 
    msgbox "N'existe pas"  
end if

Merci pour votre aide

Salutations

[bernardmichel]

Salut,
Pourquoi utilises-tu ceci :

Code :

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

1
2
Dim A as Variant 
A = DLookup("RegroupFamille", "tbl Adhérents", "[NomAdhérent] = '" & Me.txtNom & "'")

alors que ta demande concerne une autre table et un autre champ ?

N'est-ce pas un truc du genre:

Code :

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

A = DLookup("IdAdhérent", "tbl Chèque", "Montant > 0 ")

Ca me parait un peu simple comme réponse aussi, je ne suis pas sûr de bien comprendre ta question.

[jmde]

Bonjour Bernardmichel,

Merci pour ta réponse, je voudrais savoir lorsqu'un adhérent existe dans la tbl Adhérents si dans la tbl Chèques le champ Montant est renseigné.

Salutations.

[DMboup]

... je voudrais savoir lorsqu'un adhérent existe dans la tbl Adhérents si dans la tbl Chèques le champ Montant est renseigné.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Dim A as Variant 
A = DLookup("RegroupFamille", "tbl Adhérents", "[NomAdhérent] = '" & Me.txtNom & "'") 
if Nz(A, "") = 1 Then 
 
    if nz(DLookup("IdAdhérent", "tbl Chèque", "((Montant > 0) and (IdAdhérent=IdA))"),0)=0 then
          msgbox "Existe, montant aussi"           
    else
            msgbox "Existe, mais montant non"
    end if   
else 
    msgbox "N'existe pas"  
end if

PS un autre Dlookup est nécessaire pour retrouver l'id de l'adhérente IdA

[bernardmichel]

Bonjour,

Merci DMboup, c'est exactement la réponse que j'aurais faite si j'avais été là aujourd'hui....

jmde : Si tu as trouvé la réponse à ta question, merci de penser au tag

[jmde]

Bonsoir DMboup

Merci pour ta réponse, mais je n'y arrive pas (Erreur Opération Annulée).

J'ai essayé comme ceci:

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
Dim A As Variant
Dim B As Variant

A = DLookup("RegroupFamille", "tbl Adhérents", "[NomAdhérent] = '" & Me.txtNom & "'")
B = DLookup("RéfAdhérent", "tbl Adhérents", "[réfAdhérent] = " & Me.txtRéfAdhérent)

If Nz(A, "") = 1 Then
    
    If Nz(DLookup("RéfAdhérent", "tbl Chèques", "((Montant > 0) and (RéfAdhérent=B))"), 0) = 0 Then
            MsgBox "Existe, montant aussi"
    Else
            MsgBox "Existe, mais montant non"
    End If
Else
            MsgBox "N'existe pas"
End If

les champs de mes tables sont:

tbl Adhérents
RéfAdhérent (Auto)
NomAdhérent

Tbl Chèques
RéfChèque (Auto)
RéfAdhérent (Numérique)
Montant

Salutations