MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Criando um botão específico

    Compartilhe

    Edu.fourreis
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/01/2015

    [Resolvido]Criando um botão específico

    Mensagem  Edu.fourreis em Ter 24 Fev 2015, 20:28

    Boa tarde.
    Tenho um formulário que retorna dados de uma parcela, queria criar um botão para lançar pagamento automaticamente.
    Meu formulário possui um campo para [Status] (Pago ou Pendente) e um campo [DataPagamento].

    Estava pensando em criar um botão para dar baixa automaticamente, uma vez que poderia simplesmente acessar o campo e alterar manualmente.

    Botão = (Lançar Pagamento)
    Como funcionária
    Ele tem que conferir se o campo [DataPagamento] está preenchido, caso falso exibirá (Deseja confirmar pagamento para a data de hoje ?) se sim, alterar status de pendente para pago
    e preencher a data de recebimento para hoje e fechar o formulário.

    E caso o campo [DataPagamento] esteja preenchido (Confirma pagamento desta Parcela ?) altera status para pago e fecha o formulário.

    Desculpe incomoda-los, mas se puderem me ajudar, ficarei grato
    Desde já agradeço....

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Criando um botão específico

    Mensagem  clynton em Ter 24 Fev 2015, 23:04

    No evento 'Ao clicar' do botão coloque a seguinte instrução:

    Código:
        If IsNull(Me.DataPagamento.Value) = True Then
            If MsgBox("Deseja confirmar pagamento para a data de hoje ?", vbQuestion + vbYesNo, "Mensagem") = vbYes Then
              Me.DataPagamento.Value = Date
              Me.Status.Value = "Pago"
              DoCmd.Close
            Else
            End If
    ElseIf IsNull(Me.DataPagamento.Value) = False Then
            If MsgBox("Confirma pagamento desta Parcela ?", vbQuestion + vbYesNo, "Mensagem") = vbYes Then
              Me.Status.Value = "Pago"
              DoCmd.Close
            Else
            End If
        End If


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

    Edu.fourreis
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 87
    Registrado : 20/01/2015

    Clynton

    Mensagem  Edu.fourreis em Qua 25 Fev 2015, 13:41

    Bom dia.
    Funcionou perfeitamente, muito obrigado.

    clynton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 307
    Registrado : 08/07/2013

    Re: [Resolvido]Criando um botão específico

    Mensagem  clynton em Qua 25 Fev 2015, 17:19

    O Fórum agradece o retorno.


    .................................................................................
    Cumprimentos...


    Atenciosamente,
    Rogério Clynton Ribeiro


    __________________________________________________________________________

    "Ninguém é tão grande que não possa aprender e nem tão pequeno que não possa ensinar."

      Data/hora atual: Dom 04 Dez 2016, 01:56