[Resolvido]Erro código baixa de estoque!

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!

Tente
Set rsEstoque = CurrentDb.OpenRecordset("tblProdutos", dbOpenTable)


Outra coisa,
nao vi o campo dtUltimaVenda na sua tabela

Altere tbm
rsEstoque!DataHoraAtual = Date

Saudacoes !

Obrigado Silva essa parte para abrir a tabela e a data eu havia resolvido agora está dando outro erro.

Qual erro ?

Silva agora da erro nessa linha!

rsEstoque.Seek "=", ItemVenda!CodProduto

erro em tempo de execução 3265
item não encontrado nessa coleção.

Ja está a funcionar só que no subformulário só poder um intem, se não ocorre 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![SubLupa].Form
Set ItemVenda = frm.RecordsetClone
' Vai para o primeiro item do subfrmDetalhesVendas
ItemVenda.MoveFirst
' Abre a tabela
Set rsEstoque = CurrentDb.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!CodProduto
' 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!Quantidade
rsEstoque!DataUltimaVenda = Date

rsEstoque.Update
rsEstoque.Close
Set rsEstoque = Nothing

Set db = Nothing
' conclui a venda e vai para novo registro
DoCmd.GoToRecord acDataForm, "FormPrincipal", acNewRec
Next

End Sub

Olha o erro que está ocorrendo se houver mais que um produto no subform.

Erro em tempo de execução 91

a variável do objeto ou variável do bloco Whit, não foi definida.


ai aponta para essa linha:

rsEstoque.Seek "=", ItemVenda!CodProduto

Estou sem acesso ao access aqui agora

Posso estar falando besteira mas na parte onde fala "For i = 1 To ItemVenda.RecordCount" esse for vai ser feito uma vez então acredito que tiver mais de um registro vai dar erro


Ja tentou usar o While

While Not ItemVenda.EOF
......
Wend


Desculpe em não poder te ajudar mas tem muito fera ai que vai resolver seu problema

Saudações !

Obrigado Silva, vou aguardar algum ninja para poder me ajudar:D  

Alguém para dar uma luz!

Resolvido obrigado pela ajuda dos senhores!