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


    [Resolvido]Inserir registros sem repetições direto em outra tabela

    avatar
    Mario Fernandes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Inserir registros sem repetições direto em outra tabela Empty [Resolvido]Inserir registros sem repetições direto em outra tabela

    Mensagem  Mario Fernandes 25/10/2020, 03:30

    Prezados Colaboradores, tudo bem!

    No projeto que estou desenvolvendo tenho um formulário (frm_Cad_Imóveis) que alimenta uma tabela (tab_Cad_Imóvel), com um botão que ao clicar insere diretamente alguns registros desta tabela em uma outra tabela (tab_Cad_Titular_DeDireito).

    No botão inseri o seguinte código:

    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 & "','" & Me.ID_Cadastrado.Column(0) & "','" & Me.ID_Cadastrado.Column(1) & "','" & Me.ID_Cadastrado.Column(3) & _ "','" & Particip_DeDireito & "','" & Imóvel_Endereço_1 & "','" & Imóvel_Endereço_2 & "')"

    Este código está funcionando perfeitamente. Quando acionado insere os respectivos registros na tabela especificada.

    Ocorre que o objetivo é que os registros sejam inseridos de forma que não haja repetições, isto é, se o “ID_Cód_DoImóvel” e “CPF” já estiverem cadastrados o registro em andamento seja cancelado (e seja emitida uma mensagem), o que não está sendo o caso. Da forma que está, sendo repetido a ação com determinados registros estes são inseridos repetidamente.

    O objetivo que procuro é que esta verificação seja feita de forma associada com o “ID_Cód_DoImóvel” e “CPF”, isto por que, desta forma, o mesmo “CPF” poderá está associado a outros Imóveis (ID_Cód_DoImpovel) e não só a um.

    Esta é minha dificuldade. Se possível, gostaria de um auxílio.

    Desde já, obrigado pela oportunidade.


    Última edição por Mario Fernandes em 3/11/2020, 19:53, editado 1 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1686
    Registrado : 23/01/2018

    [Resolvido]Inserir registros sem repetições direto em outra tabela Empty Re: [Resolvido]Inserir registros sem repetições direto em outra tabela

    Mensagem  crysostomo 26/10/2020, 01:50

    Código:
    Function verificarId()
     
    Dim verifica As Integer
    verifica = DLookup("ID_Cód_DoImóvel", "Tabela1", "   txtId = " & Forms!Formulário1!txtId)

    If Me.txtId = verifica Then
    MsgBox " OPA!!! Esse código já está cadastrado"
        Me.txtId = ""
        Me.txtCpf.SetFocus
        Me.txtId.SetFocus
        End If
    End Function
    Código:
    Function verificaCPF()
    Dim verifica
    verifica = DLookup("CPF", "Tabela1", "  txtCpf = " & Forms!Formulário1!txtCpf)
    If Me.txtCpf = verifica Then
    MsgBox " OPA!!! Esse CPF já está cadastrado"
        Me.txtId = ""
        Me.txtCpf.SetFocus

        End If
    End Function

    Código:
    Private Sub txtId_AfterUpdate()
    verificarId
    End Sub
    Código:
    Private Sub txtId_AfterUpdate()
    verificaCPF
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    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]Inserir registros sem repetições direto em outra tabela Empty Re: [Resolvido]Inserir registros sem repetições direto em outra tabela

    Mensagem  Mario Fernandes 3/11/2020, 19:33

    Obrigado Crysostomo.

    Desculpe-me pela demora em responder. Infelizmente o tempo tem andado curto para dedicação ao aplicativo que construo, mas funcionou perfeitamente.

    Mais uma vez, Muito Obrigado!!!

    Tudo de bom ai!!!!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1686
    Registrado : 23/01/2018

    [Resolvido]Inserir registros sem repetições direto em outra tabela Empty Re: [Resolvido]Inserir registros sem repetições direto em outra tabela

    Mensagem  crysostomo 4/11/2020, 12:52

    Sei como é a correria.
    Vlw pelo retorno.
    Sucesso!!


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Mario Fernandes gosta desta mensagem


    Conteúdo patrocinado

    [Resolvido]Inserir registros sem repetições direto em outra tabela Empty Re: [Resolvido]Inserir registros sem repetições direto em outra tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/5/2021, 04:23