在访问子表中获取当前选定的记录值
问题描述:
我在访问2010数据库中有2个子表单;基于subform1字段值的选择,vba程序将运行subform2输出,其中子表单1和2中的公共文本字段为“supplier_name”。 于是,我试着subform1了“双击”事件写currentRecord方法见下文,在访问子表中获取当前选定的记录值
Private Sub Supplier_name_DblClick(Cancel As Integer)
strSQL = "Select * from [Query1] where"
strSQL = strSQL & "[Supplier_name] ="'" & "Me!current record![Supplier_name]" &"'"
Form![Mainform]![Subform2].Form.RecordSource = strSQL
End Sub
我在2号线获得运行时错误3075;语法错误(操作符丢失)在查询表达式“[Supplier_name] =我当前记录[Supplier_name]!” 请帮
答
感谢它为我工作,但没有currentrecord
财产
strSQL = strSQL & "[Supplier_name] ='" & Me![Supplier_name] & "'"
答
你缺少你的代码的第二行中,其中后一个空间:
strSQL = "Select * from [Query1] where "
而且还有一个问题,在第三行的“和”字符:
strSQL = strSQL & "[Supplier_name] ='" & Me!current record![Supplier_name] & "'"
“我卡在第二行”不是很详细。你有错误信息吗?它会崩溃吗?你的意思是第二行代码或表中的第二行? –
我需要的语法是完整的线[Supplier_name] =““”&‘我!当前记录![Supplier_name]’&“”” –
所以你的问题是如何使SQL查询完美?如果是这样,那么请编辑你的问题(不是每个人都阅读评论)。还有一个你写“stnSQL”的错字。并避免SQL注入。 https://xkcd.com/327/ –