Fonction DLookup VBA

Bonjour à tous.

Dans la propriété "valeur par défaut" de ID_Classe, cette formule marche bien.

Code:

---

=RechDom("[ID_CLASSE]";"[T_CLASSES]";"[Classe] = '" & [Formulaires]![T_ELEVES]![Classe] & "'")

---

Je n'arrive pas à la faire marcher en VBA. Le message d'erreur est Access ne trouve pas le champ ID_Classe. J'ai besoin de votre aide.

Code:

---

1 2 3 4 5

Private Sub Classe_Change() Dim VarX As Integer VarX = DLookup("[ID_Classe]", "T_CLASSES", "[Classe] = '" & [Classe] & "'") ID_Classe.Value = VarX End Sub

---

Une précision sur le message d'erreur
Pièce jointe 655587

Au niveau du débogage
Pièce jointe 655588

Bonsoir,
Est-ce ID_classe est bien un champ du formulaire ?

Et comme DLookup renvoie une chaine, pour assurer, essaie plutôt :

Code:

---

1 2 3 4 5

Private Sub Classe_Change() Dim VarX As LONG VarX = CLNG(NZ(DLookup("[ID_Classe]", "T_CLASSES", "[Classe] = '" & [Classe] & "'"))) ID_Classe.Value = VarX End Sub

---

Bonjour micniv et merci pour ta réponse.

J'ai essayé ta formule mais ça ne marche toujours.

Citation:

---

Envoyé par micniv

Est-ce ID_classe est bien un champ du formulaire ?

---

ID_Classe est dans T_Inscription un sous-formulaire du formulaire T_Eleves.

C'est bizarre nommer T_Inscription un sous formulaire.
Donc, le champ Classe est aussi dans ce ss-form.
Plutôt que "Sur changement" (Classe_Change), il faudrait utiliser l'évt "Après mise à jour" : Classe_AfterUpdate.