CONSULTA NO BD ACCESS

MARIOANDRADE 03/08/2014 18:43:33
#440144
Meus amigos o seguinte código funciona perfeitamente 
rs.Open [Ô]select *from TBMesRef where Ano_Ref=[Ô] & Ano, db, 3, 3

O problema é quando tento fazer uma busca combinada

rs.Open [Ô]select *from TBMesRef where Ano_Ref=[Ô] & Ano And Codigo= & Cod_cli And Mes_Ref= & Mes, db, 3, 3


Já tentei um monte de combinações de aspas e apóstrofos mas todos retornam erro, preciso
fazer a alteração apenas se estes 3 requisitos forem verdadeiros Ano_Ref, Codigo e Mes_Ref

Sei que isso é bem simples pra grande maioria aqui, mas vai me ajudar muito.

Muito obrigado a quem possa ajudar.
OMAR2011 03/08/2014 19:42:24
#440146 Resposta escolhida
rs.Open [Ô]select * from TBMesRef where Ano_Ref=[Ô] & Ano & [Ô] And Codigo= [Ô] & cod_Cli & [Ô] And Mes_Ref= [ô][Ô] & Mes & [Ô][ô][Ô], db, 3, 3

Para Access.
Campo numero usa = [Ô] & Ano & [Ô]
Campo Texto usa = [ô][Ô] & Mês & [Ô][ô]
MARIOANDRADE 03/08/2014 20:06:12
#440147
Citação:

:
rs.Open [Ô]select * from TBMesRef where Ano_Ref=[Ô] & Ano & [Ô] And Codigo= [Ô] & cod_Cli & [Ô] And Mes_Ref= [ô][Ô] & Mes & [Ô][ô][Ô], db, 3, 3

Para Access.
Campo numero usa = [Ô] & Ano & [Ô]
Campo Texto usa = [ô][Ô] & Mês & [Ô][ô]




Omar, no meu código todos os campos são números

 Dim Mes As Integer
    Dim Ano As Integer
        Mes = Month(dtpRelatorio.Value)
        Ano = Year(dtpRelatorio.Value)


como fica o código então?
Tópico encerrado , respostas não são mais permitidas
Voltar