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]Selecionar listbox por código

    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    [Resolvido]Selecionar listbox por código Empty [Resolvido]Selecionar listbox por código

    Mensagem  Alberto Moura em 21/8/2020, 12:31

    Bom dia todos!
    Estou precisando da ajuda dos colegas.
    Como faço para que após digitar a data no textbox seja selecionada a data correspondente no listbox?
    [Resolvido]Selecionar listbox por código Captur11
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1009
    Registrado : 23/09/2011

    [Resolvido]Selecionar listbox por código Empty Re: [Resolvido]Selecionar listbox por código

    Mensagem  cleverson_manaus em 21/8/2020, 15:49

    Bom dia,

    Mas porque digitar na caixa de texto, se pode clicar diretamente na caixa de listagem????



    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    [Resolvido]Selecionar listbox por código Empty Re: [Resolvido]Selecionar listbox por código

    Mensagem  Alberto Moura em 21/8/2020, 15:57

    Essas datas só são inseridas no listbox a medida que é salvo agendamento.
    Conforme imagem veja que na textbox consta 21/08/2020, e no listbox tá selecionado 27/08/2020.
    Preciso que quando digitar a data selecione no listbox a data digitada.
    Sei que pra retirar a seleção do listbox posso utilizar o código Me.list.value=-1
    Tentei utilizar o código Me.list.Column (1) = Me.txtdata.value, não deu certo Sad
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1009
    Registrado : 23/09/2011

    [Resolvido]Selecionar listbox por código Empty Re: [Resolvido]Selecionar listbox por código

    Mensagem  cleverson_manaus em 22/8/2020, 14:32

    Bom dia amigo,

    Mas ainda não entendi sua necessidade.

    A data 21/08, já consta na lista. Se deseja salvar mais um agendamento para essa data, basta clicar na listagem ou salvar a data digitada na caixa de texto.

    Que tal postar o form e tabelas do seu aplicativo.


    Abraços,


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3629
    Registrado : 04/04/2010

    [Resolvido]Selecionar listbox por código Empty Re: [Resolvido]Selecionar listbox por código

    Mensagem  Avelino Sampaio em 26/8/2020, 11:58

    Olá!

    Para marcar um item, terá que percorrer a lista.  Ao percorrer a lista, deverá analisar se as datas coincidem.  Ao coincidir, deverá marcar com a propriedade "selected".   Clique AQUI e veja neste meu artigo como percorrer a lista.  Dentro do FOR o senhor então utilize um IF para testar a data.  Algo assim:

    ...
    If me!Lista.column(0, j) = me!SeuCampoData then ' aonde zero(estou pegando o dado da primeira coluna)
    ...


    Aguardamos
    avatar
    Alberto Moura
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 58
    Registrado : 13/01/2015

    [Resolvido]Selecionar listbox por código Empty Re: [Resolvido]Selecionar listbox por código

    Mensagem  Alberto Moura em 27/8/2020, 14:37

    Obrigado mais uma vez o mestre Avelino Sampaio e ao colega cleverson_manaus.
    Funcionou direitinho... cheers cheers cheers

    Segue o código como ficou:

    Dim n As Integer
    For n = (Me!ListQtdAgendaNotas.ListCount - 1) To 0 Step -1
    '------------------------------
    'Vai marcando item por item
    If Me!ListQtdAgendaNotas.Column(1, n) = Format(txtDataAgendamento, "dd/mm/yyyy") Then ' aonde zero(estou pegando o dado da primeira coluna)
    '------------------------------
    Me!ListQtdAgendaNotas.Selected(n) = True 'seleciona a data de acordo com a txt
    Else
    Me!ListQtdAgendaNotas.Selected(n) = False 'caso não tenha a data no listbox desmarca a seleção anterior
    End If
    Next

      Data/hora atual: 25/10/2020, 20:04