Boa tarde,

 

Se alguem puder ajudar agradeço

 

Preciso fazer uma select assim

 

SELEC * TABELA WHERE  TABELA_EMISSAO >= CAMPO_DATA_NO_FORM AND TABELA_EMISSAO <= CAMPO_DATA_NO_FORM 

 

Porem esta dando erro de sintaxe , se puderem ajudar.

 

abraço,

 

anderson

 

 

 

ou assim,

Dim CAMPO_DATA_NO_FORM as date

XData = format(CAMPO_DATA_NO_FORM, "dd/mm/yyyy")

 

MySQl = "SELEC * from TABELA

MySql= MySql & " WHERE  (format(TABELA_EMISSAO, 'dd/mm/yyyy')) > " & "'" & Data & "'"

MySQl = MySql & " AND (format(TABELA_EMISSAO, 'dd/mm/yyyy')) <= " & "'" & XData & "'" & " order by TABELA_EMISSAO"

 

Já tive problemas com datas em BD, acontece que numa consulta o formato da data nem sempre é o que agente vê. Na realidade ela esta em formato americano, ou seja, mm/dd/yyyy.

 

Set BancoDeDados = OpenDatabase(App.Path & "olao.MDB", False)
Set TBbolão = BancoDeDados.OpenRecordset("select distinct Equipe from bolão where Data >= #" & Format(DataInicial, "mm/dd/yyyy") & "# and Data <= #" & Format(DataFinal, "mm/dd/yyyy") & "# order by Equipe asc")

 

Neste meu exemplo estou pegando somente uma unica equipe de nome diferente que existe na tabela por isso uso o DISTINGT