Erro ao salvar em Form e Subform (salvando automaticamente)

Bom dia meus caros,

Se alguém puder me ajudar, agradeço. Aprendi muito nesse Fórum e sou auto-didata em Access, e preciso trocar esse feedback com vocês para que possa otimizar meu trabalho.

Tenho o código abaixo num botão Salvar, que está me dando trabalho porque existe dois subforms que ora ou outra estão salvando automaticamente os dados. Podem me dizer como posso otimizar esse código para que ao editar, e salvar novamente os subforms não dêem a mensagem: "O comando ou ação 'SalvarRegistro' não está disponível agora.

Existe algum "if else" que possa colocar neste código para forçar a atualização dos campos do subform "sub_classificacao_noticias (Genero, Natureza, Assunto, Fonte, Replicado)" e outro "sub_resumo (resumo)" não mostrarem essa mensagem e editarem o campo? Lembrando que esse último sub_resumo precisa salvar o id_noticia da tabela "noticias" na tabela "resumo" no campo relacionado com mesmo nome, para que seja exibido no form principal esses dados, já vinculados por id_noticia.

Código:


Private Sub Cmd_Salvar_Click()
On Error GoTo Err_Cmd_Salvar_Click

    DoCmd.RunCommand acCmdSaveRecord
    Me.AllowEdits = False
    
    Me.publicacao.Enabled = False
    Me.publicacao_2.Enabled = False
    Me.titulo.Enabled = False
    Me.Editoria.Enabled = False
    Me.categoria.Enabled = False
    Me.veiculo.Enabled = False
    Me.cliente.Enabled = False
    
    Forms!noticias!sub_classificacao_noticias.Form!Genero.Enabled = False
    Forms!noticias!sub_classificacao_noticias.Form!Natureza.Enabled = False
    Forms!noticias!sub_classificacao_noticias.Form!Assunto.Enabled = False
    Forms!noticias!sub_classificacao_noticias.Form!replicado.Enabled = False
    Forms!noticias!sub_classificacao_noticias.Form!fonte.Enabled = False
    Forms!noticias!sub_resumo.Form!fonte.resumo = False
    Me.sub_classificacao_noticias.Enabled = False
    Me.sub_resumo.Enabled = False
    
    Me.Cmd_Cancelar.Enabled = False
    Me.Cmd_Salvar.Enabled = False
    Me.Cmd_Novo.Enabled = True
    Me.Cmd_Duplicar.Enabled = True
    Me.Cmd_Alterar.Enabled = True
    Me.Cmd_Excluir.Enabled = True
    Me.Primeiro.Enabled = True
    Me.Ultimo.Enabled = True
    Me.Anterior.Enabled = True
    Me.Proximo.Enabled = True
    
Exit_Cmd_Salvar_Click:
    Exit Sub

Err_Cmd_Salvar_Click:
    MsgBox Err.Description
    Resume Exit_Cmd_Salvar_Click
    
End Sub


olá!

tente dar uma atualizada nos subs primeiro antes de salvar, algo assim

Forms!noticias!sub_classificacao_noticias.Requery
Forms!noticias!sub_resumo.Requery

Código:

    Private Sub Cmd_Salvar_Click()
    On Error GoTo Err_Cmd_Salvar_Click
   
        Forms!noticias!sub_classificacao_noticias.Requery
        Forms!noticias!sub_resumo.Requery

        DoCmd.RunCommand acCmdSaveRecord
        Me.AllowEdits = False
       
        Me.publicacao.Enabled = False
        Me.publicacao_2.Enabled = False
        Me.titulo.Enabled = False
        Me.Editoria.Enabled = False
        Me.categoria.Enabled = False
        Me.veiculo.Enabled = False
        Me.Cliente.Enabled = False
       

        'sub_classificacao_noticias
        'noticias
        'sub_resumo
       
       
        Forms!noticias!sub_classificacao_noticias.Form!Genero.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!Natureza.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!ASSUNTO.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!replicado.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!fonte.Enabled = False
        Forms!noticias!sub_resumo.Form!fonte.resumo = False
        Me.sub_classificacao_noticias.Enabled = False
        Me.sub_resumo.Enabled = False
       
        Me.Cmd_Cancelar.Enabled = False
        Me.Cmd_Salvar.Enabled = False
        Me.Cmd_Novo.Enabled = True
        Me.Cmd_Duplicar.Enabled = True
        Me.Cmd_Alterar.Enabled = True
        Me.Cmd_Excluir.Enabled = True
        Me.Primeiro.Enabled = True
        Me.Ultimo.Enabled = True
        Me.Anterior.Enabled = True
        Me.Proximo.Enabled = True
       
Exit_Cmd_Salvar_Click:
        Exit Sub

Err_Cmd_Salvar_Click:
        MsgBox err.Description
        Resume Exit_Cmd_Salvar_Click
       
    End Sub


Obrigado a dica Nois, mas o sub_classificacao não funcionou com o requery, ao contrário, ele dá a mesma mensagem e limpa os campos preenchidos.

Você ou Alguém mais tem mais outra ideia?

Olhem o print no link: http://ap.imagensbrasil.org/image/pQ0kPm

Experimenta mover o Foco para outro Campo para ver ser Resolve...  <--Achismo ta, nao tenho certeza se ira funcionar

A outra opção e Ignorar o Erro la no Tratamento de erro... pois ao que parece o registro ja estaria salvo...

Pode me dar um exemplo em vba Fabio? N entendo muito de programação.

Para Mover o Foco para outro campo:

Private Sub Cmd_Salvar_Click()
    On Error GoTo Err_Cmd_Salvar_Click
   
        Forms!noticias!sub_classificacao_noticias.Requery
        Forms!noticias!sub_resumo.Requery
           Me.publicacao.Setfocus
        DoCmd.RunCommand acCmdSaveRecord
        Me.AllowEdits = False
       
        Me.publicacao.Enabled = False
        Me.publicacao_2.Enabled = False
        Me.titulo.Enabled = False
        Me.Editoria.Enabled = False
        Me.categoria.Enabled = False
        Me.veiculo.Enabled = False
        Me.Cliente.Enabled = False
       

        'sub_classificacao_noticias
        'noticias
        'sub_resumo
       
       
        Forms!noticias!sub_classificacao_noticias.Form!Genero.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!Natureza.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!ASSUNTO.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!replicado.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!fonte.Enabled = False
        Forms!noticias!sub_resumo.Form!fonte.resumo = False
        Me.sub_classificacao_noticias.Enabled = False
        Me.sub_resumo.Enabled = False
       
        Me.Cmd_Cancelar.Enabled = False
        Me.Cmd_Salvar.Enabled = False
        Me.Cmd_Novo.Enabled = True
        Me.Cmd_Duplicar.Enabled = True
        Me.Cmd_Alterar.Enabled = True
        Me.Cmd_Excluir.Enabled = True
        Me.Primeiro.Enabled = True
        Me.Ultimo.Enabled = True
        Me.Anterior.Enabled = True
        Me.Proximo.Enabled = True
       
Exit_Cmd_Salvar_Click:
        Exit Sub

Err_Cmd_Salvar_Click:
        MsgBox err.Description
        Resume Exit_Cmd_Salvar_Click
       
    End Sub








Ignorando o Erro






Private Sub Cmd_Salvar_Click()
    On Error GoTo Err_Cmd_Salvar_Click
   
        Forms!noticias!sub_classificacao_noticias.Requery
        Forms!noticias!sub_resumo.Requery
        DoCmd.RunCommand acCmdSaveRecord
        Me.AllowEdits = False
       
        Me.publicacao.Enabled = False
        Me.publicacao_2.Enabled = False
        Me.titulo.Enabled = False
        Me.Editoria.Enabled = False
        Me.categoria.Enabled = False
        Me.veiculo.Enabled = False
        Me.Cliente.Enabled = False
       

        'sub_classificacao_noticias
        'noticias
        'sub_resumo
       
       
        Forms!noticias!sub_classificacao_noticias.Form!Genero.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!Natureza.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!ASSUNTO.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!replicado.Enabled = False
        Forms!noticias!sub_classificacao_noticias.Form!fonte.Enabled = False
        Forms!noticias!sub_resumo.Form!fonte.resumo = False
        Me.sub_classificacao_noticias.Enabled = False
        Me.sub_resumo.Enabled = False
       
        Me.Cmd_Cancelar.Enabled = False
        Me.Cmd_Salvar.Enabled = False
        Me.Cmd_Novo.Enabled = True
        Me.Cmd_Duplicar.Enabled = True
        Me.Cmd_Alterar.Enabled = True
        Me.Cmd_Excluir.Enabled = True
        Me.Primeiro.Enabled = True
        Me.Ultimo.Enabled = True
        Me.Anterior.Enabled = True
        Me.Proximo.Enabled = True
       
Exit_Cmd_Salvar_Click:
        Exit Sub

Err_Cmd_Salvar_Click:
'-----------------------Ignorando o erro 2046 -------------------'
If err.Number = 2046 Or err.Number = 0 Then
        err.Number = 0
        Exit Sub
'---------------------Fim dos erros a serem ignoados---------'
Else


MsgBox "Nº Erro: " & err.Number & " - " & err.Description, vbInformation
        Exit Sub
End If
'Fim Tratamento de Erro 
   
 End Sub

Atenção!!!

Se For utilizar o comando onde ignora o erro, Verifique com atenção se os dados estão realmente sendo salvos, pois estamos dizendo para o sistema que: Quando ocorrer o erro 2046 e pra ignorar e continuar a fazer as Instruções do Código... (Próxima linha)   <==== Atenção!!!