MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Sql dentro de VBA

    avatar
    georgellis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 24/04/2014

    [Resolvido]Sql dentro de VBA Empty [Resolvido]Sql dentro de VBA

    Mensagem  georgellis 22/1/2024, 05:20

    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.
    Anexos
    [Resolvido]Sql dentro de VBA AttachmentEu.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (8 Kb) Baixado 8 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  Alexandre Fim 22/1/2024, 14:19

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Sql dentro de VBA Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    georgellis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 24/04/2014

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  georgellis 23/1/2024, 01:18

    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.

    Anexos
    [Resolvido]Sql dentro de VBA Attachmenterro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  Alexandre Fim 23/1/2024, 13:36

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Sql dentro de VBA Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    georgellis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 24/04/2014

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  georgellis 23/1/2024, 15:56

    Opa, segue a copia... .
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  Alexandre Fim 23/1/2024, 16:02

    Não veio novamente....rssss


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Sql dentro de VBA Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    georgellis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 24/04/2014

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  georgellis 23/1/2024, 16:11

    anexei zipado agora.
    Anexos
    [Resolvido]Sql dentro de VBA AttachmentCopia.zip
    copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (103 Kb) Baixado 5 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3501
    Registrado : 13/12/2016

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  Alexandre Fim 23/1/2024, 18:57

    George,

    Fiz alguns ajustes no formulário. Ficou assim:
    [Resolvido]Sql dentro de VBA Razaos10

    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
    Anexos
    [Resolvido]Sql dentro de VBA AttachmentCopia_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (96 Kb) Baixado 12 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Sql dentro de VBA Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    georgellis
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 24/04/2014

    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  georgellis 22/3/2024, 00:21

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

    Conteúdo patrocinado


    [Resolvido]Sql dentro de VBA Empty Re: [Resolvido]Sql dentro de VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 15:15