[Resolvido]Erro ao inserir número decimal em campo porcentagem pelo VBA

Me deparei com um erro ao inserir número decimal em campo porcentagem pelo VBA.

Caso o número seja inteiro, funciona. Mas o valor 1, por ex., é traduzido como 100%.
Então para inserir 20% tenho que usar 0.2 no VBA.

Contudo, quando o uso número decimais o valor inserido é 0%.

Não nos mostrou como está a fazer por VBA, mas veja se serve;

Public Function FormatarEmPercentagem(Num)
FormatarEmPercentagem = Format(Num, "0.00") & " %"
End Function


Private Sub SeuCampo_AfterUpdate()
FormatarEmPercentagem (]SeuCampo])
End Sub

João Paulo,

estou tentado assim:

Me.Campo = 0.2

Quando aplico, aparece 0%.
O campo está no formato porcentagem, tanto na tabela como no formulário.

Ok

Veja se ajuda;

http://dl.dropbox.com/u/771097/rgondim%20_II.rar

JPaulo, olhei o BD, mas não é bem isso que buscava.

Preciso inserir o valor através do VBA. Para inserir 20%, o número deve ser 0.2, correto? Mas ao fazer isso, o campo interpreta números após a vírgula como zero.

O exemplo que lhe passei está funcional.

Esses zeros após a virgula é porque o formato do campo está com Decimais=2

Veja assim;

https://dl.dropbox.com/u/771097/rgondim%20_III.rar

Ok Jp. Resolvido.

Obrigado pelo retorno o forum agradece.