**编辑

大家好，我tryng包括在SQL语句中对我的VBA，这样我就可以很容易地通过排序数据和过滤器。所以，我已经找到办法，包括SQL中我的VBA，但我得到一个错误，指出RunSQL操作需要一个SQL语句，但很明显，在SQL语句是STRSQL变量中。

 私人小组buttonNot_Click（）


昏暗STRSQL作为字符串

STRSQL =选择表1 [FirstNam]，表1 [LastNam]。＆放大器; _
from table1中与放大器; _
WHE​​RE（与'杰米'）（（[LastNam]）＆LT;（（[FirstNam]）＆LT;＆GT＆GT;卡特曼'））;

DoCmd.RunSQL STRSQL

Me.Filter =
Me.Filter =FirstNam＆LT;＆GT;杰米和LastNam＆LT;＆GT;卡特曼'

结束小组
 

解决方案

 私人小组buttonNot_Click（）


昏暗STRSQL作为字符串

STRSQL =选择表1 [FirstNam]，表1 [LastNam]。＆放大器; _
from table1中与放大器; _
WHE​​RE（与'杰米'）（（[LastNam]）＆LT;（（[FirstNam]）＆LT;＆GT＆GT;卡特曼'））;


Me.RecordSource = STRSQL

DoCmd.RunSQL STRSQL

'Me.Filter =
Me.Filter =FirstNam＆LT;＆GT;杰米和LastNam＆LT;＆GT;卡特曼'

结束小组
 

**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