MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

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

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis 15/12/2014, 12:05

    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


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 15/12/2014, 14:23

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4771
    Registrado : 06/11/2009

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

    Mensagem  Assis 15/12/2014, 18:55

    Obrigado Teixeira

    Bom Natal


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 15/12/2014, 22:43

    Obrigado pelo retorno, Bom Natal

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 07:38