MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Alias no listbox modo lista de valores

    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Alias no listbox modo lista de valores Empty [Resolvido]Alias no listbox modo lista de valores

    Mensagem  marcelo3092 16/7/2019, 19:36

    Ola pessoal boa tarde gostaria de uma ajudinha no código abaixo para trazer junto com os dados acrescentar o nome do cabeçalho na lista.

    idDeficiencia.RowSource = Empty
    idDeficiencia.Requery

    sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
    Call Conexao_Open(sSQL)

    Do While Not Rs.EOF
    idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
    Rs.MoveNext
    Loop

    Rs.Close
    Set Rs = Nothing

    tentei de varias formas mais não veio alguém pode me da uma ajudinha.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3946
    Registrado : 21/04/2011

    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  Marcelo David 16/7/2019, 20:10

    Boa tarde,

    idDeficiencia.RowSource = Empty
    'idDeficiencia.Requery Não precisa dessa linha, pois vc está adicionando itens.
    idDeficiencia.AddItem "Código";"Deficiência" 'Aqui é o cabeçalho: Código e Deficiência pode ser o que vc quiser.

    sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
    Call Conexao_Open(sSQL)

    Do While Not Rs.EOF
    idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
    Rs.MoveNext
    Loop

    Rs.Close
    Set Rs = Nothing


    .................................................................................
    [Resolvido]Alias no listbox modo lista de valores Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Alias no listbox modo lista de valores Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Alias no listbox modo lista de valores Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Alias no listbox modo lista de valores Marcel11
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  marcelo3092 17/7/2019, 15:11

    Bom dia marcelo
    Entao tentei coloca porem não deu certo meu amigo, da erro na escrita do select
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  Alexandre Fim 17/7/2019, 15:18

    Fala ai Marcelo...blza?

    Aproveitando o gancho do amigo Marcelo David, faz assim:

    Código:


    dDeficiencia.RowSource = Empty
    idDeficiencia.RowSourceType = "Value List"
    idDeficiencia.Rowsource = "Código;Deficiência"

    sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
    Call Conexao_Open(sSQL)

    Do While Not Rs.EOF
    idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
    Rs.MoveNext
    Loop

    Rs.Close
    Set Rs = Nothing


    Boa sorte, man!!!
    Abraço

    Att,

    Alexandre



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Alias no listbox modo lista de valores Setinf11
    Sistemas e Tecnologia Ltda
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  marcelo3092 17/7/2019, 22:28

    grande alexandre como sempre ajudando agradeço a todos mais agora me apareceu outra situação queria fazer um filtro usando o like para pesquisar em qualquer parte do campo
    no campo txtpesquisa tentei de varias formas porem sem sucesso sera que pode me da uma maozinha


    Lista_Candidatos.RowSource = Empty
    Lista_Candidatos.Requery

    sSQL = "SELECT idcandidato, candidato, status FROM tblcandidato WHERE candidato like "& Me.txtpesquisa & " and STATUS='DISPONIVEL';"
    Call Conexao_Open(sSQL)

    Do While Not Rs.EOF
    Lista_Candidatos.AddItem "" & Rs("idcandidato") & ";" & Rs("candidato") & ";" & Rs("status") & ""
    Rs.MoveNext
    Loop

    Rs.Close
    Set Rs = Nothing
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  Alexandre Fim 17/7/2019, 23:31

    Grande Marcelo !!!!

    Vc tá usando MySQL, certo?

    A instrução fica assim:

    Código:

    sSQL = "SELECT idcandidato, candidato, status FROM tblcandidato WHERE candidato like '%" & Trim(Me.txtpesquisa) & "%' AND STATUS='DISPONIVEL';"


    Valeu !!!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Alias no listbox modo lista de valores Setinf11
    Sistemas e Tecnologia Ltda
    marcelo3092
    marcelo3092
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 19/08/2010

    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  marcelo3092 19/7/2019, 18:51

    Perfeito Alexandre funcionou certinho muito obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  Alexandre Fim 19/7/2019, 18:54

    Valeu Marcelo...
    Boa sorte !!!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Alias no listbox modo lista de valores Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Alias no listbox modo lista de valores Empty Re: [Resolvido]Alias no listbox modo lista de valores

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 20:39