Hallow,

Ik heb een vraag als ik een combobox in word zelf maak dan kan ik wel gegevens uit excel halen. Maar als ik een combobox in een userform plaats doet hij het niet..

En dan nog een vraag, hoe kan ik het instellen dat wanneer ik in de combobox een naam selecteer dat hij dan automatisch de rest erbij schrijft in andere textboxen?? (Adres, Plaats)




Option Explicit



Private Sub Document_open()
  RowsourceISAM_Besturingselementen
End Sub

Public Function RowsourceISAM_Besturingselementen()
  Dim cnn As New ADODB.Connection
  Dim rst As New ADODB.Recordset
  Dim strPad As String
 
  Const EXCEL_BESTAND As String = "Testword.xls"
  strPad = ActiveDocument.Path & "\"
 
  ' Verbinding maken met het Excel-bestand via de ISAM-driver
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & strPad & EXCEL_BESTAND & ";" & _
           "Extended Properties=Excel 8.0;"
 
  ' Het bereik 'geslacht' uit het excel-bestand in een recordset opnemen
  rst.Open "Naam", cnn, adOpenForwardOnly, adLockReadOnly, adCmdTable

  Do Until rst.EOF
    ComboBox1.AddItem rst.Fields(0)

    rst.MoveNext
  Loop
 
  rst.Close
  Set rst = Nothing
  cnn.Close
  Set cnn = Nothing
End Function