Discussion :

[Niagala]

Bonjour à tous.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Niagala]

Une précision sur le message d'erreur


Au niveau du débogage

[micniv]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Niagala]

Bonjour micniv et merci pour ta réponse.

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

Est-ce ID_classe est bien un champ du formulaire ?

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

[micniv]

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.