Tabellen in Combobox (Access-Form)

[dignsag]

Hi Leute,

folgendes Problem:

ich hab eine Combobox in einem Formular und will das ich mit dieser Combobox meine Tabellen auswählen kann, die ich in der Datenbank habe.

Und wenn wir schon dabei sind, kann mir jemand erklären wie ich diese Tabelle dann in VBA anspreche um mit ihr zu arbeiten?

Gruß Dignsag

 

[Alex F.]

Um die Tabellen in eine Combobox zu bekommen gibt es zwei Möglichkeiten
1. Eine Tabelle wo deine Tabellennamen drin stehen
2. Du schaust in die Tabelle "MSysObjects" dies ist eine Systemtabelle und die ist normalerweise ausgeblendet

um auf die Tabellen zuzugreifen definierst du dir ein Recordset und öffnest dies -Suche wäre hier hilfreich denn dafür gibt es zu viele Möglichkeiten

Gruss bb

 

[dignsag]

Danke für deinen Beitrag war sehr hilfreich.

 

[dignsag]

Das hier ist nun mein Code um die Liste anzuzeigen:

 Dim ActQuery as TableDef
 Dim QueryList as String
 
 'Die Liste der Tabellen anzeigen
  
  	For Each ActQuery In CurrentDb.TableDefs
 		If (ActQuery.Attributes And 2) = 0 And (ActQuery.Attributes And dbSystemObject) = 0 And (ActQuery.Attributes And dbHiddenObject) = 0 Then
 			If QueryList <> "" Then QueryList = QueryList & ";"
  			QueryList = QueryList & ActQuery.Name
  		End If
  	Next ActQuery
  
  	cbxAbfrage.RowSource = QueryList

Die Variablen zeigen auch schon mein nächstes Problem auf...
wie bekomme ich jetzt anstatt der Tabellen, Abfragen in die Combobox die ich schon erstellt und in der DB gespeichert habe?
Kann mir wer helfen bitte!