我正在尝试让文本框显示与某个值相关联的值。我有一个包含2列的表,[Error_Code]和[Type]。我想要一个带有Error_Codes(可以工作)的组合框,每当做出选择时,[Type]将出现在文本框中。出于某种原因,我一直在测试这个到msgbox,稍后会改变。
Dim rst As DAO.Recordset
Dim ERtype As String
Set rst = CurrentDb.OpenRecordset("select * from Error_Table where [Code]='" & Me!cb_Error.Value & "'")
MsgBox "testing: " & rst!Type_
rst.Close
Set rst = Nothing
这似乎返回运行时错误3265,找不到项目。我看了这个,我的表名和字段都是正确的。有什么想法发生了什么?
答案 0 :(得分:0)
我不是这方面的专家,但我认为应该是:
Me.cb_Error.Value
否:
Me!cb_Error.Value
使用点运算符,而不是感叹号。