select

[horse 0]

tenho um campo na tabela Compromissos chamada data, e gostaria de listar todos registro do mês atual. Só que apresenta errorec_comp.Open "SELECT * from tbCompromissos where tbCompromissos.data=" & month(data),conn,1Obrigado.

[Mário Monteiro 179]

rec_comp.Open "SELECT * from tbCompromissos where MONTH(data) =" & MONTH(date),conn,1

[naoliveira 0]

experimenta assim:rec_comp.Open "SELECT * from tbCompromissos where tbCompromissos.data=#" & month(data) & "#;",conn,1acrescentei o sinal # antes e depois data

[Mário Monteiro 179]

não pode ser assimpois ele estará comparando uma data com um mes então nunca serão iguais