[Resolvido]Limitar a dízima periódica

Bom dia!

Uma dúvida matemática: Tenho uma tabela de receitas de produtos alimentícios que descreve os ingredientes de cada produto.

Por exemplo, há a esfiha que leva em sua receita, farinha, sal, água e carne.

Eu criei um banco de dados que armazena todas essas informações e uma delas diz respeito ao rendimento, ou seja: quanto cada item representa dentro de um todo. Preciso saber (em termos de peso) quanto a farinha representa para 1 kg de esfihas. Necessito saber esse fator.

Como estou fazendo: Pego o peso utilizado da farinha e divido pelo peso total dos ingrediente (e ai que está o problema no qual preciso de ajuda): se pego 0,0410 (quarenta e um gramas) do produto e divido pelo peso total 3,3670 (três quilos, trezentos e sessenta e sete gramas) isso vai me gerar um fator de 0,012177 (0,0410/3,3670). Esse valor é inserido em um tabela através de uma consulta atualização.

O problema: ao exportar em .xls (Excel) ou em .txt (texto) esse valor (0,012177) aparece como “1,21770125989407E-02” e o que quero que seja exportado (e se possível o que fique armazenado) é o valor 0,012177.

Já tentei alterar o tipo de dados "número" do respectivo campo da tabela para todas as combinações possíveis (incluindo alterando para formato texto) mas isso não dá certo, funcionando apenas na visualização dos dados e não na exportação.

Observação: Não se trata de limitar as casas decimais, isso já foi feito.

Alguém poderia me auxiliar?

Grato!

poste o exemplo que dou uma olhada

ja tentou usar o formato - Número: Tipo Duplo e limitar quantidade de caracteres para uns 3 por exemplo

Amigo, posta o exemplo pois acabei de testar aqui e funcionou perfeitamente...

DoCmd.OutputTo acOutputTable, "Tbl_CadProd", "MicrosoftExcel Workbook (*.xlsx)", "", True, "", 0


O Campo esta como Numero>Simples> Casas Decimais automaticas

Obrigado pelas respostas!

"Nois": Já usei todas as combinações de tipos de número. Preciso de 6 casas decimais.

"FabioPaes": Como dito ao "Nois" preciso de 6 casas decimais; eu estou enviando o BD e quem puder dar uma olhada, agradeço!

Eu não manjo muito de módulos, então se você puder me orientar após analisar o arquivo, agradeço.

Lógica do sistema:

Criei uma macro Autoxec que inicia o Form "F Ingredientes". Nesse formulário está o botão "Exportar" que abre a tabela consolidada (T Consolidada) exclui toda a informação através da consulta exclusão "C Exclusão T Consolidada", em seguida uma nova consulta "C Exporta para Consolidda" entra em ação adicionando dados para ela.

Nessa tabela consolidada, há o último campo chamado "6 Dígitos" que é onde fica armazenado o valor motivo desse post. A visualização dele parece que está "OK" mas quando clicamos nele (no modo folha de dados) os valores se alteram e na verdade são esses valores ocultos, se é assim que podemos dizer, que são exportados e não o que é visualizado.

Quando vou exportar os dados, uso o botão "Exportar" do Formulário principal (F Ingredientes) que aciona uma rotina de exportação.

Obrigado!

na verdade voce esta exportando certo o excel que oculta as casas... é só aumentar manualmente

Ta na mão funfou certinho aqui (em anexo)

Private Sub Opção9_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim outputFileName As String
outputFileName = CurrentProject.Path & "\Export_" & Format(Date, "yyyyMMdd") & ".xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "C 6 Dígitos", outputFileName, True

MsgBox "Salvo com Sucesso!", vbInformation, "Aviso"

End Sub

Nois: Obrigado pela força! Sua orientação ajudou

FabioPaes: Obrigado pelo tempo gasto na ajuda; foi uma boa solução, já que o excel agora lê de forma mais adequada porém ainda teria que dar uma pequena refinada pois o resultado teria que ser limitado em 6 casas decimais. Mas ajudou bastante!

Avelino Sampaio: É isso!!! Havia esquecido da função Round (que funciona como ARRED na consulta, seguindo a mesma sintaxe). Funcionou direitinho na fórmula:


Arred(([Qtd utilizada]/[SomaDeQtd Utilizada]);6)



À todos meu muito obrigado!!!  

Agradecemos o retorno, feche o tópico como resolvido.

Sds.