MaximoAccess

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

Obrigado

Administração do MaximoAccess


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.

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]limpar listbox

    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]limpar listbox Empty [Resolvido]limpar listbox

    Mensagem  marcelo3092 em Sab 10 Ago 2019, 21: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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2538
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. em Sab 10 Ago 2019, 22: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 100%

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

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

    Mensagem  marcelo3092 em Dom 11 Ago 2019, 07: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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2538
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. em Dom 11 Ago 2019, 08: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
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  marcelo3092 em Dom 11 Ago 2019, 22:48

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2538
    Registrado : 21/11/2016

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

    Mensagem  DamascenoJr. em Seg 12 Ago 2019, 16: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: Qua 27 Jan 2021, 15:24