Bonjour,
je me bar depuis 2 heures avec DLOOKUP Access 2010. Voilà mon code
le champ de ma table est bien un string et le champ de mon formulaire est aussi un string
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 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
DLOOKUP me retoune tout le temps l'erreur suivante
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
Partager