MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    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 em 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
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1449
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    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 em 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
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1449
    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 em 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


      Data/hora atual: 25/11/2020, 03:02