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]Alterar campo de vários registros em formulário contínuo

    Compartilhe

    Betemps
    Novato
    Novato

    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

    Mensagem  Betemps em Qua 18 Dez 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
    Nivaldo
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

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

    Mensagem  Nivaldo em Qua 18 Dez 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.

    Betemps
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Betemps em Qui 19 Dez 2013, 15:08

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 08/12/2009

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

    Mensagem  Nivaldo em Sex 20 Dez 2013, 16:52

    Obrigado pelo retorno Tiago.


    O forum agradece.


    Nvaldo.

    Dery_santos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 03/10/2016

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

    Mensagem  Dery_santos em Qui 10 Maio 2018, 20:28

    Pessoal sei que o tópico ja esta fechado, mas estou com um problema quase igual estou usando esse código abaixo para atualizar dado de um campo em formulario continuo, só que presico de um select pois antes de atualizar o campo quero que seja feito um tiltro com o campo RC_antigo e o me.txtinformeRC pois ai me trazem os dados onde o numero da RC_antiga é igual ao me.txtinformeRC só que a RC antiga pode ter vários items e se eu deixar sem filtro alem da RC igual ele traz e acrecenta o numero_LC em todos as outras RC, eu não tenho como mandar o banco pois a base dele esta em sql.


    desde ja agradeço




    Dim rs As Recordset

    Set rs = Me.RecordsetClone



    Do While Not rs.EOF
    rs.Edit
    rs!Numero_LC = Me.txtconsulc.value
    rs.Update
    rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing

      Data/hora atual: Qua 23 Maio 2018, 02:14