由网友(裙角.)分享简介:**编辑大家好,我tryng包括在SQL语句中对我的VBA,这样我就可以很容易地通过排序数据和过滤器。所以,我已经找到办法,包括SQL中我的VBA,但我得到一个错误,指出RunSQL操作需要一个SQL语句,但很明显,在SQL语句是STRSQL变量中。私人小组buttonNot_Click()昏暗STRSQL作为字符串...
**编辑
大家好,我tryng包括在SQL语句中对我的VBA,这样我就可以很容易地通过排序数据和过滤器。所以,我已经找到办法,包括SQL中我的VBA,但我得到一个错误,指出RunSQL操作需要一个SQL语句,但很明显,在SQL语句是STRSQL变量中。
私人小组buttonNot_Click()
昏暗STRSQL作为字符串
STRSQL =选择表1 [FirstNam],表1 [LastNam]。&放大器; _
from table1中与放大器; _
WHERE(与'杰米')(([LastNam])<(([FirstNam])<&GT>卡特曼'));
DoCmd.RunSQL STRSQL
Me.Filter =
Me.Filter =FirstNam<>杰米和LastNam<>卡特曼'
结束小组
解决方案
私人小组buttonNot_Click()
昏暗STRSQL作为字符串
STRSQL =选择表1 [FirstNam],表1 [LastNam]。&放大器; _
from table1中与放大器; _
WHERE(与'杰米')(([LastNam])<(([FirstNam])<&GT>卡特曼'));
Me.RecordSource = STRSQL
DoCmd.RunSQL STRSQL
'Me.Filter =
Me.Filter =FirstNam<>杰米和LastNam<>卡特曼'
结束小组
**Edit
Hello Everyone I am tryng to include an SQL statement in to my vba so that I can easily sort through data and filter. So I have found way to include SQL in to my VBA but I get an error that says "The RunSQL action requires a SQL statement" but clearly the SQL statement is within the strSQL variable.
Private Sub buttonNot_Click()
Dim strSQL As String
strSQL = "SELECT Table1.[FirstNam], Table1.[LastNam]" & _
"FROM Table1 " & _
"WHERE ((([FirstNam]) <> 'Jamie') AND (([LastNam]) <> 'Cartman'));"
DoCmd.RunSQL strSQL
Me.Filter = ""
Me.Filter = "FirstNam<>'Jamie' AND LastNam<>'Cartman'"
End Sub
解决方案
Private Sub buttonNot_Click()
Dim strSQL As String
strSQL = "SELECT Table1.[FirstNam], Table1.[LastNam]" & _
"FROM Table1 " & _
"WHERE ((([FirstNam]) <> 'Jamie') AND (([LastNam]) <> 'Cartman'));"
Me.RecordSource = strSQL
'DoCmd.RunSQL strSQL
'Me.Filter = ""
'Me.Filter = "FirstNam<>'Jamie' AND LastNam<>'Cartman'"
End Sub
相关推荐
最新文章