[Resolvido]Recuperar valor de uma caixa de listagem e atribuir valores chekbox

Bom dia !

Queria saber teria uma comando de laço de repetição para percorrer uma linha de uma caixa de listagem, e assim retorna o valor da coluna da tabela (sim ou Não) e atribuir o valor a checkbox no frm.

Exemplo de códigos manipulando listboxes

varrendo
usandoaccess.com.br/dicas/desmarcar-itens-listbox.asp

capturando valores
usandoaccess.com.br/dicas/exibir-relatorios-itens-listbox.asp

boa tarde!

dei uma olhada ontem nos arquivos que me mandou, conseguir extrair algumas coisa e cheguei nesse comando parame ajuda no que preciso, mais to fazendo algo errado, porque ele não esta alimentando a caixa de listagem de acordo o meu filtro

código
Dim strListar As String
strListar = "SELECT * FROM Usuario where login=" & Me.txtUsuario & ""
Me!cxlUsuarioFiltro.RowSource = strListar


Me.cxlUsuarioFiltro.Requery

o que estou fazendo de errado?

anexe aqui seu banco com os objetos envolvidos para análise.

coloquei uma Label tentando explica o que to querendo de verdade , mais muito obrigado pela ajuda ate aqui.

Código:

strListar = "SELECT * FROM Usuario where login=""" & Me.txtUsuario & """"

Seria isso mesmo !

Mais não consigo recuperar os valores da tabela para checkbox do frm, Como posso fazer isso ?

Para carregar a caixa de listagem você usou
SELECT * ...

O asterisco significa que você quer que todos os campos da tabela sejam trazidos. Abra a tabela que dá origem ao controle (Tabela de usuários) e veja quantos campos há nela. A quantidade de campos que há lá, deve ser colocado na propriedade número de colunas do controle listbox, pois se não for assim o Access os ignorará. Depois disso basta seguir do código que já está no evento Duplo Clique da listbox.

Me.ChekBoxTal = me.NomeDaListboxUsuarios.Column(NumeroTal)

Lembrando que a contagem das colunas na listbox começa do zero.

bom dia !

Dessa forma atribuindo para cada checkBox eu tinha feito, mais que durante a evolução do sistema vai ter mais checkbox, a minha grande duvida é se teria como fazer essa atribuição automática, dinâmica?

onde to quebrando cabeça, em criar um laço de repetição onde ele pegar o valor da tabela e coloque no checkbox

teria como?

O assunto controle de permissões de usuário já é batido neste fórum
https://www.maximoaccess.com/t36003-video-aula-sistema-de-controle-de-usuarios

Se você terá mais checkbox então certamente sempre terá que ficar criando campos na tabela usuários e alterando a propriedade número de colunas na listbox. A melhor forma de se ter esse controle e de ser fácil a manutenção é o mostrado no link no início da mensagem.

Boa sorte, bons estudos.

Bom dia !!

Bom depois de quebra a cabeça varias e varias vezes consegir resolver o problema....
vou colocar aqui para se alguém tiver alguma dúvida a respeito.


For Each ctl In Me.Controls 'percorre todos os controle do frm
Select Case ctl.ControlType 'passar para variavel ctl o tipo de controle
Case acCheckBox 'entra no case se controle for chekbox
strNameChekBox = ctl.Name 'passar o nome da chekbox para variavel
rst1(strNameChekBox) = Me(strNameChekBox) 'indica para tabela o nome da checkbox que vai ser alterado e o valor da chekbox do frm
End Select

MUITO OBRIGADO PELAS DICA E AJUDA IvanJr.!!!!!!

O fórum agradece o retorno. Sucesso.