Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Dlookup à 2 critères

Dlookup à 2 critères

2 réponses
Avatar
José
Salut,

J'essaie de faire un Dlookup avec 2 crit=E8res mais =E7a ne=20
marche pas.

Sub Verif()
Dim PN As String
Dim Projet As String
PN =3D "Toto"
Projet =3D "Test"
Critere =3D "[PrenomEtNom] =3D '" & PN & "'"=20
And "[NumeroDossier] =3D '" & Projet & "'"
If DLookup("EmailParticipant", "R_Intervenir", Critere)=20
<> "" Then
MsgBox "Existe d=E9j=E0!"
Else
MsgBox "N'existe pas..."
End If
End Sub

J'ai une incompatibilit=E9 de type comme erreur. Qu'ai-je=20
mal fait? Les crit=E8res test=E9s s=E9par=E9ment =E7a marche bien.

Merci pour votre aide.
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jessy Sempere [MVP]
Bonjour

C'est parceque ton deuxième critère n'est pas pris en compte
avec la synthaxe que tu utilises...

Essais :

Critere = "[PrenomEtNom] = '" & PN & "' And [NumeroDossier] = '" & Projet & "'"

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"José" a écrit dans le message news:
2d7a701c46a76$7505b510$
Salut,

J'essaie de faire un Dlookup avec 2 critères mais ça ne
marche pas.

Sub Verif()
Dim PN As String
Dim Projet As String
PN = "Toto"
Projet = "Test"
Critere = "[PrenomEtNom] = '" & PN & "'"
And "[NumeroDossier] = '" & Projet & "'"
If DLookup("EmailParticipant", "R_Intervenir", Critere)
<> "" Then
MsgBox "Existe déjà!"
Else
MsgBox "N'existe pas..."
End If
End Sub

J'ai une incompatibilité de type comme erreur. Qu'ai-je
mal fait? Les critères testés séparément ça marche bien.

Merci pour votre aide.
Avatar
Eric
Bonjour,

Essaies :
Critere = "[PrenomEtNom] = '" & PN & "' And [NumeroDossier] = '" & Projet
& "'"

D'autre par si Dlookup ne trouve rien ca retourne une valeur Null donc je
mettrai en test :

If Not IsNull(DlookUp("EmailParticipant", "R_Intervenir", Critere)) then
MsgBox "Existe déjà!"
Else
MsgBox "N'existe pas..."
End If

A+
Eric

"José" écrivait news:2d7a701c46a76
$7505b510$:

Salut,

J'essaie de faire un Dlookup avec 2 critères mais ça ne
marche pas.

Sub Verif()
Dim PN As String
Dim Projet As String
PN = "Toto"
Projet = "Test"
Critere = "[PrenomEtNom] = '" & PN & "'"
And "[NumeroDossier] = '" & Projet & "'"
If DLookup("EmailParticipant", "R_Intervenir", Critere)
<> "" Then
MsgBox "Existe déjà!"
Else
MsgBox "N'existe pas..."
End If
End Sub

J'ai une incompatibilité de type comme erreur. Qu'ai-je
mal fait? Les critères testés séparément ça marche bien.

Merci pour votre aide.