MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Atualizar campos de uma tabela com critérios usando sql ou ?

    Compartilhe

    joaodepa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/12/2013

    [Resolvido]Atualizar campos de uma tabela com critérios usando sql ou ?

    Mensagem  joaodepa em Sab 11 Jan 2014, 17:25

    Agradecendo a todos já consegui evoluir muito através do Fórum.

    Preciso desta ajuda

    Tenho um formulário pai onde eu filtro parcelas de um contrato de aluguel em um subformulário filho.
    Eu quero colocar um botão com uma caixa de texto que atualize minha tabela aluguel com o valor da caixa de texto, baseado nestes critérios?

    Atualizar valor de Aluguel campo [vl_alug] tabela alug

    1° somente do contrato filtrado no formulário filho

    2° das Parcelas > com vencimento superior a operação campo [venc] > date


    Tentei isso FUNCIONA porém não consigo colocar esses critérios >>> e atualiza apenas o "primeiro registro" filtrado no formulário filho


    Private Sub BtReajuste_Click()
     

    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Alug")
    rs.Edit
    rs("vl_alug") = ([TxReajuste] / 100 + 1) * vl_alug
    rs.Update
    rs.Close
    db.Close





    End Sub
         
    Caso alguém saiba outra forma mais simples de fazer isso eu agradeço a sugestões " Exemplo campo sim não " atualizar somente esses


    Última edição por joaodepa em Dom 12 Jan 2014, 12:49, editado 1 vez(es)

    joaodepa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 10/12/2013

    Resolvi

    Mensagem  joaodepa em Dom 12 Jan 2014, 00:09


    Private Sub BtReajuste_Click()

    DoCmd.RunSQL ("update Alug set vl_alug =(([TxReajuste]/100+1)*[vl_alug]) Where Cont = Cod_con AND Recebido = False AND Venc > DtReajuste;")

    End Sub

    Funcionando perfeitamente

    Agora preciso de ajuda nisso quando aperto o botão o proprio access me diz que a ação ira modificar tantas linhas que não poderá desfazer, PORÉM quando o Usuário clica em Não aperece aquela mensagem de erro e pede para depurar

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: [Resolvido]Atualizar campos de uma tabela com critérios usando sql ou ?

    Mensagem  Alexandre Neves em Dom 12 Jan 2014, 09:43

    Bom dia,
    Mantenha o título. Marque Resolvido no botão apropriado
    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Dom 04 Dez 2016, 12:12