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 : 250
    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 : 3358
    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


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [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 : 250
    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 : 1577
    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



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    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 : 1577
    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 !!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    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 : 1577
    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 !!!


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 1/8/2021, 12:15