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
|