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

2 participantes

    [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo

    avatar
    Josiel Avelino dos Santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 20/09/2015

    [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo Empty [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo

    Mensagem  Josiel Avelino dos Santos 7/7/2016, 12:25

    Estou tentando criar um botão para marcar as caixas de seleção dos registros no sub formulário.
    Private Sub btnMarcarTodos_Click()
    Me.Ativo.Value = -1
    End Sub

    Esse comando só marca o primeiro registro.

    Desde já agradeço a atenção e caso alguém possa me ajudar ficarei muito grato.

    Obrigado!


    Última edição por Josiel Avelino dos Santos em 8/7/2016, 00:55, editado 1 vez(es)
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo Empty Re: [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo

    Mensagem  XPTOS 7/7/2016, 21:20

    Geralmente faço com código abaixo!

    Dim db As Database, rsBancos As Recordset
    Set db = CurrentDb
    Set rsBancos = Me.RecordsetClone
    rsBancos.MoveFirst
    Do Until rsBancos.EOF
    If rsBancos!Ativo= True Then ’Nome do botão no evento ao clicar
    rsBancos.Edit
    rsBancos!Ativo= False
    rsBancos.Update
    End If
    rsBancos.MoveNext
    Loop
    rsBancos.Close
    db.Close
    avatar
    Josiel Avelino dos Santos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 20/09/2015

    [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo Empty Re: [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo

    Mensagem  Josiel Avelino dos Santos 7/7/2016, 23:15

    Obrigado! funcionou perfeitamente. Alterei o Btn para uma caixa de seleção
    ficou assim


    Private Sub MarcarTodos_Click()
    If MarcarTodos = 0 Then
    Dim db As Database, rsBancos As Recordset
    Set db = CurrentDb
    Set rsBancos = Me.RecordsetClone
    rsBancos.MoveFirst
    Do Until rsBancos.EOF
    If rsBancos!Quitar = True Then 'Nome do botão no evento ao clicar
    rsBancos.Edit
    rsBancos!Quitar = False
    rsBancos.Update
    End If
    rsBancos.MoveNext
    Loop
    rsBancos.Close
    db.Close
    Else
    Dim db1 As Database, rsBancos1 As Recordset
    Set db1 = CurrentDb
    Set rsBancos1 = Me.RecordsetClone
    rsBancos1.MoveFirst
    Do Until rsBancos1.EOF
    If rsBancos1!Quitar = False Then 'Nome do botão no evento ao clicar
    rsBancos1.Edit
    rsBancos1!Quitar = True
    rsBancos1.Update
    End If
    rsBancos1.MoveNext
    Loop
    rsBancos1.Close
    db1.Close
    End If
    End Sub

    Very Happy Very Happy
    Muito Obrigado!
    XPTOS
    XPTOS
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 596
    Registrado : 20/01/2014

    [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo Empty Re: [Resolvido] Botão para marcar varios registros em um sub formulário do tipo continuo

    Mensagem  XPTOS 8/7/2016, 12:13

    Créditos MaximoAccess!

    Que beleza que ajudou.

      Data/hora atual: 27/1/2022, 00:39