[Resolvido]Abrir formulario para alterar e voltar ao formulario inicial na mesma data

Bom dia amigos

No exemplo que anexo preciso da vossa ajuda.

Ao abrir o formulario " ListaCaixa " tem na parte superior todos os meses do ano.

1º Clikar em "Jan" mostra um movimento registado de salario 5000 no dia 01-01-2014, e as caixas em cima ficam com as datas de 01-01-2014 e
   31-01-2014.
2º Clikar sobre a data 01-01-2014 para poder editar esse registo. Confirme sim na MsgBox. Vai abrir o formulário "Alterarlancamento" com um registo      
   de 01-01-2014.
3º Fechar este ultimo formulario "Alterarlancamento" e voltar ao formulário "ListaCaixa", em que este fique com a data de 01-01-2014 Janeiro e não na data atual.

Obrigado

Olá Assis,

Experimente assim, acho que resolve o pretendido.

no botao btAbre

Código:

Private Sub btAbre_Click()
If MsgBox("Alterar Lançamento de " & Format(DataLancamento, "dd-mm-yyyy") & Chr(10) + Chr(13) & cxHistorico2 & vbCrLf & "Confirma ?", vbYesNo + vbQuestion, "Gestão Orçamentos") = vbYes Then
IDGeral = Me.ID_Lancamento
DoCmd.OpenForm "AlteraLancamento"
DoCmd.OpenForm "ListaCaixa", acNormal, , , , acHidden 'ahteixeira 15-12-2014
Else

End If

End Sub

e assim no botao btfechar

Código:

Private Sub btfechar_Click()
On Error Resume Next
DoCmd.Close
DoCmd.OpenForm "ListaCaixa", acNormal 'ahteixeira 15-12-2014
End Sub

Estive a dar mais uma vista de olhos, também será melhor incluir Refresh no botão brSalva, veja como fica:

Código:

Private Sub brSalva_Click()
  If IsNull(Me.DataPagto) = True Or Me.DataPagto = "" Then
  MsgBox "Campo data em branco, digite uma data para salvar.", vbInformation, "Atenção"
  Me.DataPagto.SetFocus
  Exit Sub
  End If
 
  If IsNull(Me.Historico) = True Or Me.Historico = "" Then
  MsgBox "Digite ou selecione o histórico para salvar.", vbInformation, "Atenção"
  Me.Historico.SetFocus
  Exit Sub
  End If
 
  If IsNull(Me.cxValor) = True Or Me.cxValor = "" Then
  MsgBox "Digite o valor do lançamento para salvar.", vbInformation, "Atenção"
  Me.cxValor.SetFocus
  Exit Sub
  End If
   
  If IsNull(Me.QuadroTipo) = True Or Me.QuadroTipo = "" Then
  MsgBox "Selecione o tipo de lançamento, RECEITA para entradas e DESPESA para saídas!.", vbInformation, "Atenção"
  Me.QuadroTipo.SetFocus
  Exit Sub
  End If

If MsgBox("Confirma salvar?", vbYesNo, "Confirmar") = vbYes Then

On Error GoTo trata

Set db = CurrentDb()
Set rs = db.OpenRecordset("Select * From tblCaixa Where ID_Lancamento Like " & Me.ID_Lancamento & "")
       
        rs.Edit
        rs![Historico] = Me.Historico
        rs![DataLancamento] = Me.DataPagto
       
          If Me.QuadroTipo = 1 Then
          rs![ValorReceita] = Me.cxValor
          rs![ValorDespesa] = 0
          rs![tipo] = 1
          ElseIf Me.QuadroTipo = 2 Then
          rs![tipo] = 2
          rs![ValorDespesa] = Me.cxValor
          rs![ValorReceita] = 0
          End If
       
        rs![conca] = Me.DataPagto & Me.Historico & Me.cxValor
        rs![DataSalvo] = Me.DataPagto + Time
        rs.Update

rs.Close
Set db = Nothing

Forms![ListaCaixa].Refresh 'ahteixeira 15-12-2014
Me.DataPagto.SetFocus
   
MsgBox "Registro nº " & Me.ID_Lancamento & " alterado com sucesso!", vbInformation, "Atenção"
DoCmd.Close
DoCmd.OpenForm "ListaCaixa"
   
sai:
Set db = Nothing
Exit Sub

trata:
MsgBox "Erro ao salvar " & err.Number & " " & err.Description & " " & err.Source & " " & err.HelpContext
Resume sai

End If

End Sub

Fico aguardar retorno
Abraço

Obrigado Teixeira

Bom Natal

Obrigado pelo retorno, Bom Natal