[Resolvido]Atualizar tabela de preço

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.

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

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

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

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.

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.

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