Problème avec DLOOKUP

Bonjour,
je me bar depuis 2 heures avec DLOOKUP Access 2010. Voilà mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub Ref_garantie_Exit(Cancel As Integer) Dim Resultat As Integer Dim enr As String enr = Me.[ref garantie] MsgBox "ENR : " & enr If IsEmpty(Me.[ref garantie]) = True Then MsgBox "SAISIE MANQUANTE", vbCritical, "Veuillez saisir un type de garantie" & Chr(13) & Chr(10) & "Merci" DoCmd.GoToControl "Ref garantie" Else DoCmd.GoToControl "Fin de garantie" Resultat = DLookup("[Type de garantie]", "Liste des types de garantie", "[Type de garantie]=" & enr) MsgBox "DUREE : " & cherche Me.[Fin de garantie] = DateAdd("Y", Resultat, Me.[Date d'achat]) End If End Sub

---

le champ de ma table est bien un string et le champ de mon formulaire est aussi un string
DLOOKUP me retoune tout le temps l'erreur suivantePièce jointe 167132

J'ai modifié cette fonction en ajoutant de guillemets, des apostrophes mais elle bug toujours.
j'ai parcouru des forums sans résultat.
Pourriez-vous m'aider
Merci

Bonjour pilou37,

C'est le manque de " qui pose le problème.

Code:

---

Resultat = DLookup("[Type de garantie]", "Liste des types de garantie", "[Type de garantie]=" & chr(34) & enr & chr(34))

---

devrait fonctionner.

Bonne journée

Merci de votre aide.
Je viens de me rendre compte que DLOOKUP me retourne en fait la valeur du champ "Type de garantie", or moi j'ai besoin de la valeur contenu dans le 2ème champ de la table.
Exemple :
Ma table est constituée de 2 champs "Type de garantie" et "Durée". Je souhaite chercher dans la table le type de garantie sélectionné dans mon formulaire et obtenir la durée correspondante contenu dans le 2ème champ de ma table.
Comment dois procéder ?
Merci de votre aide.
Ce forum est très précieux pour les débutant comme moi.
Encore merci.

Bonjour pilou37,

Le moyen le plus rapide: :f1: quand tu es dans l'éditeur de code VBA.

DLookup est une fonction avec 3 arguments, 2 obligatoires et 1 facultatif. DLookup("Le champ que tu veux", "La table que tu veux", "Les critères")
Donc:

Code:

---

Resultat = DLookup("Durée", "Liste des types de garantie", "[Type de garantie]=" & chr(34) & enr & chr(34))

---

Bonne journée

Dlookup ne retourne que le champ indiqué, je ne pouvais donc pas l'utiliser car je souhaitais comme retour la valeur du champ suivant.
J'ai donc utilisé un autre moyen, j'ai créé un formulaire et j'ai lancé une recherche dessus.
Voilà