MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

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

    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 18/8/2019, 15:59

    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.

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 18/8/2019, 19:44

    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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 19/8/2019, 17:34

    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?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 19/8/2019, 18:59

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


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 19/8/2019, 19:27

    coloquei uma Label tentando explica o que to querendo de verdade , mais muito obrigado pela ajuda ate aqui.
    Anexos
    [Resolvido]Recuperar valor de uma caixa de listagem e atribuir valores chekbox AttachmentSISGV 5.0 - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (631 Kb) Baixado 9 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 19/8/2019, 22:37

    Código:
    strListar = "SELECT * FROM Usuario where login=""" & Me.txtUsuario & """"


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 22/8/2019, 14:42

    Seria isso mesmo !

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 23/8/2019, 01:18

    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.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 24/8/2019, 13:10

    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?

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 24/8/2019, 16:04

    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.



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    avatar
    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 334
    Registrado : 01/12/2016

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

    Mensagem  Misson Lira em 27/8/2019, 15:33

    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.!!!!!!
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2531
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 29/8/2019, 22:31

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 22/1/2021, 00:41