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]Mover de listbox para listbox

    Csmelan
    Csmelan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 25
    Registrado : 28/12/2011

    [Resolvido]Mover de listbox para listbox Empty [Resolvido]Mover de listbox para listbox

    Mensagem  Csmelan em 1/2/2012, 14:20

    Bom dia!!!

    Tenho um form que tem 2 listbox.
    1º já me complica porque eu nunca trabalhei com listbox, então me desculpem as duvidas bobas.

    As consultas seriam 3? Do form, da listbox1(origem) e da listbox2(detsino)?
    Ou eu faria isso através do VBA(que foi o que meu chefe fez)??


    Eu usei aquelas setinhas p/ mover as linhas, então no VBA ficou assim:


    Private Sub cmb_add_fiscal_Click()

    If (lsb_fiscais.ListIndex > -1) Then
    'Formato do item: "coluna1;coluna2", número da linha
    lsb_fiscais_cont.AddItem (lsb_fiscais.Column(0, lsb_fiscais.ListIndex) & ";" & lsb_fiscais.Column(1, lsb_fiscais.ListIndex))
    lsb_fiscais.RemoveItem (lsb_fiscais.ListIndex)
    Else
    MsgBox "Por favor selecione um item a ser removido.", vbCritical, "Erro"
    End If

    End Sub


    Private Sub cmb_rem_fiscal_Click()

    If (lsb_fiscal_cont.ListIndex > -1) Then
    lsb_fiscal.AddItem (lsb_fiscais_cont.Column(0, lsb_fiscal_cont.ListIndex) & ";" & lsb_fiscal_cont.Column(1, lsb_fiscal_cont.ListIndex))
    lsb_fiscal_cont.RemoveItem (lsb_fiscais_cont.ListIndex)
    Else
    MsgBox "Por favor selecione um item a ser removido.", vbCritical, "Erro"
    End If

    End Sub


    Da erro 404, o objeto é obrigatorio(nao aparace nd na lista de origem).
    Se eu mudo em propiedades para Tabela/consulta em vez de lista de valores, aparece as linhas(então não da erro 404), mas o depurador solicita para que eu mude para lista de valores (erro 3014) ¬¬

    Conclusão, estou perdida com essas listbox.

    Alguém tem alguma sugestão???
    avatar
    Convidad
    Convidado

    [Resolvido]Mover de listbox para listbox Empty Re: [Resolvido]Mover de listbox para listbox

    Mensagem  Convidad em 1/2/2012, 22:53


    Olá

    Poderia formular mais claramente a questão?

    Qual a função das ListBox's ? Qual a origem dos registros que elas contém?
    Parece que tambem há ComboBox's no form (?) Qual a origem dos seus registros?

    Está muito confuso !
    Csmelan
    Csmelan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 25
    Registrado : 28/12/2011

    [Resolvido]Mover de listbox para listbox Empty Re: [Resolvido]Mover de listbox para listbox

    Mensagem  Csmelan em 2/2/2012, 10:30

    Está confuso p/ mim também, acredite.

    Vamos lá, vou tentar.

    Tenho um form principal(f_contrato), e tenho um form para cadastros de fiscais(f_fiscal), em f_contrato tenho um botão que abre um form para adicionar os fiscais cadastrados à aquele contrato (f_add_fiscais).

    Tem a tabela do contrato(t_contrato) e a tabela de fiscais(t_fiscal) e criei uma auxiliar com somente a sua pk, e as fks de t_contrato e t_fiscal.

    Os form f_contrato e f_fiscal funcionam perfeitamente.


    No form f_add_fiscal q mora o problema, ele constitui apenas de 2 listbox, na qual a primeira deve constar os fiscais cadatsrados, e no segundo deve constar os selecionados para aquele contrato.

    Bem, essa é a situação.


    Mas esse form ta empacado, não sei como devo proceder na consulta, como devo ligar o contrato a ele, como passar o fiscal de um listbox pro outro, como usar a auxiliar...

    É isso. ^^
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7453
    Registrado : 05/11/2009

    [Resolvido]Mover de listbox para listbox Empty Re: [Resolvido]Mover de listbox para listbox

    Mensagem  Alexandre Neves em 2/2/2012, 18:06

    Boa tarde, Csmelan

    Parece-me que, em cada caixa de listagem:
    1 - origem dos dados
    alimenta a caixa de listagem a partir de instrução SQL (propriedade rowsource)
    Neste caso, tem por tipo de origem de linha, tabela/consulta
    ou
    alimenta a partir de recordset
    neste caso, tem por tipo de origem de linha, lista de valores

    Em qualquer dos casos um dos campos deve ser a chave primária de forma a identificar inequivocamente o registo.

    2 - Eliminar na tabela, ao clicar no item
    elimina na tabela o registo e actualizar a origem da caixa de listagem

    É relativamente fácil, faça por passos pequenos e teste com situações que satisfaçam todas as possibilidades.
    Csmelan
    Csmelan
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 25
    Registrado : 28/12/2011

    [Resolvido]Mover de listbox para listbox Empty Re: [Resolvido]Mover de listbox para listbox

    Mensagem  Csmelan em 8/2/2012, 13:40

    Alexandre, você pode me explicar melhor o item 2? Por favor.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    [Resolvido]Mover de listbox para listbox Empty Re: [Resolvido]Mover de listbox para listbox

    Mensagem  JPaulo em 8/2/2012, 14:24

    Este exemplo já ajudou muitos usuários aqui;

    http://dl.dropbox.com/u/771097/ListBox_Passa_ListBoxII.rar



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mover de listbox para listbox Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mover de listbox para listbox Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mover de listbox para listbox Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    [Resolvido]Mover de listbox para listbox Empty Re: [Resolvido]Mover de listbox para listbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/1/2020, 21:45