[Resolvido]Arredondar valor moeda no Access 2013

Estou com um problema.

Tenho um campo moeda no formulário que precisa ser arredondado mas está complicado.

Eu preciso arredondar o valor para cima sempre que o valor inserido for igual ou superior a 0,50. Se for abaixo o valor deve permanecer.

Por exemplo:

Se o usuário inserir 30,50 o valor deve ser arredondado para 31,00

Se o usuário inserir 30,78 o valor deve ser arredondado para 31,00

Se o usuário inserir 30,20 o valor deve permanecer 30,20

Se o usuário inserir 30,45 o valor deve permanecer 30,45

Arredondar pra cima usando o Round eu até consigo mas quando o valor é abaixo de 0,50 o Round interfere e o valor não permanece...

Se alguém puder ajudar ficaria grato.

Olá, tente algo assim:

If right(nomeCampo,2) > 49 and right(nomeCampo,2) <=99 Then
Round ...
Endif

Não testado
Abraço

ahteixeira eu consegui resolver isso.

Resolvi da seguinte forma:

Private Sub Comando52_Click()
If ([P30] - Int([P30])) < 0.5 Then
Exit Sub
Else
P30 = Int([P30]) + 1
MsgBox [P30]

End If
End Sub

[P30] é o valor a ser arredondado. Funciona direitinho.

Eu ia colocar como resolvido no tópico mas você respondeu antes. De qualquer forma obrigado pela ajuda.

Olá, obrigado pelo retorno, os utilizadores do fórum agradecem.
Entretanto, tinha efectuado aqui um exemplo para testar com o seguinte código:

Código:

'ahteixeira 2015 maximoaccess
Dim casasDecimais As Integer
casasDecimais = Right(Format(Me.valor, "fixed"), 2)

    If casasDecimais > 49 And casasDecimais <= 99 Then
        'forçar arredondamento x.50 para cima
        If casasDecimais = 50 Then
            Me.valor = Round(Me.valor + 0.1)
        Else
            Me.valor = Round(Me.valor)
        End If
    End If

Segue ficheiro de exemplo ArredonamentoEspecial.rar

Abraço