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]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 : 7670
    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 : 10592
    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...

      Data/hora atual: 9/8/2020, 12:24