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]Alteração de Preços

    avatar
    msilveir
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    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 : 229
    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 : 229
    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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/12/2019, 18:09