MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Erro código baixa de estoque!

    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Erro código baixa de estoque!

    Mensagem  Lupércio 20/10/2013, 15:13

    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!
    Anexos
    [Resolvido]Erro código baixa de estoque! AttachmentERRO CODIGO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 7 vez(es)


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    avatar
    Convidado
    Convidado


    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Convidado 20/10/2013, 18:15

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


    Outra coisa,
    nao vi o campo dtUltimaVenda na sua tabela

    Altere tbm
    rsEstoque!DataHoraAtual = Date

    Saudacoes !
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Lupércio 20/10/2013, 19:54

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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    avatar
    Convidado
    Convidado


    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Convidado 20/10/2013, 19:56

    Qual erro ?
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Lupércio 20/10/2013, 20:02

    Silva agora da erro nessa linha!

    rsEstoque.Seek "=", ItemVenda!CodProduto

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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Lupércio 20/10/2013, 20:11

    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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Lupércio 20/10/2013, 20:19

    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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    avatar
    Convidado
    Convidado


    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Convidado 20/10/2013, 20:34

    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 !
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Lupércio 20/10/2013, 21:58

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


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Lupércio 21/10/2013, 02:07

    Alguém para dar uma luz!


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 07/05/2011

    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Lupércio 21/10/2013, 10:41

    Resolvido obrigado pela ajuda dos senhores!


    .................................................................................
    Quando tua dúvida for resolvida, de o retorno de agradecimento á aqueles que gastaram seu tempo para te ajudar.
    Clique no botão “Resolvido” logo acima do botão “Enviar” ao lado direito. Todos nós agradecemos.lol!Rolling Eyes

    Conteúdo patrocinado


    [Resolvido]Erro código baixa de estoque! Empty Re: [Resolvido]Erro código baixa de estoque!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:33