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

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    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: Sab 10 Dez 2016, 06:53