DLookup

Bonjour,

Dans le formulaire, il y a erreur "Erreur d'exécution '2001' ":

Private Sub H01_AfterUpdate()
Me.H01n = DLookup("[Durée]", "[Table GP A3]", "[Code] =" & Forms![Form
GP 01Jan]!H01)
End Sub

* Table : Table GP A3,
--------------------------
Code (Texte) Durée (Numérique)
A1 7,5
A7 8,5
A9 6
S3 7


* Formulaire : Form GP 01Jan
-------------------------
Zone de texte : H01 (Texte)
H01n (Numérique)

Merci d'avance

Marco

Bonjour,

Dans le formulaire, il y a erreur "Erreur d'exécution '2001' ":

Private Sub H01_AfterUpdate()
Me.H01n = DLookup("[Durée]", "[Table GP A3]", "[Code] =" &
Forms![Form
GP 01Jan]!H01)
End Sub

* Table : Table GP A3,
--------------------------
Code (Texte) Durée (Numérique)
A1 7,5
A7 8,5
A9 6
S3 7


* Formulaire : Form GP 01Jan
-------------------------
Zone de texte : H01 (Texte)
H01n (Numérique)

Merci d'avance

Marco

Bonjour, Marco

Si le champ Code et le contrôle H1 sont de type Texte, alors il faudrait
écrire ton instruction comme cela:

Me.H01n = DLookup("[Durée]", "[Table GP A3]", "[Code] ='" & Forms![Form GP
01Jan]!H01 & "'")

Les guillemets simples (') servent à entourer les données de type Texte.
Sans cela, elles sont interprétées comme des variables ou des noms de
champs.

Bonne continuation

PS: quand tu indiques une erreur, met la description, personne ne connait
tous les numéros (même s'il doit bien en exister une liste quelque part
sur
le Net).