[Resolvido]Excluir registro Back End x Erro 2046 (O comando ou ação não está disponível agora)

Boa noite

Estou fazendo alguns ajustes em minhas rotinas de exclusão de regitros de minha aplicação que é dividida em frontend e backend. Uso o código abaixo para excluir:

Código:


Private Sub ExclReg_Click()
On Error GoTo TrataErro
    If IsNull(Me!Exame) Then Exit Sub
        If MsgBox("Confirma a Exclusão do Exame:" & vbCrLf & vbCrLf & Me!Exame, vbCritical + bYesNo, "Exclusão....") = vbNo Then Exit Sub
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
            DoCmd.ShowAllRecords
            Me.Listagem.Requery
            DoCmd.GoToRecord , , acNewRec
            DoCmd.RunCommand acCmdRefresh
            Me!Exame.SetFocus
Exit_TrataErro:
    Exit Sub
TrataErro:
    MsgBox "Erro ao Excluir Exame.", vbOKOnly + vbCritical, "Erro"
    Exit Sub

End Sub



Esta rotina estava funcionando perfeitamente, mas não sei o que houve, começou a apresentar o erro em anexo a este na linha DoCmd.RunCommand acCmdDeleteRecord.
Alguém tem alguma dica de onde possa estar errando ou o que posso fazer para corrigir.


https://2img.net/r/ihimg/photo/my-images/13/errozf.jpg/

Att. Vinicius

Teste de forma diferente;

Private Sub ExclReg_Click()
On Error GoTo TrataErro
    If IsNull(Me!Exame) Then Exit Sub
        If MsgBox("Confirma a Exclusão do Exame:" & vbCrLf & vbCrLf & Me!Exame, vbCritical + bYesNo, "Exclusão....") = vbNo Then
           Exit Sub
           Else
            DoCmd.SetWarnings False
            'DoCmd.RunCommand acCmdDeleteRecord
            CurrentDb.Execute "Delete * From SuaTabela Where Exame= '" & Me!Exame & "'"
            DoCmd.SetWarnings True
            DoCmd.ShowAllRecords
            Me.Listagem.Requery
            DoCmd.GoToRecord , , acNewRec
            DoCmd.RunCommand acCmdRefresh
            Me!Exame.SetFocus
          End If
Exit_TrataErro:
    Exit Sub
TrataErro:
    MsgBox "Erro ao Excluir Exame.", vbOKOnly + vbCritical, "Erro"
    Exit Sub
End Sub

Bom dia Mestre

A exclusão com o novo teste funcionou perfeitamente....., porém, a inclusão que estava funcionando perfeitamente começou a apresentar erro. Uso o código abaixo:

Código:


On Error GoTo TrataErro
    If IsNull(Me.Convenio) = True Then
        MsgBox "Informe a Descrição para o Convênio!! Preenchimento Obrigatório", vbInformation, "Atenção"
        Me.Convenio.SetFocus
    Else
        DoCmd.RunCommand acCmdSaveRecord
        MsgBox "Registro Gravado com Sucesso!", vbInformation, "Novo Registro"
        DoCmd.ShowAllRecords
        Me.Listagem.Requery
        Me!Convenio.SetFocus
        DoCmd.RunCommand acCmdRefresh
        DoCmd.GoToRecord , , acNewRec
    End If
Exit_TrataErro:
    Exit Sub
TrataErro:
    MsgBox "Erro ao Gravar Convênio.", vbOKOnly + vbCritical, "Erro"
    Exit Sub


O erro ocorre na linha DoCmd.GoToRecord , , acNewRec retornando o erro 2105 - Você não pode ir para o registro especificado......


Tem alguma dica do que está ocorrendo, pois não estou compreendendo realmente.

Obrigado

Att. Vinicius

A sua duvida origem da abertura deste tópico está sana, certo ?

Então tópico Resolvido.

Para a nova duvida, abra novo tópico, mas antes tente mostrar todos os registros antes do acnewrec.

DoCmd.ShowAllRecords
DoCmd.GoToRecord , , acNewRec