[Resolvido]Loop em acCheckBox

Preciso utilizar o código abaixo, mas ele só funciona no registro com o fóco, não faz o loop pelos registros do formulário

Public Function desmarca_kSel(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls

If ((ctl.ControlType = acCheckBox) And (ctl.Name = "kSel")) Then
ctl.Value = 0
End If

Next ctl
End Function

Chamar: Call desmarca_kSel(Forms!fr5Flx6a!fr5Flx6z.Form!fr5Flx6bc.Form)


Se alguem puder me indicar o que está incorreto, fico agradecido.

À primeira vista, colocaria ctl= 0 em vez de ctl.Value = 0

Não isole o If, faça deste jeito;

Public Function desmarca_kSel(frm As Form)
Dim ctl As Control
For Each ctl In frm.Controls

If (ctl.ControlType = acCheckBox) And (ctl.Name = "kSel") Then
ctl.Value = 0
End If

Next ctl
End Function


Para Chamar dentro do próprio formulario é:

Call desmarca_kSel(Me)

Alexandre e Jpaulo,

Alterei para ctl = 0 - Não funcionou

Retirei os parenteses do if e também não funcionou.

Preparei um pequeno exemplo para facilitar:

http://www.speedyshare.com/files/29823204/Ex_CheckBox.mdb

Necessito usar em uma Public Function, pois chamo esse mesmo código de vários formulários.

Volto a lembrar aos membros do fórum que, além de pedirem ajuda, devem ir acompanhando as dúvidas e resoluções dos outros para irem aprendendo e não esperarem que lhes faça uma solução à medida!
Em várias dúvidas, tem-se alertado para o facto que um sub-formulário não é tratado de igual forma que um formulário. ora, mencionou formulário quando se trata de sub-formulário
Não denominem os controlos iguais aos nomes dos campos. Quando referem um nome, são capazes de me dizer se é interpretado como controlo ou como campo?

Para o que pretende, faça

Private Sub Comando2_Click()
CurrentDb.Execute "UPDATE Tabela1 SET KSel=0;"
fr2.Requery
End Sub

Alexandre,

Infelizmente o UPDATE não atende minha necessidade, preciso mesmo de um loop chamado no formulário com aplicação nos registros de um sub-formulário, e ainda que o mesmo seja chamado em uma Public Function.

Trata-se de um controle de Fluxo de Caixa, aonde a tabela é acessada em vários fronts simultaneamente, e o uso do UPDATE fica com o Where muito extenso. Com um loop posso ter o mesmo resultado com apenas uma linha de chamada, alem de usa-lo em formulários com as mesmas características mas outras funcionalidades.

Agradeço sua boa vontade e a do JPaulo, e espero continuar contando com vossa ajuda.

Veja se o atende;

http://www.speedyshare.com/files/29825846/Ex_CheckBox_OLD.rar


Public Function desmarca_kSel(frm As Form)
Dim Rs As DAO.Recordset
Dim F As DAO.Field
Set Rs = frm.RecordsetClone
With Rs
.MoveFirst
Do Until .EOF
For Each F In .Fields
If F.Type = 1 And F.Name = "KSel" Then
Rs.Edit
F.Value = 0
Rs.Update
End If
Next
.MoveNext
Loop
.Close
End With
End Function

JPaulo,

Perfeito!

Fico-lhe muito grato pela ajuda e que Deus continue sempre a ti iluminar.

Abraços.

Obrigado pelo retorno, o fórum agradece.