需要有关在 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

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