Baixa em Estoque Access

Estou desenvolvendo um form que pretende dar baixa em uma tabela de estoque porem estou utilizando esse código e me deparei com um erro nesse trecho:

Dim I As Integer
I = DLookup("Quantidade", "Cadastro_Estoque", "[Cod_Barras]=" & Me.Texto13.Value)
If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Exit Sub

Else
DoCmd.SetWarnings False

DoCmd.RunSQL "update Cadadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saída]![Quantidade_Fornecida]" _
& " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saída]![Cod_Barras_Saida]"
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
End If
End Sub

Olá, seja bem Vindo Ao Fórum!
É necessário informa qual erro está acontecendo...

Veja Também esse Tópico aqui: https://www.maximoaccess.com/t30841-entrada-saida-de-estoque-no-clique-de-um-botao

Amigo pra mim alteraria toda estrutura dos meus dados eu só preciso entender o que está ocasionando o erro

samuel_drun, veja se resolve o seu problema. Caso não resolva poste a parte do banco envolvida no erro para analisarmos.


Dim I As Integer
I = DLookup("Quantidade", "Cadastro_Estoque", "Cod_Barras = " & Me.Texto13)
If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Exit Sub

Else
DoCmd.SetWarnings False

DoCmd.RunSQL "update Cadadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saída]![Quantidade_Fornecida]" _
& " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saída]![Cod_Barras_Saida]"
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
End If
End Sub

Como te falei na Mensagem anterior... Tem que Falar qual erro esta dando amigo!!! Sem saber o erro, estaríamos aqui dando chutes até acertar!!!

Amigos acho que estou perto de identificar o problema,

Cod_Barras é tipo texto curto no caso tipo string e tambem vem a ser a chave primaria da tabela de estoque( estou usando como texto curto pq preciso inserir numero de codigo de barras e o access nao permite usar como inteiro longo)


ja a quantidade é do tipo inteiro acho que é isso que esta dando divergencia, alguma dica ?

samuel_drun, veja se resolve o seu problema.

Seu campo "Texto13" também e tipo texto ?


Dim I As Integer
I = DLookup("Quantidade", "Cadastro_Estoque", "Cod_Barras = '" & Me.Texto13 & "'")
If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Exit Sub

Else
DoCmd.SetWarnings False

DoCmd.RunSQL "update Cadadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saída]![Quantidade_Fornecida]" _
& " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saída]![Cod_Barras_Saida]"
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
End If
End Sub

Eu guardo sempre estes modelos na minha maquina pois sempre me esqueço, ajuda bastante.

Complementando aqui para não se perder a noção da utilização da função DLookup;


Para valores numericos: (sem aspas)

DLookup("Campo" , "Tabela" , "CampoFiltro = 123")

Para Texto: (aspas simples)

DLookup("Campo" , "Tabela" , "CampoFiltro= 'abcd'")

Para datas: (cardinal)

DLookup("Campo" , "Tabela" , "CampoFiltro= #01-08-2012#")




Referencia a um Controle:

Para valores numericos: (sem aspas)

DLookup("Campo", "Tabela", "CampoFiltro = " & forms!NomeDoFormulario!NomeDoCampo)

Para Texto: (aspas simples)

DLookup("Campo", "Tabela", "CampoFiltro = '" & forms!NomeDoFormulario!NomeDoCampo & "'")

Para datas:

DLookup("Campo", "Tabela", "CampoFiltro = #" & forms!NomeDoFormulario!NomeDoCampo & "#")

essa parte do codigo eu consertei agr esta dando erro aqui o erro é 2450

Dim I As Integer
I = DLookup("Quantidade", "Cadastro_Estoque", "Cod_Barras= " & Me.Cod_Barras_Saida)
If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
Exit Sub

Else
DoCmd.SetWarnings False

DoCmd.RunSQL "update Cadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saida]![Quantidade_Fornecida]" _
& " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saida]![Cod_Barras_Saida]"
DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
End If
End Sub

samuel_drun, Fiz um modelo para você adapta-lo conforme seu projeto.

Bom dia samuel_drun

Conseguiu resolver ?