Bonjour,
Cela fait 3 jours que je suis sur cette fonction en essayant de la faire fonctionner, mais je n' y arrive pas.
Ce n'est pas la première fois que j'utilise cette fonction.
Voici, celle qui fonctionne correctement:
Private Sub Nom_du_produit_1_AfterUpdate()
Me![Prix unitaire HT 1] = DLookup("[Prix unitaire HT]", "Produits (étendu)", "[Nom du produit 1] = ID")
Me![Code 1] = DLookup("[Code]", "Produits (étendu)", "[Nom du produit 1] = ID")
Me![Quantité 1].Visible = True
Me![Quantité 1].SetFocus
End Sub
Quand je cliques sur "Nom du produit 1", je choisis mon produit et les champs code et prix HT se remplissent automatiquement.
Donc il n'y a pas de soucis.
Celle qui ne fonctionne pas:
Private Sub Nom_du_client_AfterUpdate()
Me![Adresse] = DLookup("[Adresse]", "Clients (étendu)", "[Nom du client] = ID")
Me![Code postal et ville] = DLookup("[Code postal et ville]", "Clients (étendu)", "[Nom du client] = ID")
End Sub
Quand je cliques sur "Nom du client", je choisis le client mais viens l'erreur 3464 type de données incompatible dans l'expression du critère.
Si je rajoute des quottes dans la partie critère, je n'ai pas de message d'erreur mais les champs "Adresse" et "Code postal et ville" restent vides.
Si vous avez quelques minutes à me consacrer, je vous en remercie.
Au plisir de vous lire.
Franz
Partager