[Resolvido]DoCmd.ApplyFilter com mais de um critério

Olá,

Vi esse exemplo e gostaria de inserir um AND no DoCmd.ApplyFilter com um campo da mesma combo que contenha uma data, mas eu nao estou conseguindo, oras da erro de acento e outras de tipos incompatíveis.

Código:


Private Sub cboConsulta_AfterUpdate()
DoCmd.ApplyFilter , "idcliente = " & Me!cboConsulta.Column(0)
Me!cli_Nome.SetFocus
Me!cboConsulta = Null
End Sub

Tente assim amigo...

DoCmd.ApplyFilter , "idcliente = " & Me!cboConsulta.Column(0) & " AND CNPJ = " & Me.CnpjCli & " "

Se nao der certo Veja aqui Mensagem Nº 02 e 03 https://www.maximoaccess.com/t26778-resolvidofiltrar-exemplo

Fabio, muito obrigado pelo retorno..
achei algo estranho porque depurando vi que esta retornando null quando eu coloco os 2

Código:


DoCmd.ApplyFilter , "codigo_oficial = " & Me!cbobusca2.Column(0) & " AND dataLancamento = " & Me!cbobusca2.Column(2) & " "


mas quando eu coloco somente 1 funciona

Código:


DoCmd.ApplyFilter , "codigo_oficial = " & Me!cbobusca2.Column(0)


eu acho que a data é uma string, como faz nesse caso?

Campos do tipo Data, quando tratadas pelo VBA devem ser add o Caracter # antes e depois da Data #, alem de formatar-mos ela pra evitar erros quanto a confusão de meses com dias.



DoCmd.ApplyFilter , "codigo_oficial = " & Me!cbobusca2.Column(0) & " AND dataLancamento = # " & Format (Me!cbobusca2.Column(2), "mm/dd/yyyy") & " # "

Deverá funcionar.

Deverá funcionar? não, funcionou hehehehe
Obrigado..
Vlw Fabio

Funcionou ou Nao amigo? fiquei confuso... rererererere

esqueci a virgula. funcionou sim.

kkkkkkkkkkkkkkkkkkk Bacana!!!

Ate a proxima!