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


2 participantes

    [Resolvido]Atualizar tabela de preço

    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar tabela de preço Empty [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade 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
    [Resolvido]Atualizar tabela de preço Attachmentatualizar_Preco.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (101 Kb) Baixado 28 vez(es)
    avatar
    farmdillenburg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    [Resolvido]Atualizar tabela de preço Empty Re: [Resolvido]Atualizar tabela de preço

    Mensagem  farmdillenburg 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
    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar tabela de preço Empty Re: [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade 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
    avatar
    farmdillenburg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    [Resolvido]Atualizar tabela de preço Empty Re: [Resolvido]Atualizar tabela de preço

    Mensagem  farmdillenburg 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
    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar tabela de preço Empty Re: [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade 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.
    avatar
    farmdillenburg
    Novato
    Novato


    Respeito às regras : Respeito às Regras 75%

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

    [Resolvido]Atualizar tabela de preço Empty Re: [Resolvido]Atualizar tabela de preço

    Mensagem  farmdillenburg 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.
    avatar
    jntrindade
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Atualizar tabela de preço Empty Re: [Resolvido]Atualizar tabela de preço

    Mensagem  jntrindade 18/4/2018, 13:44

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

    Conteúdo patrocinado


    [Resolvido]Atualizar tabela de preço Empty Re: [Resolvido]Atualizar tabela de preço

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:22