需要有关在 MS ACCESS 中使用 SQL 和 VBA 运行查询的建议

Question

请不要问问题，这是一个漫长而复杂的故事:-)

我只需要 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

Answer 1

在 VBA 中 SQL 是一个字符串，但不是变量和对象，所以这个对象必须连接到字符串，连接字符串的字符是“&”

SQL 语句应该是这样的：

strsql = "SELECT * FROM table01 WHERE fldName = '" & Me.bForm.Form.Button01.caption & "' ORDER BY FldName"

Answer 2

这应该有效：

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

另外，你应该给你的按钮起有意义的名字。