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

    Não Permitir Gravar Cpf duplicado

    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    Não Permitir Gravar Cpf duplicado Empty Não Permitir Gravar Cpf duplicado

    Mensagem  crovador 19/1/2021, 11:56

    Olá amigos, eu novamente pedindo socorro, kkk ...
    tenho o seguinte código abaixo e não que que grave o mesmo cpf que já existe no banco de dados.
    Alguma idéia pessoal?

    Private Sub btnGravar_Click()

    If Me.txtNome = Empty Then
    MsgBox "Digite O Nome Do Cliente.", vbExclamation, "Atenção"
    Me.txtNome.SetFocus
    Exit Sub
    End If

    If Inc = True Then
    rsOrçDetum.AddNew
    Else

    rsOrçGradum.Close
    SqlOrçGradum = "DELETE FROM tbOrçamento_Grade1 WHERE Nro_Orçamento = " & NroOrçum 'Apaga os registros antigos
    rsOrçGradum.Open SqlOrçGradum, cn, adOpenKeyset, adLockOptimistic 'pra incluir os dados atualizados
    SqlOrçGradum = "SELECT * FROM tbOrçamento_Grade1"
    rsOrçGradum.Open SqlOrçGradum, cn, adOpenKeyset, adLockOptimistic

    End If

    rsOrçDetum(1) = Date
    rsOrçDetum(2) = Me.txtNome
    rsOrçDetum(3) = Me.txtObservaçoes
    rsOrçDetum(4) = Me.txtTelefone
    rsOrçDetum(5) = Me.txt_contato
    rsOrçDetum(6) = Me.txt_email
    rsOrçDetum(7) = Me.txt_endereço
    rsOrçDetum(Cool = Me.txt_cnpj_cpf
    rsOrçDetum(9) = Me.txt_ie
    rsOrçDetum(10) = Me.TXT_NUMERO
    rsOrçDetum(11) = Me.txt_bairro
    rsOrçDetum(12) = Me.txt_cep
    rsOrçDetum(13) = Me.txt_cidade
    rsOrçDetum(14) = Me.txt_uf

    rsOrçDetum.Update

    For i = 1 To Me.lstvOrç.ListItems.Count
    With Me.lstvOrç
    rsOrçGradum.AddNew
    rsOrçGradum(0) = NroOrçum
    rsOrçGradum(1) = .ListItems(i)
    rsOrçGradum(2) = .ListItems(i).ListSubItems(1)

    rsOrçGradum.Update
    End With
    Next i
    If Inc = True Then
    rsNroum.AddNew
    rsNroum(0) = NroOrçum
    rsNroum.Update
    End If

    LimpaControles
    rsNroum.MoveLast
    NroOrçum = rsNroum(0).Value + 1
    Me.stbOrç.Panels(1) = "Nro Orç.: " & NroOrçum
    iCancel = 0
    MsgBox "Registro Salvo Com Sucesso.", vbInformation, "Clientes"
    Me.btnLer.Enabled = True

    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3326
    Registrado : 21/04/2011

    Não Permitir Gravar Cpf duplicado Empty Re: Não Permitir Gravar Cpf duplicado

    Mensagem  Marcelo David 19/1/2021, 12:29

    Esse assunto já está mais que "batido" aqui no fórum. Por gentileza, realize uma busca que encontrará diversos exemplos.

    Veja como se buscar no fórum:

    https://www.maximoaccess.com/t1115-busca-no-forum-search


    .................................................................................
    Marcelo David | Não Permitir Gravar Cpf duplicado LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev

    crovador gosta desta mensagem

    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    Não Permitir Gravar Cpf duplicado Empty Não Permitir Gravar Cpf duplicado

    Mensagem  crovador 19/1/2021, 12:56

    Bom dia marcelo, já rodei quase todo fórum e sites buscando o que preciso. Tem muitas opções porém sou um pouco leigo e não achei algum para adaptar ao que preciso.

    meus formulários e em excel com banco no access.
    Se poder ajudar-me ficaria grato amigo..

    Deus abençoe.
    avatar
    crovador
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 03/04/2018

    Não Permitir Gravar Cpf duplicado Empty Erro em tempo de Execução...

    Mensagem  crovador 22/1/2021, 02:04

    Caros amigos, tentei esse código mas esta dando erro..
    onde estou errando...alguém me ajude por favor!!!

    erro em tempo de execução '3705'
    operação não permitida quando o objeto está aberto.




    Private Sub txt_cnpj_cpf_afterupdate()

    'On Error Resume Next

    rsOrçDetum.Open "SELECT * FROM tbOrç_Detalhe1", Db, 15, 15

    Do Until rsOrçDetum.EOF
    If rsOrçDetum(Cool = "" & Me.txt_cnpj_cpf.Text Then

    MsgBox "Este " & Me.txt_cnpj_cpf.Text & " É Existente!", vbInformation, "Aviso!"

    rsOrçDetum.Close

    txt_cnpj_cpf = Empty
    Exit Sub
    End If

    rsOrçDetum.MoveNext
    Loop
    rsOrçDetum.Close

    End Sub
    avatar
    glailson
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 30/11/2010

    Não Permitir Gravar Cpf duplicado Empty Re: Não Permitir Gravar Cpf duplicado

    Mensagem  glailson 22/1/2021, 13:51

    Coloque o código abaixo, no evento após atualizar do campo de CPF... na minha tabela, o CPF é Tipo texto.

    Private Sub CGC_CPF_AfterUpdate()

    Dim NomeHospede
    Dim CPF

    NomeHospede = DLookup("Nome", "TblHospede", "CGC_CPF ='" & Me!CGC_CPF & "'")
    CPF = DLookup("CGC_CPF", "TblHospede", "CGC_CPF ='" & Me!CGC_CPF & "'")

    Me.RecordsetClone.FindFirst "CGC_CPF = '" & Me!CGC_CPF & "'"
    If Not Me.RecordsetClone.NoMatch Then

    MsgBox ("Este Hóspede já está Cadastrado:" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & NomeHospede), vbInformation, "Controle Hoteleiro"

    DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    Me.Bookmark = Me.RecordsetClone.Bookmark


    End If

    End Sub


    Qualquer coisa, entre em contato: 62 99138-0784

      Data/hora atual: 13/6/2021, 00:14