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


    [Resolvido]Adicionar registros em tabela utilizando listbox

    avatar
    silvasantos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    [Resolvido]Adicionar registros em tabela utilizando listbox Empty Adicionar registros em tabela utilizando listbox

    Mensagem  silvasantos 13/7/2013, 01:16

    Olá novamente, gostaria de pedir a ajuda de vocês pois estou com certa dificuldade, segue a dúvida:
    Em um BD tenho Formulário (form_teste) com uma ListBox (lista_nomes) alimentada pela consulta já previamente filtrada cons_nomes com 100 registros.
    Gostaria de alimentar automaticamente via botão em vba uma outra tabela (tbl_nomes_data) inserindo algo como Agosto ou Setembro na tabela (tbl_nomes_data) utilizando em uma determinada coluna o nome de cada pessoa que está em cada linha da ListBox (lista_nomes) e acrescentando O Agosto ou Setembro na coluna posterior, ou seja copiar o nome de cada linha da lista e acresentar o texto Agosto EX:

    tbl_nomes_data

    nome Mês

    João Agosto
    Maria Agosto
    Pedro Agosto

    ...
    avatar
    silvasantos
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 29/01/2012

    [Resolvido]Adicionar registros em tabela utilizando listbox Empty Re: [Resolvido]Adicionar registros em tabela utilizando listbox

    Mensagem  silvasantos 13/7/2013, 02:56

    Deixa comigo que eu mesmo respondo! lol! 

    'No executar de um botão



    Dim db As Database
    Dim obj As Variant
    Set db = currentDB()
    Dim tb As Recordset
    Set tb = currentDB.OpenRecordset("tabela-de-destino")


    For Each obj In lista-do-form.ItemsSelected
    With tb
    .AddNew
    !campo-da-tabela-variável = lista-do-form.ItemData(obj)
    !campo-da-tabela-fixo = Agosto ' ou campo do form: Me.campo-de-origem-do-valor
    !outro-campo-da-tabela = outro-valor

    .Update
    End With
    Next obj

    tb.Close
    Set tb = Nothing
    db.Close
    Set db = Nothing

    ' E se desejar, pode inserir no final uma mensagem de aviso cheers 
    MsgBox "Registros inseridos com sucesso!", vbInformation, "Agora sim, ficou muito fácil!"

      Data/hora atual: 29/3/2024, 02:07