從組合框更新文本框的值

Question

我無法弄清楚我的代碼出錯了。當用戶在組合框中選擇一個值時，我希望它轉到顧問表並獲取該顧問的默認費率並將其保留在小時費率文本框中。 This is the msg that I get when I update the combobox.

Private Sub cmbConsultant_Change() 
Dim db As Database 
Dim rs As DAO.Recordset ''Requires reference to Microsoft DAO x.x Library 
Dim strSQL As String 

strSQL = "defaultFee * FROM tblConsultants WHERE ID = """ & Me!cmbConsultant & """" 

Set db = CurrentDb 
Set rs = db.OpenRecordset(strSQL) 

If rs.RecordCount > 0 Then 
    Me.txtHourlyRate = rs!CountOfEndDeviceType 
Else 
    Me.txtHourlyRate = "" 
End If 

Set rs = Nothing 
Set db = Nothing 

末次

Answer 1

我想你需要一些SELECT這裏

strSQL = "defaultFee * FROM tblConsultants WHERE ID = """ & Me!cmbConsultant & """" 

應該是：

strSQL = "SELECT defaultFee AS [CountOfEndDeviceType] FROM tblConsultants WHERE ID = """ & Me!cmbConsultant & """" 

還要注意，[CountOfEndDeviceType]必須是一個字段名所以我把它放在Select語句中。

Answer 2

您可以使用使用DLookup此 - 簡單得多：

Private Sub cmbConsultant_Change() 

    Me!txtHourlyRate.Value = DLookup("defaultFee", "tblConsultants", "ID = '" & Me!cmbConsultant.Value & "'") 

End Sub 

然而，很可能你的ID是數字，即：

Private Sub cmbConsultant_Change() 

    Me!txtHourlyRate.Value = DLookup("defaultFee", "tblConsultants", "ID = " & Me!cmbConsultant.Value & "") 

End Sub