在访问子表中获取当前选定的记录值

问题描述：

我在访问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]！” 请帮

“我卡在第二行”不是很详细。你有错误信息吗？它会崩溃吗？你的意思是第二行代码或表中的第二行？ –

我需要的语法是完整的线[Supplier_name] =““”＆‘我！当前记录！[Supplier_name]’＆“”” –

所以你的问题是如何使SQL查询完美？如果是这样，那么请编辑你的问题（不是每个人都阅读评论）。还有一个你写“stnSQL”的错字。并避免SQL注入。 https://xkcd.com/327/ –

答

感谢它为我工作，但没有currentrecord财产

strSQL = strSQL & "[Supplier_name] ='" & Me![Supplier_name] & "'"

答

你缺少你的代码的第二行中，其中后一个空间：

strSQL = "Select * from [Query1] where "

而且还有一个问题，在第三行的“和”字符：

strSQL = strSQL & "[Supplier_name] ='" & Me!current record![Supplier_name] & "'"

在访问子表中获取当前选定的记录值

相关推荐