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]duvida na instrução for next

    Compartilhe

    vidaboa1978
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 19/10/2011

    [Resolvido]duvida na instrução for next

    Mensagem  vidaboa1978 em Dom 26 Abr 2015, 13:36

    Bom dia,

    Estou tendo um problema que é o seguinte, eu criei uma caixa de listagem aonde eu seleciono alguns itens e quando eu aperto um botão este deveria atualizar o campo somente dos itens selecionados. Mas o que acontece e que todos os itens da tabele são atualizados.

    Dim Sel As Variant
    filtro = "in("
    For Each Sel In Me!Lista0.ItemsSelected

    CurrentDb.Execute "Update tblimoveis Set ALUGADO = yes"

    Exit For
    Next

    Se alguem puder me ajudar eu agradeço desde já.
    ps . Como sou principiante eu copia esse código de um exemplo que peguei então não sei se ele bem montado devido a minha copia .
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1153
    Registrado : 21/01/2012

    Re: [Resolvido]duvida na instrução for next

    Mensagem  Cláudio Más em Ter 28 Abr 2015, 13:10

    Bom dia,

    Falta a cláusula Where na instrução Update.

    O código deixa dúvida em como será executada a instrução: dentro do loop (aplicando o Where de acordo com o item selecionado) ou fora do loop, a partir da variável filtro (que deveria estar sendo "montada" dentro do loop).

    O Exit For não está fazendo sentido.

    E ainda faltam outras informações para ajudar com o código (qual é o campo selecionado na caixa de listagem, estrutura da tblimoveis).

    vidaboa1978
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 19/10/2011

    Re: [Resolvido]duvida na instrução for next

    Mensagem  vidaboa1978 em Ter 28 Abr 2015, 17:16

    Vou tentar melhorar estou anexando o arquivo, e nele só há um formulário que é nele que estou estudando. Neste podemos selecionar mais de um imovel  e eu gostaria de atualizar alguns campos das tabelas TblImoveis, TblContrato, TblAluguel.

                     Desde já agradeço a ajuda.
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1153
    Registrado : 21/01/2012

    Re: [Resolvido]duvida na instrução for next

    Mensagem  Cláudio Más em Sab 09 Maio 2015, 00:44

    Vê se é isso:

    Código:
    i = 0
    For Each Sel In Me!Lista0.ItemsSelected
        CurrentDb.Execute "Update tblimoveis Set ALUGADO = Yes Where IdImovel = " & Me!Lista0.ItemsSelected(i)
        i = i + 1
    Next

    vidaboa1978
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 19/10/2011

    Re: [Resolvido]duvida na instrução for next

    Mensagem  vidaboa1978 em Qui 14 Maio 2015, 23:37

    Eu consegui com o seguinte codigo :

    dim Sel As Variant

    For Each Sel In Me!Lista88.ItemsSelected
    CurrentDb.Execute " update tblimoveis set Alugado = -1, idcontrato = " & Me!IDCONTRATO & ""
    Next Sel


    Mas o problema é que ele atualiza todas as linhas da tabela e NÃO apenas a que eu selecionei, o que devo fazer
    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1153
    Registrado : 21/01/2012

    Re: [Resolvido]duvida na instrução for next

    Mensagem  Cláudio Más em Sex 15 Maio 2015, 14:34

    Novamente:
    Código:
    dim Sel As Variant
    i = 0
    For Each Sel In Me!Lista88.ItemsSelected
        CurrentDb.Execute "update tblimoveis set Alugado = -1, idcontrato = " & Me!IDCONTRATO & " Where IdImovel = " & Me!Lista88.ItemsSelected(i)
        i = i + 1
    Next Sel

    vidaboa1978
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 19/10/2011

    Re: [Resolvido]duvida na instrução for next

    Mensagem  vidaboa1978 em Sex 15 Maio 2015, 17:08

    opaaa! Eu estava errando estava faltando uma aspas.

    Mas esta acontecendo o seguinte se eu selecionar mais de um imovel ele atualiza o primeiro item da tabela que não foi selecionado e mais um dos que selecionei, e não os dois que foram selecionados na caixa de listagem.

    Obrigado e desculpe pelo erro que eu não estava enxergando !!!

    vidaboa1978
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 19/10/2011

    Re: [Resolvido]duvida na instrução for next

    Mensagem  vidaboa1978 em Ter 19 Maio 2015, 22:20

    Consegui aqui com algumas modificações,

    Mas agradeço muito sem a sua ajuda eu não consegueria !!!!!!


    Grande Abraço
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]duvida na instrução for next

    Mensagem  Alexandre Neves em Qui 21 Maio 2015, 11:22

    falta o Resolvido


    .................................................................................
    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

    vidaboa1978
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 19/10/2011

    Re: [Resolvido]duvida na instrução for next

    Mensagem  vidaboa1978 em Qui 21 Maio 2015, 13:41

    Obrigado pela dica do resolvido

      Data/hora atual: Qua 20 Set 2017, 20:52