Daten aus Access in ComboBox einlesen
07.02.2007 22:52:56
Peter W
nach langer Zeit bin ich auch mal wieder unterwegs und suche zu nächtlicher Zeit mal wieder einen Experten.
Ich hab mir in einem anderen Makro alle Table´s in eine Listbox einlesen lassen, nach Klick der LB wird ein Field ausgewählt.
Nun sollen allle Daten des Fields in eine ComboBox eingelessen werden.
Das klappt nur überhaupt nicht, hat jemand einen Tip für mich, danke.
P.S.: Bin in Access ein Super-DAU, also ganz langsam erklären.
Option Explicit
Public myCB As CommandBar
Public myAccess As Access.Application
Public objDB As Object, myTab As Object, myField As Object, Fld As Object
Private Sub ListBox1_Click()
Dim lngCount As Long
If Me.ListBox1.ListIndex = -1 Then Exit Sub
Select Case Application.InputBox("(1) Mandanten - (2) Projektleiter", "Table Auswahl gilt für....?", Type:=1)
Case 1 'Mandanten
Me.Range("B15").Value = Me.ListBox1.List(Me.ListBox1.ListIndex)
GetRows (False)
'Combobox mit Acces Daten füllen
'Access-File Initalisieren
Set myAccess = CreateObject("Access.Application")
Set objDB = myAccess.Application.DBEngine.OpenDatabase(Me.Range("D11").Value)
'#########################
Me.ComboBox1.Clear
'Zuweisung des/der Table
Set myTab = objDB.TableDefs(Me.Range("B15").Value)
'Zuweisung an passendes Field
Set myField = myTab.Fields("Firma")
'For Each myField In myTab.Fields
' Debug.Print myField.Name
'Next
'Auslesen aller Datensätze im zugewiesenen Field
'Funktioniert nicht !!!
For lngCount = 1 To 5
Debug.Print myField.Item(lngCount)
Next
Me.ComboBox1.Visible = True
Case 2 'Personal / Projektleiter
Me.Range("F15").Value = Me.ListBox1.List(Me.ListBox1.ListIndex)
Case Else: Exit Sub
End Select
End Sub
"MFG Peter"
Anzeige