[Resolvido]Guardar registo

Bom dia mestres.
Venho solicitar mais uma vez a vossa ajuda no seguinte, tenho um formulário para guardar registos em três tabelas através do procedimento:

Private Sub cbxRubrica_AfterUpdate()
If Me.cbxRubrica.Value = "Despesas" Then
CurrentDb.Execute "INSERT INTO IntroducaoMovimentos(NúmeroLançamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Despesas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """,""" & Me.Ano & """,""" & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
CurrentDb.Execute "INSERT INTO tbl_Despesas(NumeroLancamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Despesas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """,""" & Me.Ano & """,""" & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
Else
CurrentDb.Execute "INSERT INTO IntroducaoMovimentos(NúmeroLançamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Receitas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """, """ & Me.Ano & """, """ & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
CurrentDb.Execute "INSERT INTO tbl_Receitas(NumeroLancamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Receitas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """, """ & Me.Ano & """, """ & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
End If
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.Ano.SetFocus
Me.cbxRubrica = Null
End Sub

Contudo, ao gravar dá o seguinte erro "o comando ou ação guardar registo não está disponível agora", mas grava os dados na mesma, o que se poderá estar a passar para aparecer esta mensagem? Desde já agradecendo a atenção e disponibilidade, obrigado.
Abraço,
Rui Maciel

Tente:

Private Sub cbxRubrica_AfterUpdate()
On Error Resume Next
If Me.cbxRubrica.Value = "Despesas" Then
CurrentDb.Execute "INSERT INTO IntroducaoMovimentos(NúmeroLançamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Despesas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """,""" & Me.Ano & """,""" & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
CurrentDb.Execute "INSERT INTO tbl_Despesas(NumeroLancamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Despesas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """,""" & Me.Ano & """,""" & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
Else
CurrentDb.Execute "INSERT INTO IntroducaoMovimentos(NúmeroLançamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Receitas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """, """ & Me.Ano & """, """ & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
CurrentDb.Execute "INSERT INTO tbl_Receitas(NumeroLancamento, Ano, Código, ContaLançamento, Descrição, Data, Fornecedor, NúmeroDocumento, Receitas, Observações)" _
& " Values(""" & Me.NúmeroLançamento & """, """ & Me.Ano & """, """ & Me.Código & """, """ & Me.ContaLançamento & """, """ & Me.Descrição & """, """ & Me.Data & """, """ & Me.Fornecedor & """, """ & Me.NúmeroDocumento & """, """ & Me.txtValor & """, """ & Me.Observações & """);"
End If
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Me.Ano.SetFocus
Me.cbxRubrica = Null
End Sub

Viva Leandro
A mensagem já não aparece, obrigado. Contudo, o formulário não limpa.
Abraço,
Rui

Está resolvido?
Abraço Rui!

Viva Leandro, sim já não aparece a mensagem de erro, contudo, o formulário não limpa para um novo registo, isto é, já não limpava com a mensagem, também, não consigo implementar ir para o primeiro e último registo assim como para o anterior e o próximo, o que posso fazer? Esqueci-me de mencionar que o formulário é desacoplado.
Abraço,
Rui

Bom dia Rui;

Se é um formulario desacopolado, retire esta instrução "DoCmd.RunCommand acCmdSaveRecord", que não faz nada ae, o INSERT já manda para as tabelas.

Retire também o "On Error Resume Next", para visualizar onde se encontra o erro se ainda existir.

Bom dia Rui, desculpe a demora em responder, domingo pra mim é bem corrido, por incrível que pareça!

Olha Rui, eu não sei nada de controles desacoplados, eu ia sugerir um: DoCmd.GoToRecord , , acNewRec, mas acredito que não vai funcionar.

JPaulo, indiquei ao Rui colocar o On Error Resume Next porque o mesmo não me disse que havia um número para o erro que acontecia.

Boa noite
Já resolvi o problema, tirei as instruções que o JPaulo mencionou e acrescentei me.meucampo=null para todos os campos ficarem limpos.
Obrigado a ambos pela ajuda foi de grande valia, pois, ajuda a crescer, obrigado.
Abraço,
Rui

Obrigado pelo retorno o forum agradece.