(Resolvido) prenchimento automatico com criterios

[zerocool1]

Amigos mais uma vez necessito da vossa ajuda.

tenho um formulario de registo de pagamentos com 4 campos:

1 Mes 2º mensalidades; 3 Data de Pagamento; 4º coima.

o 1º, 2º e 3º campos são de preenchimento manual. O meu problema é no 4º campo onde pretendo colocar o seguinte:se no mes de janeiro o pagamento da mensalidade for com data (3º campo) superior a 31-01-2009 então no 4º campo aparece a coima de 5 Euros, se a data for inferior ou igual a 31-01-2009 no 4º campo aparece 0 euros.

desde já agradeço o tempo dispensado a analisar o meu problema.

[Alexandre Neves]

Bom dia, zero

Suponho que queira que funcione em cada mês e não apenas no mês de Janeiro.

Para tal, coloque no acontecimento AoSair do campo DataPagamento

Select Case TxtMes
    Case "Janeiro"
        If Month(TxtDataPagamento) <> 1 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Fevereiro"
        If Month(TxtDataPagamento) <> 2 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Março"
        If Month(TxtDataPagamento) <> 3 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Abril"
        If Month(TxtDataPagamento) <> 4 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Maio"
        If Month(TxtDataPagamento) <> 5 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Junho"
        If Month(TxtDataPagamento) <> 6 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Julho"
        If Month(TxtDataPagamento) <> 7 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Agosto"
        If Month(TxtDataPagamento) <> 8 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Setembro"
        If Month(TxtDataPagamento) <> 9 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Outubro"
        If Month(TxtDataPagamento) <> 10 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Novembro"
        If Month(TxtDataPagamento) <> 11 Then TxtCoima = 5 Else TxtDataPagamento = Null
    Case "Dezembro"
        If Month(TxtDataPagamento) <> 12 Then TxtCoima = 5 Else TxtDataPagamento = Null
    End Select

[zerocool1]

problemq resolvido

obrigqdo