[Resolvido]Sql dentro de VBA

Olá pessoal, estou a fazer uma tela de formulario com vba por tras.

no formulario tem um campo chamado cnpj. quando eu preencher o campo cnpj, gostaria que o campo Razao social, alimentasse automatico, buscando a informação correspondente em uma tabela.

ja tentei de todo jeito fazer o codigo mas nao funciona.....

a msg de erro a gora e a tal da variavel do objeto ou a variael do bloco whit nao encontrada.

segue codigo:
-------------------------


Public Sub T001(RZS1)

Dim db As Dao.Database
Dim rs As Dao.Recordset
Dim strSQL As String

Dim GESTOR_NUCLEO As Dao.Database
Dim dataset As Dao.Recordset
Dim Comando As String
'Set dataset = GESTOR_NUCLEO.OpenRecordset


strSQL = "SELECT [002_TPL].TPL_Razao_Social " & _
        "FROM 002_TLC INNER JOIN 002_TPL ON [002_TLC].TLC_CPF_CNPJ = [002_TPL].TPL_CNPJ " & _
        "WHERE [002_TLC].TLC_CPF_CNPJ = '*73096768153*' " & _
        "GROUP BY [002_TLC].TLC_CPF_CNPJ, [002_TPL].TPL_Razao_Social "

'CurrentDb.Execute strSQL

'Set db = CurrentDb
'Set rs = db.OpenRecordset(strSQL)
Set rst = CurrentDb.OpenRecordset(strSQL)

RZS = rs("[002_TPL].TPL_Razao_Social") ///  aqui da vazio depois de executar o codigo.



rs.Close




Set rs = Nothing
db.Close
Set db = Nothing


End Sub


--

Desde ja muito obrigado quem puder ajudar. nao sou profissional de TI, então a explicação tem que ser detalhada.

Bom dia,

Se possível, sempre enviar uma cópía do bd de dados.
Nem sempre as imagens ajudam, mas esta que vc enviou deu pra entender.

Aqui vc instanciou o recordset "rst"
Set rst = CurrentDb.OpenRecordset(strSQL)

Mas está buscando dados no recordset "rs"
RZS = rs("[002_TPL].TPL_Razao_Social") ///  aqui da vazio depois de executar o codigo.


Acredito que seja isso apenas.

Att,

Alexandre Fim

Alexandre, obrigado pela ajuda. Fiz a alteração.


a msg agora e


Erro em tempo de execução '3265';
Item não encontrado nessa coleção

anexei uma copia do BD, com o formulário em questao.
o que me intriga e que a sql funciona corretamente em modo consulta.. mas dentro do vba.. nao estou sabendo setar os paramentros.


o dado "00073096768153" existe na tabela onde esta se fazendo a pesquisa.

Olá George,

Não veio o bd, somente a imagem do erro.
Por gentileza, envie a copia do seu bd para analise e solução.

Att,

Alexandre Fim

Opa, segue a copia... .

Não veio novamente....rssss

anexei zipado agora.

George,

Fiz alguns ajustes no formulário. Ficou assim:


Inclui um grupo de opções para seleciona CPF ou CNPJ, e adicionei uma rotina onde muda a máscara do campo conforme a opção selecionada.

Criei um módulo onde se encontra a função "fncObtemRazSoc", que recebe 2 parametros para obter a Razão Social e preencher o campo no formulário.

OBS: na tabela "002_TPL" existem os campos "CPF" e "CNPJ", e poderia ser um unico campo apenas para armazenar. Poderia eliminar o campo CPF e mudar o outro campo "TPL_CPF_CNPJ". A não ser que o CPF seja necessário armazenar junto com o CNPJ.

Caso queira mudar somente para um unico campo, vc pode incluir também uma coluna na tabela do tipo Texto, tamanho 2, para armazenar o TipoPessoa ("PJ" - Pessoa Juridica ou "PF" - Pessoa Física)

É isso

Segue versão atualizada do sistema.
Espero ter ajudado

Att,

Alexandre Fim

obrigado. vou marcar como resolvido. era o que eu precisava.