[Resolvido]Limpar dados de uma coluna

Caros, boa tarde !

Sou novato no forum e iniciante em access, tenho uma coluna em uma das tabelas que utilizo com caixa de seleção(sim/não) e utilizo um formulário em que seleciono as linhas que quero(com essa caixa) e fiz uma macro para filtrar os selecionados e exportar. Preciso que me ajudem há: Quando acabar essa operação gostaria de limpar ou zerar todos os ítens selecionados(limpar as caixas de seleção), seria legal que fosse no mesmo botão.

Vlw e abraços

Vitor

Bem-vindo

Teste assim


minhacombo.SelectedIndex = -1

sendo caixas de selecção não é combobox;

Coloque no evento vba ao pressionar do seu botão;

Dim X As Control
For Each X In Me.Controls
If TypeOf X Is CheckBox Then
X = 0
End If
Next X

Desculpe VCMTRJ, tenho que comprar outros óculos.

Bom trabalho

Ricardo e Vieira, boa noite !

Como falei estou trabalhando com uma macro e não saberei reproduzir o que fiz na macro no vba. Converti a macro que estou usando para vb mas não consegui adicionar o que foi passado.

Coloque o código que o amigo Ricardo lhe indicou no seu botão de comando. Assim no evento ao fazer click() limpa todas as caixas de verificação.

Não estava funcionando porque estou utilizando subformulario, mas fiz no formulário e ele apenas apaga o último box seleionado, meu intuito é apagar todos.

Olá de novo

Se você estiver a utilizar o sub na folha de dados é provável que não funcione. Tente em formulário contínuo.

Experimente desta forma no botão:

Dim Control As ctlCurr

For Each ctlCurr In Me.Controls
If TypeOf ctlCurr Is Checkbox Then
ctlCurr = False
End If
Next ctlCurr

Estou Trabalhando no formulário continuo agora. Vieira deu erro.

E o botão está no sub? Faço esta pergunta porque não conheço mais nenhuma forma de limpar as caixas de verificação. É certo que nunca tive necessidade de fazer isso num subform e em formulário esses códigos funcionam bem. Na realidade não existe diferença nenhuma entre o código do Ricardo e o meu..questões de terminologia apenas.

O botão está no form o código do Ricardo apaga apenas a última caixa de seleção que foi selecionada e o seu está dando erro.

Que tipo de erro?

Abre o vb efica selecionado o Private Sub.
Erro de Compilação: O tipo definido pelo usuário não foi definido.

Erro de Compilação: O tipo de finido pelo usuário não foi definido.

Pegando como base o do ricardo coloquei: Dim ctlCurr As Control e funcionou igual ao do Ricardo realmente. Como falei precisava que o comando zerasse todas as seleções. Vou ficar no aguardo então de mais pessoas como vocês que me ajudaram de pronto. Abraços e boa noite !

Ok, amigo, tenho a certeza que alguém vai poder ajuda-lo.

Vitor, coloque uma cópia do seu bd zipada para que possamos ver in loco e poder testar as possibilidades. Pode postar o arquivo zipado aqui mesmo no forum usando os botões Escolher arquivo e Enviar logo abaixo da caixa de mensagem.

Bom dia amigos;

Coloque no evento ao pressionar do seu botão;


Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim strobjControl As Control
Dim strRegistro As Integer

DoCmd.GoToRecord acDataForm, Me.Name, acLast
strRegistro = Form.CurrentRecord

DoCmd.GoToRecord acDataForm, Me.Name, acFirst

While (strRegistro)
For Each strobjControl In Me.Controls
If (strobjControl.ControlType = acCheckBox) Then
strobjControl.Value = Null
End If
Next

strRegistro = strRegistro - 1
If (strRegistro > 0) Then
DoCmd.GoToRecord acDataForm, Me.Name, acNext
End If
Wend

End Sub

Perfeito !!! JPaulo Valeu, ficou exatamente como queria. Valeu a todos pela ajuda. Abraços
Resolvido!

Precisando de novo estamos ae.