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

    Mover de ListBox para outra ListBox

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Mover de ListBox para outra ListBox

    Mensagem  HARYSOHN em Qua 18 Jul 2012, 01:32

    Em ajuda a um colega do Fórum que disse estar tentando adaptar o código em um form...Código disponível na Internet..

    Confeccionei o exemplo com o código citado por ele.

    O Tópico referente a dúvida suscitada pelo colega Murilo Rosa e com participação do colega Luis Augusto, tendo este indicado o código utilizado neste exemplo

    Pelo que assimilei na confecção, este código transforma a segunda lista em lista de valores e insere os registros na mesma, no entanto ainda não grava os mesmos na segunda tabela, deixando isto para um código separado, que percorrerá a mesma inserindo através do comando INSERT INTO na tabela 2 (Este código não está feito neste exemplo)


    Tópico:
    [Você precisa estar registrado e conectado para ver este link.]

    Exemplo:
    [Você precisa estar registrado e conectado para ver este link.]

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: Mover de ListBox para outra ListBox

    Mensagem  HARYSOHN em Qua 18 Jul 2012, 03:05

    Modelo com a atualização para inserir os produtos na tabela respectiva.

    Como Citado na origem do tópico, para a passagem de uma lista a outra se converte em lista de valores as listBox's, e com os comandos seguintes se insere nas respectivas tabelas.


    [Você precisa estar registrado e conectado para ver este link.]

    'Código adaptado por Harysohn Pina (PILOTO)
    'Para Luis Augusto Fórum MáximoAccess em 17/07/2012
    'Este código extrai os valores da listBox e o insere na tabela
    'Para isto se lança os valores em uma variável (ListValue) adicionando um simbolo gráfico "|"
    'Depois carrego uma Array com essa variável, separando os valores contidos na mesma
    'Pegando em seguida a posição 1 e 2 da Array (excetuando a posição 0, que á a ID) e inserindo em seguida na tabela
    Sub AtualizaTabela(lstBoxFrom As Access.ListBox)
    Dim colCounter As Integer
    Dim varListItem As Variant
    Dim listValue As String
    Dim VarArray

    For Each varListItem In lstBoxFrom.ItemsSelected
    For colCounter = 0 To lstBoxFrom.ColumnCount - 1
    listValue = listValue & CStr(Nz(lstBoxFrom.Column(colCounter, varListItem))) & " | "
    Next colCounter
    VarArray = Split(listValue, "|")
    CurrentDb.Execute "INSERT INTO Tbl_2(Campo1, Campo2) Values(""" & LTrim(VarArray(1)) & """,""" & LTrim(VarArray(2)) & """ );"
    CurrentDb.Execute "DELETE * From Tbl_1 WHERE Código = " & VarArray(0) & ";"
    listValue = Left(listValue, Len(listValue) - 1)
    'Limpo as variáveis para carregá-las com a proxima linha da listBox
    listValue = ""
    VarArray = ""
    'Vai para a próxima linha da listBox
    Next varListItem
    listValue = ""
    VarArray = ""
    Me.txtRecebeFoco.SetFocus
    Me.btnAtualizar.Enabled = False
    End Sub


    Enjoy!!


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Dom 22 Out 2017, 16:30