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

    Preencher tabela com dados de lisbox

    avatar
    san vagandza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 12
    Registrado : 17/11/2015

    Preencher tabela com dados de lisbox Empty Preencher tabela com dados de lisbox

    Mensagem  san vagandza 21/11/2016, 17:35

    Boa tarde a todos,

    Tenho uma lisbox que é alimentada com dados de texboxs e combobox atravez de um botão incluir, o problema é que sou consigo guardar a primeira linha da lisbox na tabela.
    Alguem pode me dizer como fazer para incluir os dados todos que estão na lisbox na tabela?

    Estou a tentar usar o codigo seguinte:

    Private sub save_Click
    Dim counter As Integer
    Dim strsql As String
    For counter=0 to listbox1.listcount

    strsql="INSERT INTO (Grupo, Name) Values ('" & listbox.ItemData(counter).Column(0) &"';'" & listbox.ItemData(counter).Column(1) & "')"'
    Next

    CurrentDb.Execute strsql

    End Sub


    Obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Preencher tabela com dados de lisbox Empty Re: Preencher tabela com dados de lisbox

    Mensagem  Silvio 24/11/2016, 16:30

    Boa tarde...

    Tenta algo parecido com isso.

    Dim db2 As Database, Rs2 As DAO.Recordset
    Set db2 = CurrentDb
    Set Rs2 = db2.OpenRecordset("Nome_da_tabela")
    With Rs2
    .AddNew
    ![Campo_que_esta_na_tabela] = Me.Nome_da_sua_listbox.Column(0)
    ![Campo_que_esta_na_tabela] = Me.Nome_da_sua_listbox.Column(1)
    .Update
    End With


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: 28/3/2024, 22:21