Private Sub ComboBoxTriAffaires_Change()
Dim bd As DAO.Database
Dim rs As DAO.Recordset
Dim Requete, VlCb As String
VlCb = ComboBoxTriAffaires.Value
If Trim(VlCb) = "" Then Exit Sub
Set bd = OpenDatabase(FichierMDB, False, False)
Requete = "SELECT * FROM Info_affaires WHERE Tri_Affaires =""" & UCase(VlCb) & """ AND CodeAffaires <> """";"
Set rs = bd.OpenRecordset(Requete)
If Not rs.EOF Then TextBoxCodeAffaires.Value = rs!CodeAffaires
rs.Close
End Sub