BUSCA COMBINADA NO BANCO DE DADOS
Pessoal, eu uso este código para buscar as vendas realizadas entre as datas correspondentes aos valores de 2 datapickers:
[txt-color=#0000f0]rs.Open [Ô]Select * from tblBanco where DataBD between # [Ô] & VBA.Format(dtpDtInic.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & VBA.Format(dtpDtFinal.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# [Ô], db, 3, 3[/txt-color]
E uso este código para buscar um determinado tipo de venda realizado no mes atual:
[txt-color=#0000f0]rs.Open [Ô]Select * from tblBanco where MesCompBD like [ô][Ô] & Month(DateValue(Now)) & [Ô]%[ô] and AnoCompraBD=year(datevalue(now)) and FormaBD=[ô]Avista[ô] [Ô], db, 3, 3[/txt-color]
Gostaria de acrescentar ao primeiro código a busca do [txt-color=#0000f0]FormaBD=[ô]Avista[ô][/txt-color] para que alem de trazer as vendas entre as datas tambem traga a forma da venda.
Alguém pode ajudar?
[txt-color=#0000f0]rs.Open [Ô]Select * from tblBanco where DataBD between # [Ô] & VBA.Format(dtpDtInic.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & VBA.Format(dtpDtFinal.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# [Ô], db, 3, 3[/txt-color]
E uso este código para buscar um determinado tipo de venda realizado no mes atual:
[txt-color=#0000f0]rs.Open [Ô]Select * from tblBanco where MesCompBD like [ô][Ô] & Month(DateValue(Now)) & [Ô]%[ô] and AnoCompraBD=year(datevalue(now)) and FormaBD=[ô]Avista[ô] [Ô], db, 3, 3[/txt-color]
Gostaria de acrescentar ao primeiro código a busca do [txt-color=#0000f0]FormaBD=[ô]Avista[ô][/txt-color] para que alem de trazer as vendas entre as datas tambem traga a forma da venda.
Alguém pode ajudar?
ué simples
rs.Open [Ô]Select * from tblBanco where FormaBD=[ô]Avista[ô] And (DataBD between # [Ô] & VBA.Format(dtpDtInic.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & VBA.Format(dtpDtFinal.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# )[Ô], db, 3, 3
Citação::
ué simplesrs.Open [Ô]Select * from tblBanco where FormaBD=[ô]Avista[ô] And (DataBD between # [Ô] & VBA.Format(dtpDtInic.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & VBA.Format(dtpDtFinal.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# )[Ô], db, 3, 3
Marcelo,
Obrigado por sua ajuda, estou no trabalho e assim que chegar em casa vou testar...
Citação::
:
ué simplesrs.Open [Ô]Select * from tblBanco where FormaBD=[ô]Avista[ô] And (DataBD between # [Ô] & VBA.Format(dtpDtInic.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & VBA.Format(dtpDtFinal.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# )[Ô], db, 3, 3
Marcelo,
Obrigado por sua ajuda, estou no trabalho e assim que chegar em casa vou testar...
Marcelo,
Deu certo, valeu mesmo...
Tópico encerrado , respostas não são mais permitidas