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]Atualizar tabela de preço

    Compartilhe

    jntrindade
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 07/12/2009

    [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade em 17/4/2018, 14:00

    bom dia a todos, gostaria de uma ajuda de vcs. Estou com a seguinte situação gostaria de atualizar os preços unitarios da tabela tab_produtos, atraves de uma uma listbox, onde eu filtraria por exemplo por grupo e aplicaria no campo o percentual de aumento ou desconto de todos os produtos filtrado. se possivel via vba.

    desde agradeço a ajuda.
    Anexos
    atualizar_Preco.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (101 Kb) Baixado 9 vez(es)

    farmdillenburg
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/02/2017

    Re: [Resolvido]Atualizar tabela de preço

    Mensagem  farmdillenburg em 17/4/2018, 17:56

    Olá!

    Eu não pude testar, mas imagino que o procedimento abaixo é o que você precisa para tua funcionalidade. Pus duas opções de alteração do valor. Imagino que uma delas apenas é a certa. a outra deveria ser deletada ou posta como comentário.

    Atenciosamente.

    Alexandre.


    Private Sub AtualizaItensLista()
    Dim rs As Recordset
    Dim iA As Integer

    Set rs = CurrentDb.OpenRecordset("Tab_Produto", dbOpenDynaset)

    For iA = 0 To ltxListaProdutos.ListCount
       ltxListaProdutos.ItemData(iA).Value
       rs.FindFirst ("[CódPro]=" & iA)
       rs.Edit
       rs("PreçoCusto") = rs("PreçoCusto") * Texto33.Value     'Opção 1 - inativar conforme o caso
       rs("Percentual") = Texto33.Value                                'Opção 2 - inativar conforme o caso
       rs.Update
       
    Next iA

    Set rs = Nothing

    End Sub

    jntrindade
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 07/12/2009

    Re: [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade em 17/4/2018, 20:41

    amigão ta dando um erro

    Dim rs As Recordset
    Dim iA As Integer

    Set rs = CurrentDb.OpenRecordset("Tab_Produto", dbOpenDynaset)

    For iA = 0 To ltxListaProdutos.ListCount
    ltxListaProdutos.ItemData(iA).Value............................................bem aqui nesse "ItemData(iA)
    rs.FindFirst ("[CódigoProduto]=" & iA)
    rs.Edit
    'rs("PreçoUnitário") = rs("PreçoUnitário") * Texto33.Value 'Opção 1 - inativar conforme o caso
    rs("PreçoUnitário") = Texto33.Value 'Opção 2 - inativar conforme o caso
    rs.Update

    Next iA

    Set rs = Nothing

    farmdillenburg
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/02/2017

    Re: [Resolvido]Atualizar tabela de preço

    Mensagem  farmdillenburg em 17/4/2018, 21:26

    Ok. Façamos nova tentativa.

    Não testei mas imagino que este deva funcionar. Esta estratégia pelo menos deve passar por todos os registros da listbox.

    Atenciosamente,

    Alexandre.



    Private Sub AtualizaItensLista()
    Dim rs, rs2 As Recordset

    Set rs = CurrentDb.OpenRecordset("Tab_Produto", dbOpenDynaset)
    Set rs2 = ltxListaProdutos.Recordset

    rs2.MoveFirst

    Do Until rs2.EOF

    rs.FindFirst ("[CódPro]=" & Trim(rs2("CódProd")))
    rs.Edit
    rs("Percentual") = Texto33.Value
    rs.Update
    rs2.MoveNext
    Loop

    Set rs = Nothing
    Set rs2 = Nothing

    End Sub

    jntrindade
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 07/12/2009

    Re: [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade em 18/4/2018, 02:51

    amigão boa noite, o codigo que vc passou ele ta conseguindo mudar os valores mas ainda nao ta funcionando do jeito que gostaria. Se eu coloco 10% e clico no botao atualizar ele altera o valor igual ao valor do campo. entendeu.

    farmdillenburg
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/02/2017

    Re: [Resolvido]Atualizar tabela de preço

    Mensagem  farmdillenburg em 18/4/2018, 12:57

    Bom dia.

    Acredito que a solução seria mudar, no código informado previamente, a seguinte linha:

    rs("Percentual") = Texto33.Value

    Considerando que o campo do percentual tenha formatação simples, a seguinte linha deveria fazer o que tu precisa:

    rs("Percentual") = Texto33.Value * rs("Percentual") / 100

    Bastaria informar, por exemplo, "110" no campo para que o "Percentual" fosse aumentado em 10%, ou "90" para que fosse diminuído em 10%. Ou, se considerar necessário, informar respectivamente 10 ou -10 neste código alternativo ao anterior:

    rs("Percentual") = rs("Percentual") + (Texto33.Value * rs("Percentual") / 100)

    Caso a formatação do campo seja outra, o cálculo deveria ser modificado conforme o cálculo.

    Qualquer coisa, é só informar.

    Atenciosamente,


    Alexandre.

    jntrindade
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 07/12/2009

    Re: [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade em 18/4/2018, 13:44

    bom dia, valeu pela ajuda era isso mesmo agora ficou bom. obrigado

      Data/hora atual: 21/10/2018, 11:42