[Resolvido]Alteração ao exemplo Gestão de Economato

Amigão note que esse exemplo não foi concebido para esse tipo de valores.

No entanto, você se não sabe fica agora a saber, que o formato Integer apenas funfa com o valor de -32,768 a 32,767.

Para resolver para o que pretende, você deve alterar, de Integer para Long nos códigos.

no módulo modProduto;

Private iStock As Long

Public Function AcertaStock(CódigoDoProduto As Long, Quantidade As Long)

Public Function AcertaStock1(CódigoDoProduto As Long, Quantidade As Long)


No form;

Private Sub cmdEntrada_Click()
'Aumenta a quantidade do produto no Stock
Dim intQuantidade As Long

Private Sub cmdSaída_Click()
'Reduz a quantidade do produto no stock
Dim intQuantidade As Long

E ai Grande JPaulo,
Entendi, sei que o projeto foi para outros fins, mas eu adaptei para as minhas necessidades, que é em estoque de alimentação, e tá funcionando certinho com o ajuste que me indicou, só preciso de um último ajuste e pronto ficará 10 para o que preciso, se puder me ajudar, mais uma vez ficarei grato:
Tem como, no campo onde lanço a quantidade incluir (02) duas casais decimais e que as vezes, por exemplo,preciso lançar 1,25 quilo disso, 1,5 daquilo, em em consequencia, que apareça também no stock atual, as quantidades com 02(duas) casas decimais.
Um abração,Grande JPaulo.

Ola Claudio;

Para o que pretende, tive de efectuar grandes alterações, tanto no formato dos campos das tabelas como nos códigos.

Veja se é isto que pretende;

http://dl.dropbox.com/u/771097/Claudio.rar

Ola Grande, obrigado pela atenção,
è do jeito que preciso, somente o botão de saída não está funcionando(não tá reduzindo a quantidade), o de entrada tá Ok. Abraços

Veja agora por favor;

http://dl.dropbox.com/u/771097/Claudio_II.rar

Grande Paulo, seu software funciona perfeitamente e atende as necessidades aqui do quartel onde trabalho em são vicente-sp, o codigo do produto tem como ser inserido manualmente, pois aqui usamos uma codificação para cada produto, cujo codigo é chamado de siafico (sao somente numeros) o siafisico é um codigo geral usado em todo governo para identificação dos produtos que sao adquiridos por qualquer setor publico, exemplo cartuchos de tinta para cada marca e modelo é um siafisico diferente, u só mais uma coisinha teria como ter um botao na tela inicial para visualizar/imprimir um relatorio de todo o material que esta no estoque, se voce puder ajudar, vai gerar uma economia de tempo e dinheiro com papel que sao imprimidos de planilhas de excel.

Valeu carlos Eduardo

Amigo

Você mesmo pode fazer isso, ou melhor, o assistente do access faz isso por si. Em modo desenho coloque um botão no lugar que deseja no form e defina qual o relatório que ele deve abrir. É muito simples se seguir os passos do assistente.

Amigo

Fiz um video para você ver como se faz.

http://dl.dropbox.com/u/8157744/relat%C3%B3rio.avi

Bom trabalho

Ola Claudio;

Veja se o atende assim;

http://dl.dropbox.com/u/771097/Claudio_III.rar

Fala Grande Paulo, tudo bem ? Paulo eu vi o filme, porém a parte mais importante para mim seria poder no campo dos formularios adiciona produtos e e no altera produtos era poder digitar manualmente o codigo do produto, fiz as alterações nas duas tabelas a produtos e a movimentação alterando o campo CodProduto tipo de dado de autonumeração para numero, sendo que antes tive que excluir o relacionamento da tabela porem anotando como estava apos alteraçoes dos campos recriei os relacionamentos mais nao deu certo.

Amigão, neste ultimo exemplo você consegue digitar o Siafísico que será para si o código do produto, tambem consegue adicionar novos produtos.

Além disso não deixa duplicar o Siafísico.

Agora não estou a entender a sua duvida.

Amigão, baixei o novo mdb, e deu tudo certinho, e ja estamos cadastrando os produtos, aqui, na verdade estao sendo cadastrados todos os insumos de informatica, como cartuchos de tinta, toner, midias, teclados, mouses. Eu trabalho no setor de informatica do batalhão, o seu programa serviu certinho, e a simplicidade aliada funcionalidade do seu software é de grande valia para nos aqui, pois permitira´termos um controle do consumo de cartuchos de tinta e de toner, o qual nos permitira a execução de ações coordenadas no sentido de economizar materiais de informatica.

Valew pelo retorno o fórum agradece.

Boa Noite!!!
J.Paulo

Link quebrado, poderia postar novamente?
Desde já agradeço
Att. Marceff

Tem de ir ao tópico original;

https://www.maximoaccess.com/t167-gestao-stock-de-economato#740

Obrigado!!!