[Resolvido]Sobre o sistema de automação comercial

Vamos alertar o Colega Leam, OK.

Amigo o meu fpooi adpatado para numeros
tipo 123 10 20

não para

0.00

Então vou ver aqui!!!

se está a fazer

Trata disso então.

Amigo no meu sistema não será possivel executar essas
ações na quant (0.325)

estão teria
que modificar as estrutura do vba
para adpatar a esses valores (0,325)

O vba foi desemvolvido por o grande Jungli

Private Sub Quant_AfterUpdate()
'=====================================================
'FAVOR NÃO RETIRE OS CRÉDITOS
'por Glicério Júnior (Jungli) ... jungli@ibest.com.br em 8.6.2011
'Modificado por: XXXXXXXX em DD/MM/YYYY
'=====================================================
On Error GoTo Err_Quant_AfterUpdate
Dim qtd, qtd2 As Double
Dim sql1 As String
qtd = DLookup("[Estoque]", "[produtos]", "[ID] = " & Me.CodProduto.Column(0))
If qtd <= 0 Or qtd <= Me.Quant Then
MsgBox "O estoque está zerado" & vbCrLf & _
"ou número em estoque menor do" & vbCrLf & _
"que a quantidade informada.", _
vbCritical, "ESTOQUE INSUFICIENTE"
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
ElseIf qtd > 0 Or qtd <= Me.Quant Then

If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
qtd2 = (qtd - Quant)
sql1 = "UPDATE produtos SET produtos.Estoque = " & qtd2 & _
" WHERE (((produtos.ID)=" & Me.CodProduto.Column(0) & "));"
CurrentDb.Execute sql1
Else
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
End If
End If
Exit_Quant_AfterUpdate:
Exit Sub
Err_Quant_AfterUpdate:
MsgBox err.Description, vbCritical, "Erro Indeterminado"
Resume Exit_Quant_AfterUpdate
End Sub

vou falar com o criador do codigo
em breve soluconara esté problema

aguarde amigo ok!!!

Se me permitem um pitaco..

Passei uma vista de olhos no código confeccionado pelo amigo jungli e a meu ver esta perfeito..


O código trata apenas de fornecer as instruções para a operação matemática..

Vejamos:

*** Analise de fragmentos do código***

'Nesta linha ele Aplica a quantidade do estoque em uma variável
'Ela pega o registro condizente com o registro ativo na CaixaTexto CodProduto
'Então aqui teremos a quantidade em estoque na tabela para determinado produto
qtd = DLookup("[Estoque]", "[produtos]", "[ID] = " & Me.CodProduto.Column(0))
If qtd <= 0 Or qtd <= Me.Quant Then 'Aqui aplica uma condição para checar se o estoque esta a 0
MsgBox "O estoque está zerado" & vbCrLf & _
"ou número em estoque menor do" & vbCrLf & _
"que a quantidade informada.", _
vbCritical, "ESTOQUE INSUFICIENTE"
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
ElseIf qtd > 0 Or qtd <= Me.Quant Then 'Aqui se é positívo
If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
'Nesta linha está a operação matemática pegando o valor da Variável qtd - a quantidade digitada na CaixaTexto Quant
qtd2 = (qtd - Quant)
'Aqui simplesmente faz apenas o UPDATE na tabela, apicando o valor da segunda variável que é o resultado da operação matemática acima aplicando a mesma no regisro condizente com a CaixaTexto CodProduto
sql1 = "UPDATE produtos SET produtos.Estoque = " & qtd2 & _
" WHERE (((produtos.ID)=" & Me.CodProduto.Column(0) & "));"


No meu parecer está tudo normal e não é problema do código...

Isso me parece configuração do formato do Campo ou na tabela ou no form

pois se o campo na tabela está em formato numeral inteiro, ele não entendera a operação matemática para subtrair isso de um número decimal...

Creio então a solução deste, que não é um problema do sistema.. e sim uma adaptação para outra situação, passa por esta questão de formato de campos e caixa texto


Saudações

a Instução UPDATE faz apenas o lançamento de um novo valor em registro já existente..

Como ela não consegue levar o valor decimal para o campo na tabela...

Dá erro..pois a tabela não esta aceitando... Problema de formatação de campo e casas decimais..

Saudações

Sem dúvida, bem visto. Convém saber como está formatado o campo. Se padrão, se duplo, etc.

sim harysonh o código está certo
mas adpatado para o da diego costruções

Que uso numeros
quant 1
quant 10

deste tipo ai o código Funciona

O do nosso amigo e outra forma

assim 0,002

por isso não dar certo!!!

Sua Solução

Realmente a instrução UPDATE neste caso estava a não aceitar numeros decimais...

Então utilizei um recordset para fazer o update na tabela..
Testei e funcionou.




Private Sub Quant_AfterUpdate()
'=====================================================
'FAVOR NÃO RETIRE OS CRÉDITOS
'por Glicério Júnior (Jungli) ... jungli@ibest.com.br em 8.6.2011
'Modificado por: Harysohn Pina em 03/07/2011
'=====================================================

On Error GoTo Err_Quant_AfterUpdate
Dim db As DAO.Database 'Variavel para o BD
Dim ws As DAO.Workspace 'Variável para o Workspace
Dim rs As DAO.Recordset 'Variável para o recordSet
Dim StrSQLEstoque 'Variável para receber os dados da tabela
Dim qtd, qtd2 As Double
Dim sql1 As String
qtd = DLookup("[Estoque]", "[produtos]", "[ID] = " & Me.CodProduto.Column(0))

If qtd <= 0 Or qtd <= Me.Quant Then
MsgBox "O estoque está zerado" & vbCrLf & _
"ou número em estoque menor do" & vbCrLf & _
"que a quantidade informada.", _
vbCritical, "ESTOQUE INSUFICIENTE"
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
ElseIf qtd > 0 And qtd > Me.Quant Then

If MsgBox("Você tem certeza que deseja atualizar o estoque??", vbQuestion + vbYesNo, "Pergunta") = vbYes Then
qtd2 = (qtd - Quant)
'Seta o WorksPace e o BD para fazer a atualização da tabela, obseve que tem que modifica o nome do BD conforme o nome que vais usar, no caso está como Diego.mdb

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(CurrentProject.Path & "\Diego.mdb", False, False, "MS Access;PWD=senha")

'Aqui a variável faz a seleção de todos os campos da tabela selecionando o registro que coincide com a CixaTexto COdProduto
StrSQLEstoque = "SELECT * FROM Produtos WHERE (((produtos.ID)=" & Me.CodProduto.Column(0) & "));"

Set rs = db.OpenRecordset(StrSQLEstoque)


rs.Edit ' Abre a edição do registro para tabela Produtos
rs![Estoque] = qtd2
rs.Update ' Atualiza o registro para tabela Produtos

'Encerra o Banco db e o recordSet
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

Else
Me.Undo
Me.CodProduto.SetFocus
Me.CodProduto.Dropdown
End If
End If
Exit_Quant_AfterUpdate:
Exit Sub
Err_Quant_AfterUpdate:
MsgBox err.Description, vbCritical, "Erro Indeterminado"
Resume Exit_Quant_AfterUpdate
End Sub




Saudações

voce disse que esta a estudar o Sistema do Leam a vários dias...

Não leu a instrução em verde acima dessa linha??????

Esta lhe faltando atenção!!!

*** Uma dica...

Evite nomes com espaços no nome do BD

Mude o nome Diego.mdb para o nome que esta o bd ai...

ou renomeie o BD

Ex.. se renomear o seu BD para Teste.mdb

Set db = ws.OpenDatabase(CurrentProject.Path & "\teste.mdb", False, False, "MS Access;PWD=senha")

. Faltou o resolvido no tópico amigão...

Saudações a todos..

É só clicar em Resolvido