Boa noite!
Bd em access 2010.
Formulário contínuo possui a caixa de seleção chamada "Detalhar".
Pode ser selecionado um ou vários registros para visualização.
O objetivo é desmarcar todos os registros marcados.
Encontrei no Fórum um código que funcionou... ele marca ou desmarca todos os registros (o que é muito bom). Porém como se trata de um formulário contínuo, ele percorre todos os registros, tanto para marcar, quanto para desmarcar, o que demora um certo tempo, por causa da quantidade de registros.
Gostaria de um código que fizesse esse processo de forma instantânea, ou seja, que marque ou desmarque tudo de uma vez.
Desde já agradeço!
Segue código que encontrei no Fórum:
Dim x As Long
x = Me.CurrentRecord
Me.Recordset.MoveFirst
If Me.Detalhar.Value = False Then
Do While Not Me.Recordset.EOF
Me.Detalhar.Value = True
Me.Recordset.MoveNext
Loop
Me.Recordset.MoveFirst
If x > 1 Then Me.Recordset.Move x - 1
ElseIf Me.Detalhar.Value = True Then
x = Me.CurrentRecord
Me.Recordset.MoveFirst
Do While Not Me.Recordset.EOF
Me.Detalhar.Value = False
Me.Recordset.MoveNext
Loop
Me.Recordset.MoveFirst
If x > 1 Then Me.Recordset.Move x - 1
End If
Bd em access 2010.
Formulário contínuo possui a caixa de seleção chamada "Detalhar".
Pode ser selecionado um ou vários registros para visualização.
O objetivo é desmarcar todos os registros marcados.
Encontrei no Fórum um código que funcionou... ele marca ou desmarca todos os registros (o que é muito bom). Porém como se trata de um formulário contínuo, ele percorre todos os registros, tanto para marcar, quanto para desmarcar, o que demora um certo tempo, por causa da quantidade de registros.
Gostaria de um código que fizesse esse processo de forma instantânea, ou seja, que marque ou desmarque tudo de uma vez.
Desde já agradeço!
Segue código que encontrei no Fórum:
Dim x As Long
x = Me.CurrentRecord
Me.Recordset.MoveFirst
If Me.Detalhar.Value = False Then
Do While Not Me.Recordset.EOF
Me.Detalhar.Value = True
Me.Recordset.MoveNext
Loop
Me.Recordset.MoveFirst
If x > 1 Then Me.Recordset.Move x - 1
ElseIf Me.Detalhar.Value = True Then
x = Me.CurrentRecord
Me.Recordset.MoveFirst
Do While Not Me.Recordset.EOF
Me.Detalhar.Value = False
Me.Recordset.MoveNext
Loop
Me.Recordset.MoveFirst
If x > 1 Then Me.Recordset.Move x - 1
End If