Depois de muito pesquisar e esquentar a cabeça, descobri o problema da
macro, que na verdade embora a logica estivesse correta, a sintaxe não, pois
não basta colocar o campo nome como estava fazendo para filtrar o campo, mas
tem que se referir ao nome do formulario.nome do campo no meu caso
Clientes3.Nome, alem disto a sintaxe do sql utiliza % e não *.
Pronto agora funciona e posso ir adiante
Sub filtranome(Event As Object)
Dim Form As object
Dim nome,fnome As String
Form=Event.Source.Model.Parent
nome = InputBox("ENTRE COM AS INICIAIS DO NOME")
Form.Filter= "CLIENTE3.Nome LIKE '" &nome &"%'"
Form.ApplyFilter=True
Form.reload()
End Sub
--
Você está recebendo e-mails da lista [email protected]
# Informações sobre os comandos disponíveis (em inglês):
mande e-mail vazio para [email protected]
# Cancelar sua assinatura: mande e-mail vazio para:
[email protected]
# Arquivo de mensagens: http://listarchives.libreoffice.org/pt-br/usuarios/
