MaximoAccess

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

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
    avatar
    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 6 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.]
    avatar
    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 590
    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."
    avatar
    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.]
    avatar
    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 590
    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."
    avatar
    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.]
    avatar
    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.]
    avatar
    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.]
    avatar
    Rafael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 590
    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."
    avatar
    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.]
    avatar
    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.]
    avatar
    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: Qui 17 Ago 2017, 12:46