Expressão no Access

[sandoliv 0]

Ola!

Estou com uma dúvida, criei um Formulário onde tenho um campo quant e valor.

No campo valor criei a seguinte expressão na "Origem_Controle" = =[Quant_Xerox]*0,2.

No campo do formulário ele apresenta o resultado corretamente, mas não armazena na tabela.

Como faço para ele armazenar o resultado na tabela? ou em uma Consulta ?.

 

Preciso de Ajuda.

Enviem resposta para meu email, também

 

forumsan2006@yahoo.com.br

 

http://forum.imasters.com.br/public/style_emoticons/default/yay.gif

[Spiritwalker 0]

Prezado sandoliv:Depreende-se pelas suas palavras que seu sistema tenha uma tabela clientes (ou usuários) de serviços de fotocópias (xerox), e deseja armazenar os gastos de cada um para pagamento/cobrança após um determinado período (mensal, semanal, etc.).Você não especificou se, após o cálculo das cópias, os valores serão acrescentados um a um na tabela em função da data (possibilitando um controle mais detalhado), ou serão acrescidos ao valor já existente (se houver), de modo a ocupar um único registro da tabela, em função do código do cliente (ou seja, uma tabela mais generalizada).Para exemplificar, vamos considerar apenas o primeiro caso (o outro é um pouco mais complexo).Se ainda não o fez, acrescente no formulário uma combo (ou caixa de listagem) que exiba os nomes e/ou os códigos dos clientes/usuários e um botão de comando que, ao ser pressionado, terá a função de executar uma consulta do tipo "acréscimo", baseada numa instrução SQL de acordo com os valores da combo (ou caixa de listagem) do cliente/usuário, e das caixas de texto que especificam a quantidade e o valor das cópias extraídas.O código VBA, implementado no evento OnClick do botão de comando, ficaria algo assim:Dim db As DataBaseSet db = CurrentDbdb.Execute "INSERT INTO tblClientes (CodCliente, QuantidadeDeCopias, Valor) VALUES (" & cboClientes & ", " & txtQuantidade & ", " & txtValor & ")"db.CloseSet db = NothingAo final do período, para saber o total da dívida de determinado cliente, bastaria executar uma outra consulta utilizando a função SUM do SQL, que somasse todas as despesas de acordo com o código daquele (para maiores detalhes de como utilizar a função SUM, consulte a Ajuda do Access).Para "incrementar" ainda mais a aplicação, você também poderia criar um campo do tipo data (na tabela) para armazenar as datas em que os clientes solicitaram os serviços (isto é, as cópias), de modo a aumentar ainda mais o controle, bem como possibilitar a soma das despesas em função de um certo intervalo de tempo. Após o pagamento, não esqueça de excluir todos os registros do cliente para "zerar" sua conta, que poderá ser feito manualmente (o que não é muito recomendado), ou por intermédio de uma outra consulta SQL, executada a partir do evento Onclick de um botão de comando específico, algo assim:Set db = CurrentDbdb.Execute "DELETE * FROM tblClientes WHERE CodCliente = " & cboClientes & ""db.CloseSet db = NothingIsso tudo irá variar de acordo com a complexidade de sua aplicação. Perceba que quanto mais "facilidades" para o usuário (que provavelmente será você mesmo), maior a necessidade de linhas de código.Abraços.