Discussion :

[monsesilo]

Bonjour,
je souhaite rechercher un enregistrement dans ma base et afficher un texte pour préciser que l'enregistrement existe déjà, pour cela j'ai:
une requête sélection
un formulaire
la fonction Dloukup
la fonction msgbox
la syntaxe utilisée est la suivante:

Code :

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

1
2
if not isnull(dloukup("medecin",R_PrendreRDV, "[medecin]=" & Me.medecin and "heure_rdv='" &Me.heure_rdv and "date_rdv='" &Me.date_rdv) then MsgBox("le rdv existe")
end if

malheureusement çà ne passe pas,
prière de m'aider svp

[tee_grandbois]

bonsoir,

malheureusement çà ne passe pas,

oui, et pour cause: 2 anomalies détectées en premier lieu:
- respecter la bonne orthographe: Dlookup et pas Dloukup (ne pas se fier à ses oreilles mais à ses yeux )
- respecter la syntaxe: mettre les paramètres de la fonction entre guillemets, ce qui est en dehors doit être uniquement les variables: ,"R_PrendreRDV", "and heure_rdv='" & Me.heure_rdv

un conseil: passer par une variable intermédiaire pour récupérer le résultat d'une fonction afin de rendre le code plus lisible (attention aux date et heures qui utilisent des délimiteurs spéciaux et doivent être du même format que la variable).
essaie comme cela:

Code :

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

1
2
Dim varResultat as variant
varResultat = dlookup("medecin","R_PrendreRDV", "[medecin]=" & Me.medecin &  " and heure_rdv=#" & Me.heure_rdv & "# and date_rdv=#" & Cdate(Format(Me.date_rdv,"mm/dd/yyyy") & "#")

et après on peut afficher la MsgBox:

Code :

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

1
2
if not isnull(varResultat) then MsgBox("le rdv existe")
end if