remplir les champs d'un formulaire apres un choix dans une ComboBox

Bonjour,

Je vous explique le contexte, j'ai une table INTERV qui comporte 31 champs. J'ai un formulaire qui  comporte 31 champs répartis sous 3 onglets, et qui va servir après un choix dans la ComboBox à afficher la ligne de la table dans son champ qui lui est attribué.
 
Je vous met le code que j'ai tenté de faire :

Private Sub ComboNumInterv_GotFocus()

Dim SQL As String

Set db = CurrentDb
SQL = "SELECT numero_intervention FROM INTERV"
SQL = SQL + " WHERE statut_intervention='en cours'"

Set rs = db.OpenRecordset(SQL, dbOpenDynaset)

While Not rs.EOF
    If rs.Fields(0) <> ""

    champ0.Text = rs.Fields(0)   
    champ1.Text = rs.Fields(1)
    champ2.Text = rs.Fields(2)
[...]
   champ31.Text = rs.Fields(31)

    End If 

    rs.MoveNext
Wend  

    rs.Close
   db.Close

End Sub

Merci d'avance pour votre aide, si vous avez des questions n'hésitez pas

Etudiant IG2Ien www.ig2i.fr