[Resolvido]Criando um botão específico

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....

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

Bom dia.
Funcionou perfeitamente, muito obrigado.

O Fórum agradece o retorno.