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

    [Resolvido]limpar listbox

    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]limpar listbox Empty [Resolvido]limpar listbox

    Mensagem  marcelo3092 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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  marcelo3092 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
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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.

    =>Nois gosta desta mensagem

    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]limpar listbox Empty Re: [Resolvido]limpar listbox

    Mensagem  marcelo3092 12/8/2019, 03:48

    Grande Ivan como sempre ajudando obrigado. funcionou perfeito
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 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.

      Data/hora atual: 24/7/2021, 08:43