MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]limpar listbox

    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]limpar listbox Empty [Resolvido]limpar listbox

    Mensagem  marcelo3092 em 11/8/2019, 02:32

    Boa noite pessoal gostaria mais uma vez da ajuda de voces com o codigo abaixo o que acontece e que gostaria de limpa uma listbox se a proc não retornar valores porem ela não limpa.


    Dim sSQLC As String

    Call Conexao_Open
    sSQLC = "CALL sp_enc_cand_sugestao(" & idprofissao & ");"
    rscandidatos.CursorLocation = adUseClient
    rscandidatos.Open sSQLC, cn, adOpenDynamic, adLockOptimistic


    If Not rscandidatos.EOF Then
    Set Me.Lista_Candidatos.Recordset = rscandidatos
    Me.Lista_Candidatos.Requery

    Else

    Me.Lista_Candidatos.ControlSource = ""
    Me.Lista_Candidatos.Requery

    End If

    rscandidatos.Close
    Set rscandidatos = Nothing


    desde ja agradeço a ajuda de todos
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]limpar listbox Empty Re: [Resolvido]limpar listbox

    Mensagem  IvanJr. em 11/8/2019, 03:03

    Não seria

    Código:
    ...
    Else

      Me.Lista_Candidatos.RowSource = ""
      Me.Lista_Candidatos.Requery

    End If
    ...


    .................................................................................
    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.
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]limpar listbox Empty Re: [Resolvido]limpar listbox

    Mensagem  marcelo3092 em 11/8/2019, 12:18

    Bom dia ivan então ela não limpa o que acontece é que quando ela é preenchida eu seleciono outro cadastro que não tem registro aí que ela não limpa e fica com o preenchimento anterior e tô usando tipo tabela/consulta.
    No caso eu queria que se n tivesse dados limpa a lista mais n vai
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]limpar listbox Empty Re: [Resolvido]limpar listbox

    Mensagem  IvanJr. em 11/8/2019, 13:30

    Falha minha. Se você seta o recordset, deve limpar o recordset e não o rowsource, isto é, ao invés de
    Código:
    Me.Lista_Candidatos.rowsource =  ""
    use
    Código:
    Set Me.Lista_Candidatos.Recordset = nothing


    .................................................................................
    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.
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]limpar listbox Empty Re: [Resolvido]limpar listbox

    Mensagem  marcelo3092 em 12/8/2019, 03:48

    Grande Ivan como sempre ajudando obrigado. funcionou perfeito
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]limpar listbox Empty Re: [Resolvido]limpar listbox

    Mensagem  IvanJr. em 12/8/2019, 21: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.

    Conteúdo patrocinado

    [Resolvido]limpar listbox Empty Re: [Resolvido]limpar listbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/12/2019, 23:28