[Resolvido]Duplicando os dados

Amigos boa noite,  
Ao clicar em inserir dados , ele esta duplicando , nunca tive isso e agora está acontecendo, ja pesquisei , o por dessa duplicidade e nada de obter sucesso em busca.
se eu fizer um novo registro ele duplica.

Código:


Private Sub cadastrar_Click()
Dim DB      As DAO.Database
Dim sSQL    As String

    Set DB = CurrentDb
        sSQL = "INSERT INTO CadatroDeFuncionarios"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  nome"
        sSQL = sSQL & " ,cpf"
        sSQL = sSQL & " ,senha"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.nome) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.cpf) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.senha) & "'"
        sSQL = sSQL & ")"
        DB.Execute sSQL
        MsgBox "  cadastrado!", vbInformation, "Registrador"
        DoCmd.GoToRecord , , acNewRec  ' essa linha que é para ir para novo registro é que está duplicando
End Sub


Boa tarde
Só vendo o caso

bom dia , vou enviar agora , pois essa modo me o parou os outros.
vou continuando a descobrir o erro .
Mas me dê explicação quando acertar , pois nunca aconteceu isso.

[url=drive.google.com/open?id=1WUu1EuAfDuwpbb2JO5MX_Yast6j3qMm2]drive.google.com/open?id=1WUu1EuAfDuwpbb2JO5MX_Yast6j3qMm2[/url]

tentando consertar aqui , o comando DoCmd.GoToRecord , , acNewRec .

Olá Crysostomo

Vou dar uma olhada

Saludos

Olá Crysostomo

Em anexo

Saludos

Bom dia frannkim, eu não entendo o porque a linha ao ir para novo registro
(DoCmd.GoToRecord , , acNewRec) faz com que ele duplique os dados. pois essa linha que está duplicando preciso da linha, se eu criar um botão com o mesmo código (ja tentei outros) ele vai duplicar também, e ela não funciona ao ir para novo registro. Se esse linhda não ir para "novo registro" o usuario vai ter que fecha e abrir janela para cadastrar um funcionário novo
será porque é campo desvinculado?

dentre muito problemas do codigos não funcionar, resolvi esse problema. ja que a linha DoCmd.GoToRecord , , acNewRec . não estava funcionando  resolvi colocar esse:

Código:

.....
MsgBox"cadastrado!", vbInformation, "Registrador"
        Me.Recalc
        Me.nome = ""
        Me.cpf = ""
        Me.senha =""

Agora eu não entendo o porque a linha DoCmd.GoToRecord , , acNewRec não estava funfando, será porque era campos desvinculado?
Estou até com medo de abrir outros tópico, porque tantos problemas de código que não funciona aqui, sendo que eu já fiz vários projetos e agora eles não funciona, tipo (setFocus , verificação de caixa vazia e outros deletar item na listBox.....)

Crysostomo

Verificou o arquivo que enviei? Tudo está funcionando bem, a linha DoCmd.GoToRecord , , acNewRec não está duplicando nada, é o botão Cadastrar que você colocou no formulário. O único que eu fiz, foi desvincular os campos de texto. Quando os campos estão vinculados e você entra dados em qualquer um deles, se registra automáticamente e quando você clica no botão "Cadastrar"que colocou no formulário, também se registra, criando um registro duplo.

Form (original)


Form (modificado)


Saludos

Boa tarde meu amigo Franklin, compreendo tinha desvinculado eles mas depois voltei (ctrl+z) e não me dei conta, Agora porque oa linha de ir para novo registro não está funcionando , , tive que colocar os campos para ficar em branco depois de cadastrar (Mensagem nº

Obrigado pela atenção

Valeu Crysostomo!

Mais um detalhe, tenta assim:

Código:

Private Sub cadastrar_Click()
Dim DB      As DAO.Database
Dim sSQL    As String

    Set DB = CurrentDb
        sSQL = "INSERT INTO CadatroDeFuncionarios"
        'CAMPOS----------------------------------------
        sSQL = sSQL & "("
        sSQL = sSQL & "  nome"
        sSQL = sSQL & " ,cpf"
        sSQL = sSQL & " ,senha"
        sSQL = sSQL & ")"
        'VALORES -------------------------------------
        sSQL = sSQL & " VALUES"
        sSQL = sSQL & "("
        sSQL = sSQL & "  '" & Trim(Me.nome) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.cpf) & "'"
        sSQL = sSQL & " ,'" & Trim(Me.senha) & "'"
        sSQL = sSQL & ")"
        DB.Execute sSQL
        MsgBox "  cadastrado!", vbInformation, "Registrador"
        'DoCmd.GoToRecord , , acNewRec  ' essa linha que é para ir para novo registro é que está duplicando
        Call LimpaTudo
End Sub

Private Sub LimpaTudo()
    Me.nome = Null
    Me.cpf = Null
    Me.senha = Null
    DoCmd.GoToRecord , , acNewRec
End Sub

Saludos

Obg Franklin