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]Atualizar registro em ambas a tabelas através do formulário

    avatar
    Mario Fernandes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 24/04/2019

    [Resolvido]Atualizar registro em ambas a tabelas através do formulário Empty [Resolvido]Atualizar registro em ambas a tabelas através do formulário

    Mensagem  Mario Fernandes 5/1/2021, 00:05

    Olá, tudo bem.

    Estou com dificuldades em solucionar uma problema e gostaria, se possível, de uma orientação dos especialistas.

    Tenho um formulário "frm_Cad_Imóveis" que alimenta uma tabela chamada "tab_Cad_Imóveis". No botão "Salvar" deste formulário inseri um código que verifica, através do comando "Dlookup", a existência ou não de determinados registros em uma outra tabela chamada "tab_Cad_Titular_DeDireito".
    Após verificação e constatado como já existentes será emitida uma mensagem dando sequência no código. Caso não existentes será aplicado o INSERT INTO para que sejam inserido os registros diretamente nesta tabela "tab_Cad_Titular_DeDireito".

    O Código funciona bem. Ocorre que havendo uma alteração nos registros respectivos a primeira tabela, e sendo eles comuns as duas tabelas, estes não são atualizados na segunda tabela, visto que o código só verifica a existência ou não dos registros, neste caso, sendo já existentes, não os atualiza.
    A dificuldade é justamente como posso fazer para que, se necessário for, mesmo existindo os registro em ambas as tabelas, o código possa atualiza-los na segunda tabela?

    Esclarecendo, os campos objetos de possíveis atualizações são: ID_Cód_DoImóvel,NomeCadastrado,CPF,Particip_DeDireito,Endereço_1,Endereço_2

    Este é o Código:

       Dim Verifica As Variant    
       MsgBox ("O sistema verificará se o Cliente está incluído como Titular de Direito para este imóvel. Caso não esteja fará a inclusão."), vbInformation, "Atenção!"
       Verifica = DLookup("[ID_Cód_DoCliente]", "tab_Cad_Titular_DeDireito", "[ID_Cód_DoCliente] = " & Me.Cód_DoCliente & "AND [ID_Cód_DoImóvel] = " & Me.[Cód_DoImóvel])
       
    If Me.Cód_DoCliente = Verifica Then            
        MsgBox "Cliente já incluído(a) como Titular de Direito para este imóvel!", vbInformation, "Atenção!"    
    Else
       MsgBox "Cliente ainda não incluído(a) como Titular de Direito para este imóvel. Será incluído(a) neste momento.", , "Atenção!"    
       CurrentDb.Execute "INSERT INTO tab_Cad_Titular_DeDireito (ID_Cód_DoImóvel,ID_Cód_DoCliente,NomeCadastrado,CPF,Particip_DeDireito,Endereço_1,Endereço_2)" _
       & "VALUES('" & Cód_DoImóvel & "','" & ID_Cadastrado.Column(0) & "','" & ID_Cadastrado.Column(1) & "','" & ID_Cadastrado.Column(3) & "','" & Particip_DeDireito & "','" & Imóvel_Endereço_1 & "','" & Imóvel_Endereço_2 & "')"
       Me.Lista_DeTitulares.Requery
       MsgBox "Cliente incluído(a) como Titular de Direito com sucesso!", vbInformation, "Confirmação!"    
    End If
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Atualizar registro em ambas a tabelas através do formulário Empty Re: [Resolvido]Atualizar registro em ambas a tabelas através do formulário

    Mensagem  Alexandre Neves 6/1/2021, 20:36

    Boa noite
    Podia fazer verificação, em cada controlo alterado, se o valor corresponde ao existente na segunda tabela e, caso seja diferente, actualizar


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Mario Fernandes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 24/04/2019

    [Resolvido]Atualizar registro em ambas a tabelas através do formulário Empty Re: [Resolvido]Atualizar registro em ambas a tabelas através do formulário

    Mensagem  Mario Fernandes 12/1/2021, 12:07

    Tudo bem, Alexandre.

    É exatamente o que pretendo mas estou sem saber como proceder. Teria como me dar uma sugestão?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8019
    Registrado : 05/11/2009

    [Resolvido]Atualizar registro em ambas a tabelas através do formulário Empty Re: [Resolvido]Atualizar registro em ambas a tabelas através do formulário

    Mensagem  Alexandre Neves 15/1/2021, 17:28

    Boa tarde
    No acontecimento AoSair do controlo, coloque código para ver se o valor tem de ser actualizado na segunda tabela
    +/- assim
    If dlookup("NomeDoCampo","Tabela","Registo=" & TxtRegisto) <> NomeDoControlo then currentdb.execute "UPDATE Tabela SET Campo=" & Controlo &" WHERE Registo=" & TxtRegisto


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Mario Fernandes gosta desta mensagem

    avatar
    Mario Fernandes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 24/04/2019

    [Resolvido]Atualizar registro em ambas a tabelas através do formulário Empty Re: [Resolvido]Atualizar registro em ambas a tabelas através do formulário

    Mensagem  Mario Fernandes 22/2/2021, 13:07

    Alexandre, Bom Dia.

    Desculpe-me pela demora no retorno.
    O tempo por cá tem andado curto, de forma que só neste final de semana tive a oportunidade de aplicar sua orientação.
    Acrescento que a aplicação funcionou perfeitamente.

    Muito obrigado pela atenção.

    Grande abraço.

    Mario Fernandes

      Data/hora atual: 21/9/2021, 02:19