MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Alterar campo de vários registros em formulário contínuo

    avatar
    Betemps
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 25/02/2013

    [Resolvido]Alterar campo de vários registros em formulário contínuo Empty [Resolvido]Alterar campo de vários registros em formulário contínuo

    Mensagem  Betemps 18/12/2013, 21:01

    Olá pessoal,
    possuo a "Tabela1" com vários campos e um destes possui o nome de "Selecionado". O campo "Selecionado" possui o valor de Sim/Não e é apresentado em forma de Caixa de Seleção no formulário contínuo de nome "Form1". Este campo "Selecionado" existe apenas para selecionar os registros que pretendo incluir em um relatório.
    Vamos ao problema: no rodapé do formulário contínuo inseri dois botões de nome "SelecionarTodos" e "LimparSeleção", com a finalidade de atribuir o valor Sim/Não ao campo "Selecionado" em todos os registros filtrados no formulário, porém não encontrei nenhuma função que desempenhe esta tarefa.
    avatar
    Convidado
    Convidado


    [Resolvido]Alterar campo de vários registros em formulário contínuo Empty Re: [Resolvido]Alterar campo de vários registros em formulário contínuo

    Mensagem  Convidado 18/12/2013, 21:41

    Boa noite Tiago.

    Seja bem vindo ao fórum.

    Os exemplos abaixo servem para todos os registros da tabela:

    Para marcar com NÃO:

       Dim strSql As String
       Dim Banco As DAO.Database
       Set Banco = CurrentDb
       
       
       strSql = "UPDATE Tabela1 SET Tabela1.Selecionado = No;"

       Banco.Execute strSql

    Para marcar como SIM, altere somente a seguinte linha:

       strSql = "UPDATE Tabela1 SET Tabela1.Selecionado = Yes;"


    Se você usar algum filtro no seu formulário contínuo, precisará passar os critérios para a expressão sql.


    Nivaldo.
    avatar
    Betemps
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 25/02/2013

    [Resolvido]Alterar campo de vários registros em formulário contínuo Empty Re: [Resolvido]Alterar campo de vários registros em formulário contínuo

    Mensagem  Betemps 19/12/2013, 15:08

    Funcionou!
    Estou utilizando apenas o "Selecionado" = Não.
    Obrigado pela atenção.
    avatar
    Convidado
    Convidado


    [Resolvido]Alterar campo de vários registros em formulário contínuo Empty Re: [Resolvido]Alterar campo de vários registros em formulário contínuo

    Mensagem  Convidado 20/12/2013, 16:52

    Obrigado pelo retorno Tiago.


    O forum agradece.


    Nvaldo.

    Conteúdo patrocinado


    [Resolvido]Alterar campo de vários registros em formulário contínuo Empty Re: [Resolvido]Alterar campo de vários registros em formulário contínuo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:09