consulta no access

[Rudnei 0]

Olá amigos (as)Preciso fazer uma consulta no acces, só que o campo chama-se razão social, e na consulta gostaria apenas de colocar uma parte do nome para não ter que digitar tudo, por exemplo ABCD COMERCIO E SERVIÇOS LTDAGostaria de poder colocar apenas na consulta ABCD e me retornar tudo....como faço isto ?

[Spiritwalker 0]

Prezado Rudinei:Favor inserir o código abaixo no evento OnChange da caixa de texto que você menciona. Ressalto que ele atua "em conjunto" com uma caixa de listagem (lstEmpresas), a qual exibe todas as empresas cadastradas na tabela, de acordo com a expressão existente em txtEmpresas. Não testei o código abaixo, visto que foi adaptado de um outro procedimento, mas pode ser modificado de acordo com suas necessidades.Presume-se que em sua tabela (tblEmpresas) exista um campo (RazaoSocial) que armazene as razões sociais das empresas cadastradas. Cada caracterer inserido em txtEmpresa é repassado para uma variável (varRazaoSocial) que irá compor uma string SQL que resultará numa consulta "temporária" (qryTempEmpresas) que é excluída e recriada todas as vezes que se fizer necessário. Dim varRazaoSocial As Variant varRazaoSocial = txtRazaoSocial.Text & "*" strSQL = "SELECT * FROM qryEmpresas WHERE RazaoSocial Like '" & varRazaoSocial & "' ORDER BY RazaoSocial" Set db = CurrentDb db.QueryDefs.Refresh For Each qdf In db.QueryDefs If qdf.Name = "qryTempEmpresas" Then 'db.QueryDefs.Delete qdf.Name db.QueryDefs.Delete "qryTempEmpresas" End If Next qdf Set qdf = db.CreateQueryDef("qryTempEmpresas", strSQL) lstEmpresas.RowSource = "qryTempEmpresas" lstEmpresas.Requery lstEmpresas = 0 qdf.Close db.CloseEnd SubEspero que isso ajude. Abraços.