如何解决需要有关在 MS ACCESS 中使用 SQL 和 VBA 运行查询的建议
请不要问问题,这是一个漫长而复杂的故事:-)
我只需要 sql 字符串中 Me.frmButtons.Form.Button01.caption 的正确语法(带所有引号)。谢谢。这个不行:
Private Sub Button01_Click()
Dim strsql As String
strsql = "SELECT * FROM table01 WHERE fldName = ""Me.bForm.Form.Button01.caption""
ORDER BY FldName"
Me.mForm.Form.RecordSource = strsql
Me.mForm.Form.Requery
End Sub
解决方法
在 VBA 中,SQL 是字符串,而不是变量和对象,因此必须将这些对象连接到字符串,连接字符串的字符是“&”
SQL语句应该是这样的:
strsql = "SELECT * FROM table01 WHERE fldName = '" & Me.bForm.Form.Button01.caption & "' ORDER BY FldName"
,
这应该有效:
Private Sub Button01_Click()
Dim strsql As String
strsql = "SELECT * FROM table01 " & _
"WHERE fldName = '" & Me!bForm.Form!Button01.Caption & "' " & _
"ORDER BY FldName"
Me!mForm.Form.RecordSource = strsql
End Sub
另外,你应该给按钮起有意义的名字。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。