MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Duplicando os dados

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Duplicando os dados Empty [Resolvido]Duplicando os dados

    Mensagem  crysostomo em 24/7/2019, 01:53

    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


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7395
    Registrado : 05/11/2009

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  Alexandre Neves em 24/7/2019, 12:45

    Boa tarde
    Só vendo o caso


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Duplicando os dados Empty Duplicando os dados

    Mensagem  crysostomo em 24/7/2019, 12:54

    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]


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

    Respeito às Regras 75%

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

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  crysostomo em 24/7/2019, 14:18

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


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 296
    Registrado : 25/02/2016

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  FranklinJSP em 24/7/2019, 21:10

    Olá Crysostomo

    Vou dar uma olhada

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 296
    Registrado : 25/02/2016

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  FranklinJSP em 25/7/2019, 04:08

    Olá Crysostomo

    Em anexo

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  crysostomo em 25/7/2019, 12:25

    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?


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

    Respeito às Regras 75%

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

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  crysostomo em 25/7/2019, 12:57

    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.....)


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 296
    Registrado : 25/02/2016

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  FranklinJSP em 25/7/2019, 16:06

    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)
    [Resolvido]Duplicando os dados Seu11

    Form (modificado)
    [Resolvido]Duplicando os dados Meu12

    Saludos


    Última edição por FranklinJSP em 25/7/2019, 16:18, editado 2 vez(es) (Razão : Telas)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  crysostomo em 25/7/2019, 16:58

    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ºCool

    Obrigado pela atenção


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 296
    Registrado : 25/02/2016

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  FranklinJSP em 25/7/2019, 17:50

    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


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 75%

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

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  crysostomo em 26/7/2019, 04:02

    Obg Franklin


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

    Conteúdo patrocinado

    [Resolvido]Duplicando os dados Empty Re: [Resolvido]Duplicando os dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 12/11/2019, 19:45