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

5 participantes

    Não Permitir Gravar Cpf duplicado

    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    Não Permitir Gravar Cpf duplicado Marcel11
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    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 : 31
    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
    avatar
    crovador
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Não Permitir Gravar Cpf duplicado Empty Resolvido

    Mensagem  crovador 24/6/2021, 01:22

    Obrigado amigos....
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3743
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. 24/6/2021, 02:12

    Veja no link abaixo, a maneira correta de dar o tópico por resolvido
    https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

    Aguardamos sua ação...


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    ribeiroguaruja
    ribeiroguaruja
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 30/05/2015

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

    Mensagem  ribeiroguaruja 24/6/2021, 14:13

    bom dia ...

    lá na estrutura da tabela, defina que o campo não pode ter valores duplicados

      Data/hora atual: 1/2/2023, 05:41