[Resolvido]duvida na instrução for next

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 .

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

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.

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

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

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

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

Consegui aqui com algumas modificações,

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


Grande Abraço

falta o Resolvido

Obrigado pela dica do resolvido