將一個SQL結果值

我想提出一個值與接入一個下拉列表，但我不能......這裏是我的代碼：將一個SQL結果值

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」是我的下拉列表

感謝您的幫助！

來源

2016-09-06 UnknowVBA

發生了什麼事/錯誤？你可以使用dlookup來獲得像這樣的1值。 –

爲什麼不簡單地添加sql作爲下拉記錄的源？ – Fionnuala

因爲我想在更新另一個DropDownlist之後更改「NumEB1」的值。代碼位於「CodeProjet1_AfterUpdate（）」 - > CodeProjet1是一個下拉列表 – UnknowVBA

試試這個;

> 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

來源

2016-09-15 07:40:30 Catzeye

將一個SQL結果值

回答

相關問題