[Resolvido]Casas decimais via VBA

Olá pessoal do Forum, saudações.
Tenho uma dúvida quanto a sua programação, e se é possível desenvolver, pois pesquisei na internet e não encontrei algo do tipo.

É possível alterar a quantidade de casas decimais para exibição no formulário via código VBA?
Eu achei exemplos desse jeito dando opções de arredondar ou truncar, mas agora a dúvida é, teria como eu definir se quero trabalhar com duas ou três casas decimais

Ex:1° crio um módulo global com as definições, que não tenho ideia de como fazer. rsrsrs
   2° crio um formulário dando opções de casas decimais com Checkbox
       Trabalhar com duas Casas decimais? -> e nos campos dos forms será exibido = 0,00
       Trabalhar com três casa decimais? -> e nos campos dos forms será exibido = 0,000
Assim eu não preciso ficar mudando nos forms campo por campo toda vez quando um cliente preferir trabalhar com duas ou com três casas decimais..

Boa Noite !

Vai preencher um controle ? Caixa de texto ou algo de tipo ?

Tente usar o Round

Round(SeuCampo,2) ' Para 2 casas decimais 0,00
Round(SeuCampo,3) ' Para 3 casas decimais 0,000

Então RSilva, o Round vai me arredondar as casas decimais e eu teria que defini-las nos campos a quantidade de casas decimais, a minha ideia era escolher exibir o numero de casas decimais via código VBA..
Por padrão ele exibiria duas casas decimais nos campos, "0,00" e ao selecionar o checkbox exibiria três casas decimais no campo "0,000".
Alguém teria alguma ideia de como fazer essa proeza em VBA?

Você pode usar duas opções,

Me!SeuCampo.DecimalPlaces =3

Ou

Me!SeuCampo.Format = "##,##0.000"

Isso JPaulo, funcionou, porem fazendo os testes deparei com um probleminha
quando eu coloco os campos pra exibir duas casas decimais por exemplo:
o preço do produto é:
Custo: 2,20
Lucro: 58 %
Venda: com 3 casas decimais 3,476, com 2 casas decimais 3,48
se for vender 100 unidades com 2 casas decimais ficaria assim, 347,60 daí estaria errado deveria ser 348,00
estou agora quebrando a cabeça pra achar uma forma de resolver e arredondar
usei um exemplo seu mesmo olhando outro tópico com a função trunccc
e com 2 casas decimais o valor de venda fica 3,47 e não 3,48.
Se eu usar Int será que resolve? vou fazer esse teste!

Mais uma dúvida.. será que seria possível fazer essa função num módulo global, pra não ter que escrever código por código em cada formulário? ou é isso mesmo?

Com duas casas decimais, arredonda para cima sempre que passar o 0,5

Veja se ajuda,

http://allenbrowne.com/round.html

Vou analisar o artigo e depois retorno..
Obrigado pela ajuda JPaulo.

Certinho JPaulo, obrigado pela ajuda..
resolvi meu problema com as casas decimais agora o usuario que estiver utilizando o sistema pode escolher se quer duas ou tres casas decimais..
Obrigado pela força.

Obrigado pelo retorno o forum agradece.

Olá JPaulo. retornando a respeito dessa dúvida, fiz o seguinte metodo

criei uma tabela casasdecimais
dois campos nela no formato SIM/NAO
CD2, CD3
criei um módulo global com o seguinte código

Function Decimais(x)
if dlookup("CD2","casasdecimais","") = -1 then
decimais = format(Round(x ,2), "#,##0.00")
end if
if dlookup("CD3","casasdecimais","") = -1 then
decimais = format(Round(x ,3), "#,###0.000")
end if
end function
ele arredonda e exibe a quantidade de casas decimais certinho sem esconder numeros e somatório com diferenças.

basta colocar numa consulta: Decimais(meucampo)

Obrigado pela ajuda.

sds

Obrigado pelo retorno o forum agradece.