MaximoAccess

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

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....
    avatar
    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.
    avatar
    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 24 Set 2017, 02:11