none
Carregar Combobox no vba excel com dados no acces RRS feed

Todas as Respostas

  • Luidluka,

       Veja:

    Dim bd As Database
    Dim dt As Recordset
    Dim sql As String
    
    Set bd = OpenDatabase(ActiveWorkbook.Path & "\MonitoriaDB.mdb")
    Set rs = bd.OpenRecordset("SELECT [Nome] FROM [Tab_Agente]")
    Do While Not rs.EOF
    Me.cboAgente.AddItem rs.Fields(0) & ""
    rs.MoveNext
    Loop
    bd.Close


    Preencher um combobox no vba com dados do Access

    http://www.tomasvasquez.com.br/forum/viewtopic.php?t=3393


    []'s,
    Fabio I.

    quarta-feira, 24 de janeiro de 2018 15:49