Tratar erro em código

Boa tarde a todos

Tenho um formulario que tem um botão que faz a limpeza dos campos após o lançamento e os devidos cadastramento nas tabelas, mas está dando um erro quando o produto não tem saldo como faço para tratar esse erro para que o código funcione corretamente, pensei em se der para por uma mensagem dizendo produto não pode ser vendido, não tem no estoque

o código é esse que está em um botão o erro está abaixo da linha For cont2 = 1 To quantLista , mas precisamente na linha   rsEst.Edit ' Erro está nesta linha  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Private Sub btn_pagar_Click()

Dim Troco As Double
Dim MensagemTroco As String

Troco = Me.txt_pagar.Value - TotalVenda
Me.lb_troco.Caption = Format(Troco, "R$ #,###.00")

MensagemTroco = "Total da Venda: " & Format(TotalVenda, "R$ #,###.00") & vbCrLf & _
"Quantidade Paga: " & Format(Me.txt_pagar.Value, "R$ #,###.00") & vbCrLf & _
"Seu troco é: " & Format(Troco, "R$ #,###.00") & vbCrLf

'Salvar as Vendas

Dim NumVenda As Long
Dim rsVendas As DAO.Recordset
Dim sqlVendas As String

sqlVendas = "SELECT * FROM VENDAS"
Set rsVendas = CurrentDb.OpenRecordset(sqlVendas)
rsVendas.AddNew

rsVendas!TOTAL.Value = CDbl(lb_total.Caption)
rsVendas!ID_CLIENTE = Nz(Me.txt_cliente, 0)
rsVendas!DATA = Date
rsVendas!HORA = Time
NumVenda = rsVendas!ID_VENDA
Me.lb_num_venda.Caption = NumVenda
rsVendas.Update
rsVendas.Close
Set rsVendas = Nothing

'Detalhes da venda
Dim rsDetVendas As DAO.Recordset
Dim sqlDetVendas As String
sqlDetVendas = "SELECT * FROM DETALHE_VENDAS"
Dim quantLista As Integer
Dim cont As Integer

Set rsDetVendas = CurrentDb.OpenRecordset(sqlDetVendas)
quantLista = Me.list_desc.ListCount
For cont = 1 To quantLista
rsDetVendas.AddNew
rsDetVendas!ID_VENDA = NumVenda
rsDetVendas!ID_PRODUTO = prodVendido(cont).idprod
rsDetVendas!QUANT_PRODUTO = prodVendido(cont).quant
rsDetVendas!PRECO_UNITARIO = prodVendido(cont).preco_uni
rsDetVendas!preco_total = prodVendido(cont).preco_total
rsDetVendas.Update
Next cont

rsDetVendas.Close
Set rsDetVendas = Nothing

MsgBox MensagemTroco, vbOKOnly, "Obrigado pela compra" & Space(5)

'Atualizar estoque
Dim rsEst As DAO.Recordset
Dim sqlEst As String
Dim cont2 As Integer
Dim quantdesc As Double
Dim idpro As Long

For cont2 = 1 To quantLista
idpro = prodVendido(cont2).idprod
quantdesc = prodVendido(cont2).quant
sqlEst = "SELECT * FROM ESTOQUE WHERE FID_PRODUTO = " & idpro
Set rsEst = CurrentDb.OpenRecordset(sqlEst)
rsEst.Edit ' Erro está nesta linha  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
rsEst!QUANT_EXIBIDA = rsEst!QUANT_EXIBIDA - quantdesc
rsEst.Update
Next cont2

rsEst.Close
Set rsEst = Nothing


'Limpar os campos
Dim cont3 As Integer
For cont3 = quantLista - 1 To 0 Step -1
Me.list_desc.RemoveItem (cont3)
Me.list_preco_tot.RemoveItem (cont3)
Me.list_preco_uni.RemoveItem (cont3)
Me.list_quant.RemoveItem (cont3)

Me.txt_cliente.Value = 0
Me.txt_codBarras.Value = ""
Me.txt_codBarras.SetFocus
Me.txt_pagar.Value = ""
Me.txt_quantidade.Value = 1
Me.lb_num_venda.Caption = 0
Me.lb_quantidade.Caption = 0
Me.lb_total.Caption = 0
Me.lb_troco.Caption = 0


Next cont3

End Sub

Muito Obrigada

Segue imagem do erro

Vc precisa fazer a verificação quando informar a quantidade produto e não ao pagar.

Oi Boa tarde, mas como eu faço isso, poderia me ensinar?

Obrigada

Boa noite,

Se puder postar somente as partes envolvidas ( tabelas e forms), fica mais fácil ajudar.

Bom dia a todos, obrigada pela ajuda

Segue o arquivo, se tiver como colocar a mensagem esse produto não tem quantidade suficiente para venda, o estoque deste produto é de XX, não sei como fazer.


dropbox.com/s/rtzhu7w4w4fpwd4/Vendas.accdb?dl=0

Obrigada novamente

Amanda, voce realiza venda pelo formulario de cotacao? Favor verifique.

Bom dia, formulario vendas

so vieram estes formularios: fcotacaomaterial, fdetalhecotacaomateiral, home

Olá boa tarde

Só se coloquei link errado, porque no meu exemplo não tem esse formulario que disse

segue novamente o link:

dropbox.com/s/rtzhu7w4w4fpwd4/Vendas.accdb?dl=0

Fiz um zip o arquivo para poder enviar

Bom dia Amanda, assim que baixar, dou uma olhada.

Vlw

up

Infelizmente so poderei dar uma olhada à noite (no trabalho uso 2007).

Oi estou tentando ressuscitar o Frankstein.

Veja se ajuda? Estou com problemas no meu pc

Boa noite, Tauron, obrigada pela força.

Testei mas continua dando o mesmo erro, e está desabilitado o botão escolher produto, pois o sistema funciona assim, eu clico no botão Buscar produto, abre um formulário para eu escolher o produto, dou dois clique e clico no Botão Escolher produto, que carrega o produto escolhido para lista acima, e estar a dar erro no memento que coloco o valor e clico em pagar.

Espero ter conseguido explicar.


Obrigada novamente

Olá Amanda

Na propriedade antes de atualizar da caixa de texto txtquantidade, coloque:

Código:


Private Sub txt_quantidade_BeforeUpdate(Cancel As Integer)
Dim qtdStok As Double

qtdStok = DLookup("[QUANTIDADE]", "PRODUTOS", "[CODIGO_BARRAS]= '" & Me.txt_codBarras & "'")

If Me.txt_quantidade >= qtdStok Then

   MsgBox "Quantidade além do estoque"
   DoCmd.CancelEvent
   Exit Sub
End If
End Sub


Quanto ao erro quando clica no botão, observe essa linha:

rsEst!QUANT_EXIBIDA = rsEst!QUANT_EXIBIDA - quantdesc

Na tabela PRODUTOS não existe esse campo, dever ser somente QUANTIDADE.

Verifique.

[ ]'s

Noobezinho,

Corte cirúrgico.

Obrigado Cleverson

Melhorei o texto da msgbox:

MsgBox "Quantidade acima do disponível em estoque que é de: " & _
qtdStok, vbInformation, _
"Quantidade acima do estoque"



[]'s

Bem como diz o ditado, um pouco, dois é bom, viu Noobezinho(rsrsrs)!!


Então,  Amanda favor testar o arquivo alterado abaixo, aqui funfou legal.


Apenas para registro, foram as seguintes alterações:


Ao escolher o produto,  é feita a verificação da quantidade da venda em relação ao estoque e do código de barras;

Se ok, faz a atualização do estoque da tabela PRODUTOS, sendo que vc mandou mais duas tabelas com essa finalidade(ESTOQUE e ENTRADA_ESTOQUE);

E atualiza as tabelas VENDAS e DETALHES_VENDAS.


Abraços,

Olá boa tarde, desculpe ter respondido agora é entrei de serviço somente agora.

Vou testar ambos os exemplos, tenho certeza que deve ter ficado excelente

Muito obrigada

Boa noite amanda, aqui esta funfando normal. Quanto ao botao esta desabilitado, ele sera habilitado se o procedimento puder ser efetivado.

Boa Noite a todos.

Meus amigos, gostaria de agradecer aos amigos Tauron, Noobezinho e Cleverson_Manaus, por terem ajudado a resolver o problema, sem vocês nunca chegaria a esta solução.
As vezes as dicas envolvem programação e para quem não tem familiarização se torna muito dificil.

Obrigada novamente, testei todos os exemplos e ficaram ótimos, Deus os abençoe e recompense pelo tempo gasto com as duvidas de todos aqui do forum.

Na terça-feira vou continuar testanto, pois estarei de serviço, e ai retorno para dar o tópico por resolvido, um grande abraço e uma ótima semana a todos.

Outra sugestão, um evento pra cancelar item antes de pagar.

Tipo o cliente vai pegando os produtos sem calcular o total, na hora de pagar está com o dinheiro a menor.

Abraços,

Olá amigo, gostei da sugestão, mas como consigo fazer isso, poderia mostrar.

Vou ver por aqui, assim que conseguir posto.

Abraços,

Boa noite Amanda,


Bem, tentei cancelar somente um determinado produto, mas não consegui, acho que através de uma listbox conseguiria,  sem tempo para testar.

Então, o procedimento que consegui cancela toda a venda.

Caso algum colega consiga melhorar para cancelar somente um determinado produto, agradeço e vou querer aprender também.

Abraços,

Olá Cleverson_manaus, vou ver tenho certeza que ficou ótimo, vamos aguardar para ver se algum colega consegue cancelar um determinado produto assim aprendemos todos juntos.

Bom carnaval a todos

Up

Bom aqui eu consegui anular cancelar a venda toda, ou seja, se a lista de produtos possuir tipo dez itens todos serao cancelados.

Bom dia Tauron, e a todos do forum

No nosso exemplo do Cleverson_manaus está fazendo isso mesmo que o amigo relatou, estamos no aguardo de alguma amigo que tenha uma solução para apagar determinado item de uma compra, para que todos possamos aprender.
Obrigada pela força e vamos continuar aguardando.
Valeu

Estava aguardando seu retorno. Vou comecar a trabalhar nele entao.

Amanda, tente adaptar e aprimorar este codigo (a ressaca ta acabando comigo):

Este codigo eh para uma unica lista

If Me.list_cod.ListIndex > -1 Then
Me.list_cod.RemoveItem (Me.list_cod.ListIndex)
Me.list_cod = Null
Else
MsgBox "Não foi selecionado um ítem", vbCritical, "Erro"
End If

Up

Up

Amanda, na minha opiniao, penso que deveria estudar a possibilidade de utilizar apenas uma listbox para "escolher" os produtos. O que com o codigo que postei anteriormente resolveria tranquilamente

Concordo com o Tauron.

Ficará bem mais simples.

Obs.: Se estiver fazendo caixa para frente de loja, a coisa é bem diferente.

Precisará de um modulo fechado com os comando da ECFm e deve ser homologado pela receita estadual, e os produto são impressos 1 a 1,

veja os cupons fiscal de supermercados, etc, etc...

Se for isso, antes de continuar procure saber mais, cada estado tem suas exigências.

Tem empresas que vendem/alugam esse módulos fiscais.

[ ]'s

Olá amigos boa tarde, demorei para responder pois estava viajando, tauron e Noobezinho, a minha curiosidade de como reitrar apenas um determinado produto da lista e voltar para o estoque como se nada tivesse ocorrido, é tom somente como aprendizado, não uso comercialmente no meu trabalho há necessidade de se controlar os materiais em estoque, as vezes pega e devolve no mesmo dia, por isso gostaria de fazer essa adaptação, não tenho esse conhecimento, conto com ajuda dos amigos.
Abraço

Amanda

Veja então o exemplo do Alexandre Fim, nesse Tópico

Creio que servira como uma luva para o que pretende.

[ ]'s

vou ver, obrigada