需要有关在 MS ACCESS 中使用 SQL & VBA 来 运行 查询的建议
Need advice for using SQL & VBA in MS ACCESS to run a query
请不要提问,这是一个漫长而复杂的故事:-)
我只需要 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
另外,你应该给你的按钮起有意义的名字。
请不要提问,这是一个漫长而复杂的故事:-)
我只需要 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
另外,你应该给你的按钮起有意义的名字。