[Resolvido]Não consigo ir para Novo Registro em Formulário

Bom dia Srs.

Resolvi corrigir o erro da Numeração Automática usando o Recordset nos botões salvar/fechar...

porém tenho um problema

ao digitar o registro.... eu consigo salvar normal.

porém quando clico no botão novo não consigo ir para um novo registro.

código do botão com falhas

Private Sub btn_novo_Click()
On Error GoTo Trata_Err

DoCmd.GoToRecord , , acNewRec

Exit Sub
Trata_Err:
Call ErrNovo
End Sub

Código do botão que salva

Código:

Private Sub btn_salvar_Click()
On Error GoTo Trata_Err
Dim rs As Recordset

    ' campos requeridos
    If IsNull(Me.descricao) = True Then
        MsgBox "O campo Descrição é requerido.", vbCritical, "Sistema"
        Me.descricao.SetFocus
        Exit Sub
    ElseIf IsNull(Me.corpoemail) = True Then
        MsgBox "O campo Mensagem é requerido.", vbCritical, "Sistema"
        Me.corpoemail.SetFocus
        Exit Sub
    Else
    Set rs = CurrentDb.OpenRecordset("TBL_CORPOEMAIL")
    With rs
        rs.AddNew
       
        ' ir para ultimo registro
        rs!id_corpoemail = Nz(DMax("[ID_CORPOEMAIL]", "[TBL_CORPOEMAIL]"), 0) + 1
        Me.id_corpoemail.Value = rs!id_corpoemail
       
        ' agregar novos valores nos campos
        rs!descricao = Me.descricao
        rs!corpoemail = Me.corpoemail
       
        ' registar histórico
        rs!usuariologado = Forms!FrmMain!usuariologado
        rs!dhcadastro = Now
        rs.Update
    End With
    rs.Close
    Set rs = Nothing
   
    ' ativar/desativar botões
    Me.btn_novo.Enabled = True
    Me.btn_salvar.Enabled = False
    Me.btn_desfazer.Enabled = False
    End If
   
Exit Sub
Trata_Err:
Call ErrSalvar
End Sub[b][/b]

hahahahaha

estava errando mesmo ~.~

Private Sub btn_novo_Click()
On Error GoTo Trata_Err

Form.Undo < = precisei usar isso pra ele não dá erros de chave primária ^^
DoCmd.GoToRecord , , acNewRec

Exit Sub
Trata_Err:
Call ErrNovo
End Sub

Eu testei com Numeração Automática e com apenas o campo Número.

Ao salvar o registro ao mesmo tempo em duas máquinas com Access usado em rede, ele dá erro diz que a chave primária já está sendo usada, acho que é 3022 não gravei o código do erro

existe algum tipo de tratamento pra isso ?

Anexe seu projeto para analise.

Bom dia Damasceno, perdão pela demora, ontem estava me esquivando dos problemas hahaha

Segue em anexo, o que acontece é o Seguinte, e eu testei também em um Programa ERP que tenho aqui.

Abrir o mesmo formulário em duas máquinas, digitar os mesmos dados, e clicar em Salvar ao mesmo tempo em ambas as máquinas, no programa ERP ele tem um tratamento desse erro, no caso do Access ele não deixa você sair...

=/

sei que isso é quase impossível de acontecer, mas as chaves primarias do meu banco são inseridas manualmente com um contador de registros.

optei fazer assim pra não ter aquele velho problema de pular os IDs em Numeração Automática...

Tem alguma macro que faz algum ajuste em algum dos campos?, pode ser quando você vai salvar ele altera a chave e retorna esse erro.

o problema já foi resolvido, a dúvida não é mais o novo registro.

a dúvida é quando duas pessoas salvam o mesmo registro ao mesmo tempo em qualquer banco de dados, ele dá erro.

mas tá tranquilo eu só queria saber se podia fazer um tratamento desse erro.

vou dá como resolvido.

acredito que seja impossível tal feito

Você misturou formulário acoplado com o uso das operações via recordset.

O ID estava sendo salvo duas vezes, por isso os constantes avisos que o ID já estava em uso.

Código:

Private Sub btn_salvar_Click()
On Error GoTo Trata_Err

    ' campos requeridos
    If IsNull(Me.departamento) = True Then
        ...
    Else
    
tentaNovamente:
        On Error Resume Next
        Me.id_departamento.Value = Nz(DMax("[ID_DEPARTAMENTO]", "[TBL_USUARIOS_DEPARTAMENTOS]"), 0) + 1
        DoCmd.RunCommand acCmdSaveRecord
        If Err.Number <> 0 Then Call Err.Clear: GoTo tentaNovamente
        On Error GoTo Trata_Err
    
        ' colocar foco em outro botão
        Me.btn_fechar.SetFocus
        
        ...

End Sub