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]Erro ao salvar registro

    avatar
    carolinesilva115
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/12/2019

    [Resolvido]Erro ao salvar registro Empty [Resolvido]Erro ao salvar registro

    Mensagem  carolinesilva115 em 12/2/2020, 15:19

    Olá

    Criei um formulário que informa automaticamente o número da nova operação a ser criada e um botão salvar.

    Acontece que toda ver que abro o formulário e salvo, o primeiro registro da tabela é substituído pela nova operação salva.
    Além disso, qd fecho o form e abro novamente, o novo registro é salvo automaticamente sem eu ter clicado em "salvar".

    Alguém sabe a razão? Segue o código e o arquivo.

    Obg!


    Código:

    'Sub para exibir o nº da próx. operação ao abrir formulário
    Private Sub Form_Load()
    Me.Operação.Value = Nz(DMax("[Operacao]", "[TabOperacoes]")) + 1
    End Sub


    'Sub para salvar registro de nova operação ao clicar no botão Salvar
    Sub SalvarNovaOperacao_Click()
    Dim UltimoReg, Novaop, AnoAtual As Integer

    UltimoReg = DMax("Operacao", "TabOperacoes")
    AnoAtual = Right(Year(Date), 2)


    If Left(UltimoReg, 2) = AnoAtual Then
        Novaop = UltimoReg + 1 'Caso o ano da op. anterior = ano da op. a ser criada
    Else
    Novaop = Right(Year(Date), 2) * 10000 + 1 'Caso o ano da op. anterior for diferente da op. a ser criada
    End If

    Forms!FormCriarOperacao!Operacao! = Novaop 'Exibição do nº da nova op. na tela
    DoCmd.GoToRecord , , acLast
    DoCmd.RunCommand acCmdSaveRecord 'Salvar
    DoCmd.GoToRecord , , acNext 'Ir para a próxima linha da tabela vincula
    Forms!FormCriarOperacao!Operacao! = Novaop + 1 'Exibir nº da próxima operação
    End Sub

    Anexos
    [Resolvido]Erro ao salvar registro AttachmentDatabase6.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 6 vez(es)
    bondan
    bondan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 30/12/2019

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  bondan em 14/2/2020, 19:44

    Olá!

    De início, o arquivo que envio compactado está vazio. Tente compactar novamente e reenviar por gentileza.

    A segunda coisa que podemos ver de cara, é que se usa a conexão normal do Access nos formulários, digo, não chama DAO, ADO, apenas usa a Fonte de registro apontando para a tabela, o access vai gerar uma autonumeração ao "adicionar novo" através de botão wizard ou por comando docmd, e vai também salvar automaticamente cada vez que pular de um campo para outro se colocar campos vinculados usando ofonte de controle.

    Estas ferramentas são nativas justo por ser um banco de dados que pode desenvolver interface de usuário (form), diferente de uma programação VB, Delphi que o executável é separado do banco de dados.

    Para muitos pode ser ruim, mas eu sempre achei bom não se preocupar com numeração, não precisar fazer sempre "mais um campo" de autonumeração, e não precisar fazer botão salvar, exceto se preciso fazer uma rotina específica junto.
    Para mim, mão na roda no desenvolvimento.

    Mas mande novamente o sistema... Alguém pode ajudar.
    avatar
    carolinesilva115
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/12/2019

    [Resolvido]Erro ao salvar registro Empty Erro ao salvar registro

    Mensagem  carolinesilva115 em 16/2/2020, 01:13

    Olá

    Criei um formulário que informa automaticamente o número da nova operação a ser criada e um botão salvar.

    Acontece que toda ver que abro o formulário e salvo, o primeiro registro da tabela é substituído pela nova operação salva.
    Além disso, qd fecho o form e abro novamente, o novo registro é salvo automaticamente sem eu ter clicado em "salvar".

    Alguém sabe a razão? Segue o código e o arquivo.

    Obg!

    Código:

    'Sub para aparecer a próxima operação a ser criada ao abrir o form
    Private Sub Form_Load()
    Me.Operação.Value = Nz(DMax("[Operacao]", "[TabOperacoes]")) + 1
    End Sub

    'Sub para salvar registro de nova operação ao clicar no botão Salvar
    Sub SalvarNovaOperacao_Click()

    Dim UltimoReg, Novaop, AnoAtual As Integer

    UltimoReg = DMax("Operacao", "TabOperacoes")
    AnoAtual = Right(Year(Date), 2)


    If Left(UltimoReg, 2) = AnoAtual Then
        Novaop = UltimoReg + 1 'Caso o ano da op. anterior = ano da op. a ser criada
    Else
    Novaop = Right(Year(Date), 2) * 10000 + 1 'Caso o ano da op. anterior for diferente da op. a ser criada
    End If

    DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
    DoCmd.GoToRecord , , acNewRec 'cria novo registro

    Forms!FormCriarOperacao!Operacao! = Novaop 'Exibição do nº da nova op. na tela
    Forms!FormCriarOperacao!Operacao! = Novaop + 1 'Exibir nº da próxima operação
    End Sub

    Anexos
    [Resolvido]Erro ao salvar registro AttachmentDatabase4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (133 Kb) Baixado 6 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  Marcelo David em 17/2/2020, 12:43

    Bom dia,
    Se o campo Operação for acoplado, ele sempre ao carregar irá criar um registro.

    Nesse caso, seria melhor apagar o código do evento "Ao carregar".

    Vá nas propriedades do campo Operação, aba Dados, propriedade Valor padrão:
    ponha: Nz(DMax("[Operacao]", "[TabOperacoes]")) + 1


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    carolinesilva115
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/12/2019

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  carolinesilva115 em 17/2/2020, 14:03

    Poxa, não deu certo...
    Mas obrigada pela ajuda
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  Marcelo David em 17/2/2020, 14:14

    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
    14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
    15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

    https://www.maximoaccess.com/t48-regras-do-forum

    Bom dia,
    Já há um tópico sobre isso aberto por você.

    Esse tópico será fundido com o primeiro: https://www.maximoaccess.com/t37300-erro-ao-salvar-registro.
    Das próximas vezes por favor, mantenha apenas um tópico aberto para cada assunto, assim evitará ser
    penalizada por descumprimento de regras.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    carolinesilva115
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/12/2019

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  carolinesilva115 em 17/2/2020, 14:17

    Olá,
    desculpa. Eu não sabia que não dava pra apagar a postagem. Se puder, apague minha primeira mensagem, pois o anexo está vazio
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  Marcelo David em 17/2/2020, 14:18

    Poste aqui o arquivo que você tentou com minha sugestão,
    assim vemos o que pode ser feito.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    carolinesilva115
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/12/2019

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  carolinesilva115 em 17/2/2020, 14:31

    é o aquivo zipado Database4
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  Marcelo David em 17/2/2020, 15:26

    Ah sim, na verdade esqueci de um detalhe.
    Na propriedade Valor padrão, ponha assim:

    =Nz(DMax("[Operacao]";"[TabOperacoes]"))+1

    Pois eu havia informado assim (errado):

    Nz(DMax("[Operacao]", "[TabOperacoes]")) + 1

    No VBA usamos como separador de parâmetros a , (vírgula),
    enquanto que direto nas propriedades e expressões do Access usamos o ; (ponto e vírgula).

    mantenha como falei na mensagem 4 e apenas altere a , por ;.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    carolinesilva115
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/12/2019

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  carolinesilva115 em 17/2/2020, 15:45

    Foi o que eu fiz, mas não resolveu... Sad
    avatar
    carolinesilva115
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/12/2019

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  carolinesilva115 em 17/2/2020, 16:24

    Consegui!

    Para evitar que o formulário substitua o registro da 1ª linha, utilizei o código:

    Private Sub Form_Load()
    DoCmd.GoToRecord , , acLast        'vai até ao ultimo registro
    DoCmd.GoToRecord , , acNewRec   'cria novo registro
    End Sub

    Com isso, logo que abre o cursor irá para a linha vazia da tabela, evitando o problema ao clicar no botão salvar.

    Para o 2º problema ( evitar que o access salve o registro automaticamente ao fechar formulário):

    Private Sub Form_Close()
    DoCmd.GoToRecord , , acLast         'vai até ao ultimo registro
    DoCmd.SetWarnings False              '  Desativa mensagem Do access avisando que esta prestes a excluir um registro
    DoCmd.RunCommand acCmdSelectRecord       'deletar
    DoCmd.RunCommand acCmdDeleteRecord
    Refresh
    DoCmd.SetWarnings True
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  Marcelo David em 17/2/2020, 17:09

    Ótimo que resolveu! O Fórum agradece o retorno!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]Erro ao salvar registro Empty Re: [Resolvido]Erro ao salvar registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/2/2020, 11:28