[Resolvido]Erro ao salvar registro

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



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.

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



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

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

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.

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

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

é o aquivo zipado Database4

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

Foi o que eu fiz, mas não resolveu...

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

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