Hallo erstmal,

ich bin quasi auch erst sozusagen Einsteiger in VBA. Die allernötigsten Grundlagen habe ich dennoch einigermaßen drauf. Ich komme nur nicht dahinter, warum dieses Kombinationsfeld nicht funktioniert. Ich rufe es einfach aus einer anderen Methode bzw. Prozedur auf. Über den Sinn dieser Methode muss hier nicht gesprochen werden, da das nur eine Testdatei ist, das Original sollte aber im Idealfall genauso arbeiten.

Kann mir hier evtl. einer eine Tipp geben oder einen Lösungsvorschlag anbieten. Das wäre sehr nett. :)

Option Compare Database

Private Sub combobox_XY_Change()

Dim userfrm_Test As UserForm
Dim cmb As ComboBox
Dim strListe, strSQL As String
Dim rs As DAO.Recordset

strSQL = "SELECT  ID, A, B FROM Test ORDER BY ID"

'Erzeugen des Recordsets - hier befinden sich dann die anzuzeigenden Daten
Set rs = CurrentDb.OpenRecordset(strSQL)

'Nur weitermachen wenn Daten geliefert wurden
If rs.RecordCount > 0 Then
  Do While Not rs.EOF
    strListe = strListe & rs!ID & ";" & rs!A & ";" & rs!B & ";"
    rs.MoveNext
  Loop
 Else
  MsgBox "Es sind keine Daten zum Füllen des Kombifeldes vorhanden!"
  Exit Sub
End If


'Festlegen der Eigenschaften für das Kombinationsfeld
'With Me.combobox_XY
'    .RowSourceType = "Table / Query"
'    .ColumnCount = strSQL
'    .ColumnWidths = "1cm; 3cm; 3cm"
'    .ColumnHeads = True
'    .BoundColumn = 3
'    .RowSource = strSQL
'End With

'Festlegen der Eigenschaften für das Kombinationsfeld
With Me.combobox_XY    .RowSourceType = "Value List"
    .ColumnCount = 3
    .ColumnWidths = "1cm; 3cm; 3cm"
    .ColumnHeads = True
    .BoundColumn = 3
    .RowSource = strSQL
End With

End Sub

Mit freundlichen Grüßen

Billy