Ola pessoal,quero filtrar com a combo clientes os clientes do formulario,alguém ajuda.
- Anexos
- Teste.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (232 Kb) Baixado 9 vez(es)
Private Sub txtCliente_AfterUpdate()
Dim Filtro As String
Filtro = "[ccNomCli] LIKE '*" & Trim(Me.ccNomCli) & "*'"
Me.Filter = Filtro
Me.FilterOn = True
Me.Requery
End Sub