Boa noite,
Estou colando minha instrução sql para selecionar registros. Ele retorna o seguinte erro quando uso select (ERRO 2342 - UMA AÇAO EXECUTARSQL REQUER UM ARGUMENTO CONSISTINDO DE UMA INSTRUÇÃO SQL), mas se eu usar, por exemplo, delete no lugar de select, a instrução funciona. Alguém poderia me dizer onde estou errando?
Private Sub Comando33_Click()
Dim w_par As Integer
Dim w_dtv As Date
Dim w_doc As String
Dim w_valor As Currency
Dim w_pesq_sql As String
Dim bco_bol As Database
Dim rst_bol As Recordset
Set bco_bol = CurrentDb
Set rst_bol = bco_bol.OpenRecordset("dados_carnet", dbOpenTable)
w_pesq_sql = ("select * from dados_carnet where Matrícula like " & w_mat)
MsgBox (bco_bol.Name)
DoCmd.RunSQL (w_pesq_sql) ====> onde ocorre o erro... se substituir, por exemplo, delete funciona
.
.
.
.
Estou colando minha instrução sql para selecionar registros. Ele retorna o seguinte erro quando uso select (ERRO 2342 - UMA AÇAO EXECUTARSQL REQUER UM ARGUMENTO CONSISTINDO DE UMA INSTRUÇÃO SQL), mas se eu usar, por exemplo, delete no lugar de select, a instrução funciona. Alguém poderia me dizer onde estou errando?
Private Sub Comando33_Click()
Dim w_par As Integer
Dim w_dtv As Date
Dim w_doc As String
Dim w_valor As Currency
Dim w_pesq_sql As String
Dim bco_bol As Database
Dim rst_bol As Recordset
Set bco_bol = CurrentDb
Set rst_bol = bco_bol.OpenRecordset("dados_carnet", dbOpenTable)
w_pesq_sql = ("select * from dados_carnet where Matrícula like " & w_mat)
MsgBox (bco_bol.Name)
DoCmd.RunSQL (w_pesq_sql) ====> onde ocorre o erro... se substituir, por exemplo, delete funciona
.
.
.
.