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


2 participantes

    [Resolvido]Deletar campo em um ListBox

    Mriegel
    Mriegel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    [Resolvido]Deletar campo em um ListBox Empty Deletar campo em um ListBox

    Mensagem  Mriegel 11/3/2012, 12:00

    Bom dia

    Tenho Um ListBox em que desejo excluir alguns campos.
    Estou recebendo a mensagem de erro que o RowSourceType deve ser definido como "Value List".
    Já tenho feito isto, mas mesmo assim não está funcionando.(LstNomes.RowSourceType = "ValueList")
    Alguém tem idéia do que estou fazendo errado?
    Desde já agradeço.
    Abraço
    Marcelo
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Deletar campo em um ListBox Empty Re: [Resolvido]Deletar campo em um ListBox

    Mensagem  criquio 11/3/2012, 12:08

    Poste a bloco completo para ver se entendemos melhor e tambem informe se a depuração aponta para alguma linha e qual linha seria.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Mriegel
    Mriegel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    [Resolvido]Deletar campo em um ListBox Empty Re: [Resolvido]Deletar campo em um ListBox

    Mensagem  Mriegel 11/3/2012, 12:11

    Ok, Publico abaixo:



    Private Sub BtDeletar_Click()
    If LstNomes.ListIndex = -1 Then
    Resposta = MsgBox("Selecione Fornecedor/Cliente a ser excluído !", vbInformation, Título)
    Else
    If MsgBox("Desejas excluir o Fornecedor/Cliente =>" & LstNomes.ItemData(LstNomes.ListIndex) & " ?", vbQuestion + vbYesNo, Título) = vbYes Then
    CurrentDb.Execute ("delete from nomes where nome = '" & LstNomes.ItemData(LstNomes.ListIndex) & "'")
    LstNomes.RemoveItem LstNomes.ListIndex
    End If
    End If
    TxtNome.SetFocus
    End Sub

    Private Sub TxtNome_KeyDown(KeyCode As Integer, Shift As Integer)
    On Error GoTo erro1
    If KeyCode = 13 Then
    LstNomes.RowSource = ""
    TxtNome.SetFocus

    'LstNomes.RowSourceType = "Table/Query"
    LstNomes.RowSourceType = "ValueList"

    LstNomes.RowSource = ("select nome from nomes where nome like '*" & TxtNome.Text & "*' order by nome")

    LstNomes.Enabled = True
    LstNomes.SetFocus
    TxtNome = ""
    TxtNome.SetFocus
    Exit Sub
    End If
    erro1:
    If Err.Number = 3044 Then
    MsgBox "Você não tem acesso ao arquivo de dados. Verifique sua conexão na rede !"
    DoCmd.Close acForm, "Formulário ConsultaCadastro", acSaveYes
    DoCmd.OpenForm ("Formulario Principal"), acNormal
    End If

    End Sub
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Deletar campo em um ListBox Empty Re: [Resolvido]Deletar campo em um ListBox

    Mensagem  criquio 11/3/2012, 12:20

    Pelo que entendi, quando você executa essa função, o item que será chutado para fora da listbox foi antes excluído da tabela, certo? Se entendi corretamente, talvez baste um Requery ao invés de apagar o item da listbox, ou seja:

    Me.LstNomes.Requery no lugar de LstNomes.RemoveItem LstNomes.ListIndex.

    Uma dica: coloque sempre o Me. antes do nome de controles do formulário ou relatório. Isso é muito importante para diferenciar controles do formulário ou relatório dos campos da tabela quando os nomes forem iguais. O Me. indica que está fazendo referência a um controle do objeto ativo, seja formulário ou relatório.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Mriegel
    Mriegel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    [Resolvido]Deletar campo em um ListBox Empty Re: [Resolvido]Deletar campo em um ListBox

    Mensagem  Mriegel 11/3/2012, 12:27

    Ok, vou tentar.
    Obrigado

    MArcelo
    Mriegel
    Mriegel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 22/01/2011

    [Resolvido]Deletar campo em um ListBox Empty Re: [Resolvido]Deletar campo em um ListBox

    Mensagem  Mriegel 11/3/2012, 12:30

    Muito obrigado Criquio.
    Funcionou perfeitamente.
    Grande abraço

    Marcelo
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Deletar campo em um ListBox Empty Re: [Resolvido]Deletar campo em um ListBox

    Mensagem  criquio 11/3/2012, 12:33

    Grato pelo retorno. Um abraço.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Deletar campo em um ListBox Empty Re: [Resolvido]Deletar campo em um ListBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 15:30