MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro código baixa de estoque!

    Compartilhe

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

    Erro código baixa de estoque!

    Mensagem  Lupércio em Dom 20 Out 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
    ERRO CODIGO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (40 Kb) Baixado 4 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Dom 20 Out 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 !


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Lupércio em Dom 20 Out 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Dom 20 Out 2013, 19:56

    Qual erro ?


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Lupércio em Dom 20 Out 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Lupércio em Dom 20 Out 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Lupércio em Dom 20 Out 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 587
    Registrado : 15/11/2011

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

    Mensagem  Rafael Silva em Dom 20 Out 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 !


    .................................................................................
    "Nunca abaixe a cabeça para ninguém,
    nem levante o nariz demais, olho no olho já é o suficiente."

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Lupércio em Dom 20 Out 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Lupércio em Seg 21 Out 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

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

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

    Mensagem  Lupércio em Seg 21 Out 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.[Você precisa estar registrado e conectado para ver esta imagem.][Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 05 Dez 2016, 04:26