[Resolvido]Tratamento Erro Exemplo JPaulo

Boa tarde Amigos

Onde está o erro ?

Obrigado




Private Sub Comando65_Click()

Dim Msg As String
On Error GoTo 1

Dim BCO As Database

Dim Lançamentos As Recordset
Dim LançamentosDatados As Recordset

Set BCO = CurrentDb()

Set Lançamentos = BCO.OpenRecordset("tblmovimento")
Set LançamentosDatados = BCO.OpenRecordset("tblmovimentoData")

If Me.txtData <= Date Then

Lançamentos.AddNew
   
Lançamentos![IdCaixa] = Me.IdCaixa
Lançamentos![DataMovimento] = Me.txtData
Lançamentos![Historico] = Me.txtHistorico
Lançamentos![Rubrica] = Me.Rubrica
Lançamentos![Entidade] = Me.Entidade
Lançamentos![Doc] = Me.TxtDoc
Lançamentos![ValorMovimento] = ValorMovimento
Lançamentos![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
Lançamentos![ValorDebito] = ValorMovimento
Lançamentos![ValorCredito] = 0
           ElseIf Me.TipoMov = "C" Then
Lançamentos![ValorCredito] = ValorMovimento
Lançamentos![ValorDebito] = 0
           End If
End If

If Me.txtData > Date Then
MsgBox "Este Movimento Vai Ficar Pendente ! " & vbCrLf & "          Até Dia " & txtData & " ", vbInformation, "Aviso"

LançamentosDatados.AddNew

LançamentosDatados![IdCaixa] = Me.IdCaixa
LançamentosDatados![DataMovimento] = Me.txtData
LançamentosDatados![Historico] = Me.txtHistorico
LançamentosDatados![Rubrica] = Me.Rubrica
LançamentosDatados![Entidade] = Me.Entidade
LançamentosDatados![Doc] = Me.TxtDoc
LançamentosDatados![ValorMovimento] = ValorMovimento
LançamentosDatados![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
LançamentosDatados![ValorDebito] = ValorMovimento
LançamentosDatados![ValorCredito] = 0
           ElseIf Me.TipoMov = "C" Then
LançamentosDatados![ValorCredito] = ValorMovimento
LançamentosDatados![ValorDebito] = 0
           End If

End If

ValorMovimento = Format(ValorMovimento, "#,##0.00 €")

If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & txtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor  " & ValorMovimento & " ?", vbYesNo, "Gestão Bancária") = vbYes Then

Lançamentos.Update
LançamentosDatados.Update

Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))

Else
MsgBox "Registo do Lançamento Cancelado", vbInformation, "Gestão Bancária"

Lançamentos.CancelUpdate
LançamentosDatados.CancelUpdate


End If

Lançamentos.Close
LançamentosDatados.Close

Call fncMontaSaldo
Call Form_Current

Me.Comando65.Visible = True
Me.Comando96.Visible = False
Me.Comando97.Visible = False
Me.IdCaixa = Null
Me.txtHistorico = Null
Me.Rubrica = Null
Me.Entidade = Null
Me.ValorMovimento = Null
Me.TxtDoc = Null
Me.txtData = Forms.menu.DataMenu
Me.txtData.SetFocus
Me.txtData.SelStart = 0

Exit_1:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Exit Sub

1 A:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Msg = "Erro # " & Str(Err.Number) & " Gerado na " & Err.Source _
       & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
       & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
   MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.Helpfile, Err.HelpContext
   Resume Exit_1


End Sub

Up

Código:

If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & txtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor  " & ValorMovimento & " ?", vbYesNo, "Gestão Bancária") = vbYes Then

Lançamentos.Update
LançamentosDatados.Update

Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))

Else
MsgBox "Registo do Lançamento Cancelado", vbInformation, "Gestão Bancária"

Lançamentos.Close: Set Lançamentos = Nothing
LançamentosDatados.Close: Set LançamentosDatados = Nothing
Exit Sub
End If


Bom dia JPaulo

Dá exatamente o mesmo erro

Obrigado

Então faça um Break nas primeiras linhas do código e com a tecla F8 acompanhe para ver qual linha está a provocar o erro.

Como é isso feito JPaulo

Boa tarde
Se a data for superior ao dia actual, ele não cria registo na tabela lançamentos mas manda actualizar com update

Olá Alexandre

Se a data for superior a data atual, a BD informa.

MsgBox "Este Movimento Vai Ficar Pendente ! " & vbCrLf & "          Até Dia " & txtData & " ", vbInformation, "Aviso"

Mas logo a seguir dá logo o erro da imagem da 1ª mensagem.

Obrigado

Olá Assis
Se a data for superior à de hoje, o recordset Lançamentos não é aberto, mas à frente é chamado Lançamentos.Update. Ou seja, é pedido para actualizar um recordset que não foi aberto. Será aí o erro

Alexandre
Mesmo lançando com o dia de hoje o erro acontece igual

Amigos

Assim funfa direitinho mas só dá para Lançamentos com data igual ou inferior a data atual

Mas como lançar os movimentos com data superior a data atual para serem registados na tabela "tblMovimentoDatados"

Obrigado

'---------------------------------------------
Private Sub Comando65_Click()

Dim Msg As String
On Error GoTo 1

Dim BCO As Database

Dim Lançamentos As Recordset

Set BCO = CurrentDb()

Set Lançamentos = BCO.OpenRecordset("tblmovimento")


If Me.txtData <= Date Then

Lançamentos.AddNew
   
Lançamentos![IdCaixa] = Me.IdCaixa
Lançamentos![DataMovimento] = Me.txtData
Lançamentos![Historico] = Me.txtHistorico
Lançamentos![Rubrica] = Me.Rubrica
Lançamentos![Entidade] = Me.Entidade
Lançamentos![Doc] = Me.TxtDoc
Lançamentos![ValorMovimento] = ValorMovimento
Lançamentos![Ordenar] = txtData + Time
   If Me.TipoMov = "D" Then
Lançamentos![ValorDebito] = ValorMovimento
Lançamentos![ValorCredito] = 0
           ElseIf Me.TipoMov = "C" Then
Lançamentos![ValorCredito] = ValorMovimento
Lançamentos![ValorDebito] = 0
           End If
 

End If


If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & txtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor  " & Format(ValorMovimento, "#,##0.00 €") & " ?", vbYesNo, "Gestão Bancária") = vbYes Then
Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))

Lançamentos.Update

Else
MsgBox "Registo do Lançamento Cancelado", vbInformation, "Gestão Bancária"
Call Comando68_Click
Lançamentos.Close: Set Lançamentos = Nothing

Exit Sub
End If


Me.Comando65.Visible = True
Me.Comando96.Visible = False
Me.Comando97.Visible = False
Me.txtData = Forms.menu.DataMenu
Me.txtData.SetFocus
Me.txtData.SelStart = 0
Me.Lista.Requery
Call Comando68_Click
Call fncMontaSaldo
Call Form_Current


Exit_1:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Exit Sub

1 A:
   DoCmd.Hourglass False
   DoCmd.Echo True
   Msg = "Erro # " & Str(Err.Number) & " Gerado na " & Err.Source _
       & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
       & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
   MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.Helpfile, Err.HelpContext
   Resume Exit_1

End Sub

E se for assim?

Código:

Private Sub Comando65_Click()

Dim Msg As String
On Error GoTo 1

Dim BCO As Database

Dim Lançamentos As Recordset
Dim LançamentosDatados As Recordset

Set BCO = CurrentDb()

Set Lançamentos = BCO.OpenRecordset("tblmovimento")
Set LançamentosDatados = BCO.OpenRecordset("tblmovimentoData")

If Me.txtData <= Date Then

Lançamentos.AddNew
 
Lançamentos![IdCaixa] = Me.IdCaixa
Lançamentos![DataMovimento] = Me.txtData
Lançamentos![Historico] = Me.txtHistorico
Lançamentos![Rubrica] = Me.Rubrica
Lançamentos![Entidade] = Me.Entidade
Lançamentos![Doc] = Me.TxtDoc
Lançamentos![ValorMovimento] = ValorMovimento
Lançamentos![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
Lançamentos![ValorDebito] = ValorMovimento
Lançamentos![ValorCredito] = 0
          ElseIf Me.TipoMov = "C" Then
Lançamentos![ValorCredito] = ValorMovimento
Lançamentos![ValorDebito] = 0
          End If
Lançamentos.Update
End If

If Me.txtData > Date Then
MsgBox "Este Movimento Vai Ficar Pendente ! " & vbCrLf & "          Até Dia " & txtData & " ", vbInformation, "Aviso"

LançamentosDatados.AddNew

LançamentosDatados![IdCaixa] = Me.IdCaixa
LançamentosDatados![DataMovimento] = Me.txtData
LançamentosDatados![Historico] = Me.txtHistorico
LançamentosDatados![Rubrica] = Me.Rubrica
LançamentosDatados![Entidade] = Me.Entidade
LançamentosDatados![Doc] = Me.TxtDoc
LançamentosDatados![ValorMovimento] = ValorMovimento
LançamentosDatados![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
LançamentosDatados![ValorDebito] = ValorMovimento
LançamentosDatados![ValorCredito] = 0
          ElseIf Me.TipoMov = "C" Then
LançamentosDatados![ValorCredito] = ValorMovimento
LançamentosDatados![ValorDebito] = 0
          End If

End If

ValorMovimento = Format(ValorMovimento, "#,##0.00 €")

If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & txtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor  " & ValorMovimento & " ?", vbYesNo, "Gestão Bancária") = vbYes Then

LançamentosDatados.Update

Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))

Else
MsgBox "Registo do Lançamento Cancelado", vbInformation, "Gestão Bancária"

Lançamentos.CancelUpdate
LançamentosDatados.CancelUpdate


End If

Lançamentos.Close
LançamentosDatados.Close

Call fncMontaSaldo
Call Form_Current

Me.Comando65.Visible = True
Me.Comando96.Visible = False
Me.Comando97.Visible = False
Me.IdCaixa = Null
Me.txtHistorico = Null
Me.Rubrica = Null
Me.Entidade = Null
Me.ValorMovimento = Null
Me.TxtDoc = Null
Me.txtData = Forms.menu.DataMenu
Me.txtData.SetFocus
Me.txtData.SelStart = 0

Exit_1:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Exit Sub

1 A:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Msg = "Erro # " & Str(Err.Number) & " Gerado na " & Err.Source _
      & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
      & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
  MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.HelpFile, Err.HelpContext
  Resume Exit_1


End Sub



Alexandre

Igual ..... continua a mesma Msg.

Obrigado

PS: Se tirar o tratamento de erro do exemplo do JPaulo, e colocar o;
"On Error Resume Next" funciona direito.


Mas se tirar o "On Error Resume Next", quando mandar gravar não Grava


Obrigado

coloca o ponteiro na 1ª linha de execução
prime F9
executa o procedimento, premindo o botão do formulário
verifica a instrução que cria o erro

Alexandre

Dado como a BD está feita, em que todos os forms são de sobreposição e Modal, e este dos lançamentos tem que ter outros abertos para ele poder abrir, não consigo realizar aquilo que me pediu.
Obrigado

Bom dia,
E assim?

Código:

Private Sub Comando65_Click()

Dim Msg As String
On Error GoTo 1

Dim BCO As Database

Dim Lançamentos As Recordset
Dim LançamentosDatados As Recordset

If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & txtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor  " & ValorMovimento & " ?", vbYesNo, "Gestão Bancária") = vbNo Then
MsgBox "Registo do Lançamento Cancelado", vbInformation, "Gestão Bancária"
 Exit sub
End if

Set BCO = CurrentDb()

Set Lançamentos = BCO.OpenRecordset("tblmovimento")
Set LançamentosDatados = BCO.OpenRecordset("tblmovimentoData")

If Me.txtData <= Date Then

Lançamentos.AddNew
 
Lançamentos![IdCaixa] = Me.IdCaixa
Lançamentos![DataMovimento] = Me.txtData
Lançamentos![Historico] = Me.txtHistorico
Lançamentos![Rubrica] = Me.Rubrica
Lançamentos![Entidade] = Me.Entidade
Lançamentos![Doc] = Me.TxtDoc
Lançamentos![ValorMovimento] = ValorMovimento
Lançamentos![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
Lançamentos![ValorDebito] = ValorMovimento
Lançamentos![ValorCredito] = 0
          ElseIf Me.TipoMov = "C" Then
Lançamentos![ValorCredito] = ValorMovimento
Lançamentos![ValorDebito] = 0
          End If
Lançamentos.Update
End If

If Me.txtData > Date Then
MsgBox "Este Movimento Vai Ficar Pendente ! " & vbCrLf & "          Até Dia " & txtData & " ", vbInformation, "Aviso"

LançamentosDatados.AddNew

LançamentosDatados![IdCaixa] = Me.IdCaixa
LançamentosDatados![DataMovimento] = Me.txtData
LançamentosDatados![Historico] = Me.txtHistorico
LançamentosDatados![Rubrica] = Me.Rubrica
LançamentosDatados![Entidade] = Me.Entidade
LançamentosDatados![Doc] = Me.TxtDoc
LançamentosDatados![ValorMovimento] = ValorMovimento
LançamentosDatados![Ordenar] = txtData + Time

If Me.TipoMov = "D" Then
LançamentosDatados![ValorDebito] = ValorMovimento
LançamentosDatados![ValorCredito] = 0
          ElseIf Me.TipoMov = "C" Then
LançamentosDatados![ValorCredito] = ValorMovimento
LançamentosDatados![ValorDebito] = 0
          End If
LançamentosDatados.Update
End If

ValorMovimento = Format(ValorMovimento, "#,##0.00 €")



Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))


Lançamentos.Close
LançamentosDatados.Close

Call fncMontaSaldo
Call Form_Current

Me.Comando65.Visible = True
Me.Comando96.Visible = False
Me.Comando97.Visible = False
Me.IdCaixa = Null
Me.txtHistorico = Null
Me.Rubrica = Null
Me.Entidade = Null
Me.ValorMovimento = Null
Me.TxtDoc = Null
Me.txtData = Forms.menu.DataMenu
Me.txtData.SetFocus
Me.txtData.SelStart = 0

Exit_1:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Exit Sub

1 A:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Msg = "Erro # " & Str(Err.Number) & " Gerado na " & Err.Source _
      & vbNewLine & vbNewLine & "Descrição: " & Err.Description _
      & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
  MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", Err.Helpfile, Err.HelpContext
  Resume Exit_1


End Sub

Viva Alexandre

Nem executa as MsgBox. ao clickar no comando65

Obrigado

E assim?

Código:

Private Sub Comando65_Click()

Dim Msg As String
On Error GoTo 1

Dim BCO As Database

Dim Lançamentos As Recordset
Dim LançamentosDatados As Recordset

If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & TxtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor  " & ValorMovimento & " ?", vbYesNo, "Gestão Bancária") = vbNo Then
    MsgBox "Registo do Lançamento Cancelado", vbInformation, "Gestão Bancária"
    Exit Sub
End If

Set BCO = CurrentDb()

If Me.TxtData <= Date Then
    Set Lançamentos = BCO.OpenRecordset("tblmovimento")
   
    Lançamentos.AddNew
     
    Lançamentos![IdCaixa] = Me.IdCaixa
    Lançamentos![DataMovimento] = Me.TxtData
    Lançamentos![Historico] = Me.txtHistorico
    Lançamentos![Rubrica] = Me.Rubrica
    Lançamentos![Entidade] = Me.Entidade
    Lançamentos![Doc] = Me.TxtDoc
    Lançamentos![ValorMovimento] = ValorMovimento
    Lançamentos![Ordenar] = TxtData + Time
   
    If Me.TipoMov = "D" Then
        Lançamentos![ValorDebito] = ValorMovimento
        Lançamentos![ValorCredito] = 0
    ElseIf Me.TipoMov = "C" Then
        Lançamentos![ValorCredito] = ValorMovimento
        Lançamentos![ValorDebito] = 0
    End If
    Lançamentos.Update
    Lançamentos.Close
Else
    MsgBox "Este Movimento Vai Ficar Pendente ! " & vbCrLf & "          Até Dia " & TxtData & " ", vbInformation, "Aviso"
    Set LançamentosDatados = BCO.OpenRecordset("tblmovimentoData")
    LançamentosDatados.AddNew
   
    LançamentosDatados![IdCaixa] = Me.IdCaixa
    LançamentosDatados![DataMovimento] = Me.TxtData
    LançamentosDatados![Historico] = Me.txtHistorico
    LançamentosDatados![Rubrica] = Me.Rubrica
    LançamentosDatados![Entidade] = Me.Entidade
    LançamentosDatados![Doc] = Me.TxtDoc
    LançamentosDatados![ValorMovimento] = ValorMovimento
    LançamentosDatados![Ordenar] = TxtData + Time
   
    If Me.TipoMov = "D" Then
        LançamentosDatados![ValorDebito] = ValorMovimento
        LançamentosDatados![ValorCredito] = 0
    ElseIf Me.TipoMov = "C" Then
        LançamentosDatados![ValorCredito] = ValorMovimento
        LançamentosDatados![ValorDebito] = 0
    End If
    LançamentosDatados.Update
    LançamentosDatados.Close
End If

ValorMovimento = Format(ValorMovimento, "#,##0.00 €")

Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))
Call fncMontaSaldo
Call Form_Current

Me.Comando65.visible = True
Me.Comando96.visible = False
Me.Comando97.visible = False
Me.IdCaixa = Null
Me.txtHistorico = Null
Me.Rubrica = Null
Me.Entidade = Null
Me.ValorMovimento = Null
Me.TxtDoc = Null
Me.TxtData = Forms.menu.DataMenu
Me.TxtData.SetFocus
Me.TxtData.SelStart = 0

Exit_1:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Exit Sub

1 A:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Msg = "Erro # " & str(err.Number) & " Gerado na " & err.Source _
      & vbNewLine & vbNewLine & "Descrição: " & err.Description _
      & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
  MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", err.Helpfile, err.HelpContext
  Resume Exit_1

End Sub




Bom almoço Alexandre se ainda não aconteceu..


Já funciona, e o erro que vou mostrar acho que tem a ver com o final do registar e limpar as caixas, ma grava .

Estarei certo ?

Obrigado

E assim?

Código:

Private Sub Comando65_Click()

Dim Msg As String
On Error GoTo 1

Dim BCO As Database

Dim Lançamentos As dao.Recordset
Dim LançamentosDatados As dao.Recordset

If MsgBox("Confirma o Registo do Lançamento ?" & vbCrLf & TxtData & vbCrLf & Me.txtHistorico & vbCrLf & Me.Rubrica & vbCrLf & Me.Entidade & vbCrLf & "Valor  " & ValorMovimento & " ?", vbYesNo, "Gestão Bancária") = vbNo Then
    MsgBox "Registo do Lançamento Cancelado", vbInformation, "Gestão Bancária"
    Exit Sub
End If

Set BCO = CurrentDb()

If Me.TxtData <= Date Then
    Set Lançamentos = BCO.OpenRecordset("tblmovimento")
   
    Lançamentos.AddNew
     
    Lançamentos![IdCaixa] = Me.IdCaixa
    Lançamentos![DataMovimento] = Me.TxtData
    Lançamentos![Historico] = Me.txtHistorico
    Lançamentos![Rubrica] = Me.Rubrica
    Lançamentos![Entidade] = Me.Entidade
    Lançamentos![Doc] = Me.TxtDoc
    Lançamentos![ValorMovimento] = ValorMovimento
    Lançamentos![Ordenar] = TxtData + Time
   
    If Me.TipoMov = "D" Then
        Lançamentos![ValorDebito] = ValorMovimento
        Lançamentos![ValorCredito] = 0
    ElseIf Me.TipoMov = "C" Then
        Lançamentos![ValorCredito] = ValorMovimento
        Lançamentos![ValorDebito] = 0
    End If
    Lançamentos.Update
    Lançamentos.Close
Else
    MsgBox "Este Movimento Vai Ficar Pendente ! " & vbCrLf & "          Até Dia " & TxtData & " ", vbInformation, "Aviso"
    Set LançamentosDatados = BCO.OpenRecordset("tblmovimentoData")
    LançamentosDatados.AddNew
   
    LançamentosDatados![IdCaixa] = Me.IdCaixa
    LançamentosDatados![DataMovimento] = Me.TxtData
    LançamentosDatados![Historico] = Me.txtHistorico
    LançamentosDatados![Rubrica] = Me.Rubrica
    LançamentosDatados![Entidade] = Me.Entidade
    LançamentosDatados![Doc] = Me.TxtDoc
    LançamentosDatados![ValorMovimento] = ValorMovimento
    LançamentosDatados![Ordenar] = TxtData + Time
   
    If Me.TipoMov = "D" Then
        LançamentosDatados![ValorDebito] = ValorMovimento
        LançamentosDatados![ValorCredito] = 0
    ElseIf Me.TipoMov = "C" Then
        LançamentosDatados![ValorCredito] = ValorMovimento
        LançamentosDatados![ValorDebito] = 0
    End If
    LançamentosDatados.Update
    LançamentosDatados.Close
End If

ValorMovimento = Format(ValorMovimento, "#,##0.00 €")

Call fncAuditar(Me.Name, 0, "Movimentação " & Me!txtHistorico & " - " & Format(ValorMovimento, "#,##0.00 €"))
Call fncMontaSaldo
Call Form_Current

Me.Comando95.visible = True
Me.Comando96.visible = False
Me.Comando97.visible = False
Me.IdCaixa = Null
Me.txtHistorico = Null
Me.Rubrica = Null
Me.Entidade = Null
Me.ValorMovimento = Null
Me.TxtDoc = Null
Me.TxtData = Forms.menu.DataMenu
Me.TxtData.SetFocus
Me.TxtData.SelStart = 0

Exit_1:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Exit Sub

1:
  DoCmd.Hourglass False
  DoCmd.Echo True
  Msg = "Erro # " & str(err.Number) & " Gerado na " & err.Source _
      & vbNewLine & vbNewLine & "Descrição: " & err.Description _
      & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
  MsgBox Msg, vbMsgBoxHelpButton + vbCritical, "Erro", err.Helpfile, err.HelpContext
  Resume Exit_1

End Sub

Alexandre

Com a última Msg. continuava o último erro e resolvi assim