aide vba

Bonjour,

je cherche à faire afficher le nom et le prenom de l'elève dans zdtAffichageEleve à partir de son identifant choisi dans zdlChoixEleve. voici le code:

Private Sub zdlChoixEleve_GotFocus() ' Mise à jour du contrôle zdlChoixEleve en fonction de la division choisie

Dim MonSql As String
Dim maDivision As String

10 If IsNull(Me.zdlChoixDivision.Value) Then
20 MsgBox "Vous devez sélectionner une division dans la liste proposée", vbExclamation, "Valeur division manquante"
30 DoCmd.GoToControl "zdlChoixDivision"
40 Else:
50 maDivision = Me.zdlChoixDivision.Value
60 MonSql = "SELECT identifiantEleve, nomEleve, prenomEleve FROM ELEVES "
70 MonSql = MonSql & "WHERE ELEVES.divisionEleve = """ & maDivision & """;"
80 Me.zdlChoixEleve.RowSource = MonSql
90 End If

End Sub

Private Sub zdtAffichageEleve_BeforeUpdate(Cancel As Integer)

End Sub

Merci d'avance de votre aide