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

    [Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba

    avatar
    Ivair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 127
    Registrado : 28/03/2012

    [Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba Empty Nome das tabelas e Campos de um BD em duas lista de combinação via Vba

    Mensagem  Ivair Martins 24/7/2012, 23:12

    Boa noite Amigos

    Gostaria de saber como eu faço para preencher com os nomes das tabelas de um BD em um caixa de combinação e os nomes dos campos em outra caixa de combinação.

    Obrigado

    Até mais...
    le_lo28
    le_lo28
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 13/07/2011

    [Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba Empty Re: [Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba

    Mensagem  le_lo28 27/7/2012, 13:45

    Olá,

    Veja este exemplo que pode ser adaptado a sua necessidade.

    Bom estudo,


    .................................................................................
    [Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba Assinaturacross
    M@rcelo
    avatar
    Ivair Martins
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 127
    Registrado : 28/03/2012

    [Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba Empty Re: [Resolvido]Nome das tabelas e Campos de um BD em duas lista de combinação via Vba

    Mensagem  Ivair Martins 27/7/2012, 17:36

    Boa Tarde le_lo28, Tudo bem

    Então eu estou usando os codigos abaixo, é uma procedimento mais simple.

    Private Sub ExibirTabelas()
    Lista12.RowSource = ""
    Dim Obj As AccessObject
    Dim dbs As Object
    Dim ctrlListBox As ListBox
    Set dbs = Application.CurrentData
    Set ctrlListBox = Me.Lista12
    With ctrlListBox
    For Each Obj In dbs.AllTables
    .AddItem Item:=Obj.Name
    Next Obj
    End With
    End Sub

    Private Sub ExibirCampos()
    Lista10.RowSource = ""
    Set Bd = CurrentDb()
    strSQL = "SELECT * from tabela2"
    Set Rst = Bd.OpenRecordset(strSQL, dbOpenDynaset)
    With Rst
    For i = 0 To .Fields.Count - 1
    Lista10.AddItem .Fields(i).Name
    Next
    End With
    End Sub

    Obrigado pela resposta.

    Até mais...

      Data/hora atual: 19/1/2022, 01:24