MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Alteração de Preços

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]Alteração de Preços Empty [Resolvido]Alteração de Preços

    Mensagem  msilveir em 26/9/2018, 15:18

    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


    avatar
    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 27/11/2017

    [Resolvido]Alteração de Preços Empty Re: [Resolvido]Alteração de Preços

    Mensagem  Ricardo Monteiro em 26/9/2018, 16:13

    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.


    .................................................................................
    Ricardo Freitas Monteiro
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]Alteração de Preços Empty Re: [Resolvido]Alteração de Preços

    Mensagem  msilveir em 27/9/2018, 18:28

    ola Ricardo

    nao consegui fazer conforme voce orientou tem como enviar um exemplo
    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 273
    Registrado : 13/03/2011

    [Resolvido]Alteração de Preços Empty Re: [Resolvido]Alteração de Preços

    Mensagem  msilveir em 27/9/2018, 20:39

    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

      Data/hora atual: 28/9/2020, 12:59