Hallo,
ich habe in einem Formular ein Kombinationsfeld (A) ungebunden mit insgesamt 16 Tabellen zum auswählen. Und ein Listenfeld (B) ungebunden.
Wenn ich nun in (A) zum Beispiel Tabelle Nr.1 auswähle, sollen in (B) alle Daten der Tabelle Nr.1 angezeigt werden.
Wie bekomme ich das hin?
Code:
Private Sub Kombinationsfeld13_After_Update()
Me!DeinListenfeld.Rowsource = Me!Kombinationsfeld13.Column(2)
Debug.Print Me!Kombinationsfeld13.Column(2)
End Sub
Reaktion ist gleich Null.
Ich kann in (A) alles anwählen, aber in (B) erscheint nur immer Tabelle Nr.1 mit allen Werten aus dieser Tabelle.
Was ist falsch?
Hallo,
was ergibt denn Debug.Print Me!Kombinationsfeld13.Column(2) im Direktfenster?
Hallo,
wenn im Kombinationsfeld in der 3. Spalte der Tabellenname steht:
Private Sub Kombinationsfeld13_After_Update()
Me!DeinListenfeld.Rowsource = "SELECT * FROM " & Me!Kombinationsfeld13.Column(2)
End Sub
Das Listenfeld muss dann halt so definiert sein, dass es alle Spalten der ausgewählten Tabelle darstellen kann ...
Zur Demonstration findest du ein kleines Beispiel im Anhang.
HTH
[Anhang gelöscht durch Administrator]