Bom dia Pessoal.
Estou tentando rodar uma ação DoCmd.RunSQL em um botão de comando, mas dá o seguinte erro:
Erro em tempo de execução 2342.
Uma ação ExecutarSQL requer um argumento consistindo de uma instrução SQL.
Segue abaixo o código:
Private Sub Ctl_2_Click()
Dim StrSQL As String
Dim StrSQL2 As String
DoCmd.RunSQL "SELECT C_Agenda2.Areninha, C_Agenda2.Reserva_Data, C_Agenda2.IniHoraNum, C_Agenda2.FimHoraNum FROM C_Agenda2 WHERE ((([forms]![Agenda-Frm]![ReservaIni]) Between [inihoranum] And [fimhoranum])) ORDER BY C_Agenda2.Reserva_Data DESC , C_Agenda2.Inicio_Hora;"
Criei um form de consulta e lá funciona normal.
Obg pela ajuda pessoal.
Estou tentando rodar uma ação DoCmd.RunSQL em um botão de comando, mas dá o seguinte erro:
Erro em tempo de execução 2342.
Uma ação ExecutarSQL requer um argumento consistindo de uma instrução SQL.
Segue abaixo o código:
Private Sub Ctl_2_Click()
Dim StrSQL As String
Dim StrSQL2 As String
DoCmd.RunSQL "SELECT C_Agenda2.Areninha, C_Agenda2.Reserva_Data, C_Agenda2.IniHoraNum, C_Agenda2.FimHoraNum FROM C_Agenda2 WHERE ((([forms]![Agenda-Frm]![ReservaIni]) Between [inihoranum] And [fimhoranum])) ORDER BY C_Agenda2.Reserva_Data DESC , C_Agenda2.Inicio_Hora;"
Criei um form de consulta e lá funciona normal.
Obg pela ajuda pessoal.