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]Ao clicar em aprovar compra, aprovar selecionadas

    Compartilhe

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    [Resolvido]Ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  thiagonsilvaa em Sex 25 Ago 2017, 01:40

    Boa noite !!!
    Estou esbarrando num problema que to tentando resolver mas não consigo, venho solicitar ajuda.
    Tenho a tbl_ordensdecompra que tem os campos selecionar e aprovado
    No form lista de ordens de compra tenho um subform com a lista de ordens de compra originado da mesma tabela "tbl_ordensdecompra"
    A ideia é: Ao selecionar todas as ordens de compra marcando o campo "selecionar" ao clicar no botão "aprovar compras" marcar o campo "aprovado" correspondente a todas as ordens marcadas.

    Alguém poderia me dar uma luz de como resolver esse problema ?
    Gratidão !
    Abraços.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  FabioPaes em Sex 25 Ago 2017, 13:50

    Simples, realize um UPDATE na tabela, levando como critério o campo "Selecionado=-1". Assim irá atualizar o Campo Aprovado dessas ordens marcadas. Apos marcar a aprovação, desmarque o campo SELECIONADO, para não dar problemas futuros.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  thiagonsilvaa em Sex 25 Ago 2017, 14:13

    Bom dia meu caro !
    O código ficaria dessa forma ? Estou tentando mas n obtive sucesso ainda.
    Código:
    CurrentDb.Execute "UPDATE [Tbl_OrdensDeCompra]SET Aprovado = -1 WHERE Forms![ListaOrdens]![Sub_ListaOrdens]![txtselecionar]= -1 "
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  FabioPaes em Sex 25 Ago 2017, 14:17

    Quase isso!

    DoCmd.RunCommand acCmdSaveRecord 'Para salvar as alteraçoes
    'Marca o campo Aprovado.
    CurrentDb.Execute "UPDATE [Tbl_OrdensDeCompra] SET Aprovado = -1 WHERE Selecionado= -1"


    Selecionado é o nome do campo da tabela, que vc marca ele no formulario para dizer que quer aprovar esse registro.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    Ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  thiagonsilvaa em Sex 25 Ago 2017, 14:24

    Excelente !!!
    No caso para eu desmarcar o campo selecionar logo após marcar o aprovar, como faria ?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  FabioPaes em Sex 25 Ago 2017, 17:30

    CurrentDb.Execute "UPDATE [Tbl_OrdensDeCompra] SET Selecionado=0 WHERE Selecionado=-1"
    Coloque essa linha logo apos aprovar as ordens!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    thiagonsilvaa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 89
    Registrado : 12/01/2017

    ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  thiagonsilvaa em Sex 25 Ago 2017, 19:22

    Boa tarde meu caro !
    Não há problema de eu colocar várias linhas com o "update"?
    Por exemplo: update x
    Update y
    Update z
    ...

    Não sabia disso
    Problema resolvido
    Qualquer dúvida, reabro outro tópico ! Gratidão
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3412
    Registrado : 14/08/2013

    Re: [Resolvido]Ao clicar em aprovar compra, aprovar selecionadas

    Mensagem  FabioPaes em Sex 25 Ago 2017, 21:37

    Nao Ha problema... Mas podemos em um unico update, atualizar varios Campos de um mesmo registro. Nesse caso dividi em 2 update para garantir que nao haja erro de um registro ser desmarcado antes de realmente ser autorizada a OS.

    Ate a proxima se Deus quiser.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Sab 18 Nov 2017, 08:06