[Resolvido]Alteração de Preços

ola Pessoal

tenho esse código abaixo ele funcional legal

DoCmd.SetWarnings False

MsgBox "Preços Seram Alterados", vbCritical, "Atenção"

DoCmd.RunSQL "UPDATE tbl_CadProd SET Tbl_CadProd.precovenda = [precovenda]* forms!frm_AlterarPrecos!txtpreco +[precovenda]"

MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

DoCmd.SetWarnings True


na caixa de texto txtpreço coloco a porcentagem e blz altera para todos produtos , mas queria um botao com a opcao abaixo

eu gostaria de colocar uma combox com grupo de produtos exemplo

biscoito e ao lado e lstprodutos iria mostrar todos produtos da categoria biscoito

quando clica-se no botao ele altere os precos da quela categoria

1. Cria um formulário (Nome_do_Formulário) qualquer com a sua combobox (Nome_da_Combobox)
2. Cria uma consulta seleção (Nome_da_Consulta_Seleção) com a tabela de produtos, buscando pelo menos a descrição do produto e a categoria dele. No modo de design, no campo Categoria, em Critérios coloque[Formulários]![Nome_do_Formulário]![Nome_da_Combobox], dessa forma a consulta irá trazer apenas os produtos da categoria selecionada.
3. Crie a textbox (Nome_da_textbox) que receberá a porcentagem de alteração dos preços, altere seu formato de número para porcentagem.
4. Crie um consulta atualização (Nome_da_consulta_atualização) cuja tabela é a Consulta se seleção (Nome_da_Consulta_Seleção) anteriormente criada, traga dela, pelo menos o preço. No modo design, no campo Preço da consulta (Nome_da_Consulta_Seleção), em "Atualizar para:" coloque: [Nome_da_Consulta_Seleção]![Preço]*(1+[Formulários]![Nome_do_Formulário]![Nome_da_textbox])
5. Crie um botão, no evento ao clicar coloque os comandos:

Código:

docmd.openquery "Nome_da_consulta_atualização"
me.refresh

Acho que é isso.

ola Ricardo

nao consegui fazer conforme voce orientou tem como enviar um exemplo

Ola Todos

consegui fazer alteracoes de preços de um item , por categoria e todos os itens.
segue codigo para futuros programas

DoCmd.SetWarnings False

MsgBox "Preços dos Produtos serão Alterados Pela a Categorias", vbCritical, "Atenção"

DoCmd.RunSQL "UPDATE tbl_CadProd SET Tbl_CadProd.precovenda = [precovenda]* forms!frm_ListaProdutos!txtpreco +[precovenda]WHERE Categoria = forms!frm_ListaProdutos!txtCategoria ;"

MsgBox "Preços alterados com sucesso!!!", vbInformation, "Obrigado"

Me.ListaProdutos.Requery

Me.txtPreco = ""

Me.txtPreco.SetFocus

Me.txtCategoria = ""


DoCmd.SetWarnings True

onde esta where coloque o campo da tabela

obrigado a todos