Amigos necessito de ajuda dos senhores com esse código. O mesmo é do (Balém).
Estou tentando atualizar o estoque mas está dando um erro! Erro 424, O objeto é obrigatório.
Me ajudem por favor a analisar esse código, estou com a cuca saindo fumaça, e não consegui encontrar o erro.
Private Sub Comando47_Click()
Dim i As Integer, ItemVenda As Recordset
Dim rsEstoque As Recordset, frm As Form
DataHoraAtual = Date
' Objeto subform subfrmDetalhesVendas
Set frm = Me![SubLupercio].Form
Set ItemVenda = frm.RecordsetClone
' Vai para o primeiro item do subfrmDetalhesVendas
ItemVenda.MoveFirst
' Abre a tabela
Set rsEstoque = db.OpenRecordset("tblProdutos", dbOpenTable)
' tblProdutos: Atualização dos estoques
rsEstoque.Index = "PrimaryKey" 'Seleciona a chave primária como índice
'Inicia o "loop" em todos os itens da venda do subfrm
For i = 1 To ItemVenda.RecordCount
'Encontra o item da venda na tabela rsEstoque
rsEstoque.Seek "=", ItemVenda!IdProduto
' Pemite a Edição do produto cujo estoque está sendo atualizado
rsEstoque.Edit
' Atualiza o estoque retirando a quantidade solicitada
rsEstoque!Estoque = rsEstoque!Estoque - ItemVenda!Qtdade
rsEstoque!dtUltimaVenda = Date
rsEstoque.Update
rsEstoque.Close
Set rsEstoque = Nothing
db.Close
Set db = Nothing
' conclui a venda e vai para novo registro
DoCmd.GoToRecord acDataForm, "FormPrincipal", acNewRec
Next
End Sub
Está em vermelho onde está dando o erro!
Desde já agradeço antecipadamente!
Estou tentando atualizar o estoque mas está dando um erro! Erro 424, O objeto é obrigatório.
Me ajudem por favor a analisar esse código, estou com a cuca saindo fumaça, e não consegui encontrar o erro.
Private Sub Comando47_Click()
Dim i As Integer, ItemVenda As Recordset
Dim rsEstoque As Recordset, frm As Form
DataHoraAtual = Date
' Objeto subform subfrmDetalhesVendas
Set frm = Me![SubLupercio].Form
Set ItemVenda = frm.RecordsetClone
' Vai para o primeiro item do subfrmDetalhesVendas
ItemVenda.MoveFirst
' Abre a tabela
Set rsEstoque = db.OpenRecordset("tblProdutos", dbOpenTable)
' tblProdutos: Atualização dos estoques
rsEstoque.Index = "PrimaryKey" 'Seleciona a chave primária como índice
'Inicia o "loop" em todos os itens da venda do subfrm
For i = 1 To ItemVenda.RecordCount
'Encontra o item da venda na tabela rsEstoque
rsEstoque.Seek "=", ItemVenda!IdProduto
' Pemite a Edição do produto cujo estoque está sendo atualizado
rsEstoque.Edit
' Atualiza o estoque retirando a quantidade solicitada
rsEstoque!Estoque = rsEstoque!Estoque - ItemVenda!Qtdade
rsEstoque!dtUltimaVenda = Date
rsEstoque.Update
rsEstoque.Close
Set rsEstoque = Nothing
db.Close
Set db = Nothing
' conclui a venda e vai para novo registro
DoCmd.GoToRecord acDataForm, "FormPrincipal", acNewRec
Next
End Sub
Está em vermelho onde está dando o erro!
Desde já agradeço antecipadamente!
- Anexos
- ERRO CODIGO.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (40 Kb) Baixado 7 vez(es)