Помещенный значение результата SQL в DROPDOWNLIST доступа Vba

Question

Я хочу поставить значение в DropDownList с доступом, но я не могу ... Вот мой код:

Dim rst As DAO.Recordset 
Dim SQL1 As String 
Dim resultat As String 

SQL1 = "SELECT Table_de_correspondance_Galiléi.Num_EB FROM Table_de_correspondance_Galiléi WHERE Table_de_correspondance_Galiléi.Code_projet = " & "'" & CodeProjet1.Value & "'" 
Set rst = CurrentDb.OpenRecordset(SQL1, dbOpenForwardOnly, dbReadOnly) 
resultat = rst(0) 
Me.NumEB1.Value = resultat 

rst.Close 

«NumEB1» мой DropDownList

Благодарим за помощь!

Answer 1

Попробуйте это;

> Dim SQL1 As String 
> 
> 
> SQL1 = "SELECT Table_de_correspondance_Galiléi.Num_EB FROM 
> Table_de_correspondance_Galiléi WHERE 
> Table_de_correspondance_Galiléi.Code_projet = " & "'" & 
> CodeProjet1.Value & "'" 
> 
> Me.NumEB1.RecordSource = SQL1