FILTRO COM DOIS CRITERIOS
Oi pessoal, minha dúvida é como se coloca mais um critério após a clausula WHERE da query abaixo. A minha finalidade é digitar data inicial , data final , digitar o código do cliente em um textbox (CodigodoCliente) e digitar também o código do motivo em outro textbox (CodMotivo). Sendo assim filtrar por datas com dois critérios.E isso ai!!!
Sql = [Ô]SELECT tbmovimento.CodigoPedido,tbmovimento.CodigodoCliente,tbmovimento.CodMotivo,tbmotivo.CodMotivo, tbmotivo.Descricao_motivo AS Motivo, tbmovimento.Dias, tbmovimento.Acontar, tbmovimento.DataInclusao [Ô] & _
[Ô]FROM tbmotivo INNER JOIN tbmovimento ON tbmotivo.CodMotivo = tbmovimento.CodMotivo [Ô] & _
[Ô]WHERE tbmovimento.CodMotivo =[Ô] & CLng(txtmotivo) & _
[Ô]AND tbmovimento.DataInclusao Between #[Ô] & Format(Me.msk1.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND # [Ô] & Format(Me.msk2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
Sql = [Ô]SELECT tbmovimento.CodigoPedido,tbmovimento.CodigodoCliente,tbmovimento.CodMotivo,tbmotivo.CodMotivo, tbmotivo.Descricao_motivo AS Motivo, tbmovimento.Dias, tbmovimento.Acontar, tbmovimento.DataInclusao [Ô] & _
[Ô]FROM tbmotivo INNER JOIN tbmovimento ON tbmotivo.CodMotivo = tbmovimento.CodMotivo [Ô] & _
[Ô]WHERE tbmovimento.CodMotivo =[Ô] & CLng(txtmotivo) & _
[Ô]AND tbmovimento.DataInclusao Between #[Ô] & Format(Me.msk1.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND # [Ô] & Format(Me.msk2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
Esqueci de mencionar: o banco é Access com VB6....
No geral, acrescente mais um operador ... AND coluna = valor.
Em se tratando de ACCESS e usando JOIN, talvez você terá que acrescentar alguns parênteses para executar sem erro.
Em se tratando de ACCESS e usando JOIN, talvez você terá que acrescentar alguns parênteses para executar sem erro.
isso aqui resolve seu problema..
sql = [Ô]Select * from MovLigacoes[Ô]
[ô]coloque um campo da tabela que não faz parte da consulta, pois senao vc trunca a query.
sql = sql & [Ô] WHERE HORAINICIO [Ô]
If txtIni.Value <> [Ô][Ô] And txtFim.Value <> [Ô][Ô] Then sql = sql & [Ô]AND datainicio between #[Ô] & Format(Dtpickerinicial.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & Format(DTPickerFinal.Value, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
If txtCol.Text <> [Ô][Ô] Then sql = sql & [Ô]and tecnicoa=[ô][Ô] & txtCol.Text & [Ô][ô][Ô]
If txtPesqOcorr.Text <> [Ô][Ô] Then sql = sql & [Ô] AND idOcorr =[ô][Ô] & txtPesqOcorr.Text & [Ô][ô][Ô]
Valeu Angels, mas eu já havia conseguido resolver.Simplesmente levei em consideração o que o TECLA informou.Desculpe não ter encerrado antes.Sendo assim vou encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas