Supportnet / Forum / Datenbanken
Tabellenherkunft in rowsource durch variable zuweisen - geht das ??
Frage
Hallo,
hebe unteng. Code für eine recht komfortable Suchfunktion verwendet, allerdings mußte ich für jede Herkunftstabelle je ein neues Formular erstellen.( Alle Sätze in eine Tabelle geht nicht wegen gesamtanzahl und Geschwindigkeit )
Gibt es eine Möglichkeit, die Tabelle, die durchsucht werden soll, per Listenfeld als Variable festzulegen, und hier als "Tabellenname" zu übergeben ?
Würde mir sehr helfen !
Private Sub txtFind_Change()`´Eingabefeld für Suchbegriff´
Dim sFind As String
txtfind.SetFocus
sFind = txtfind.Text ´Suchtextstring´
If Not sFind = "" Then
lstErg.SetFocus ´ Listenfeld für alle Ergebnisse´ lstErg.RowSource = "SELECT [Tabellenname].ID, [Tabellenname].ArtNr, [Tabellenname].Bez1, [TabellennameBez2 From [Tabellenname] Where [Tabellenname].ArtNr Like ´" & sFind & "*´ Or [Tabellenname].Bez1 Like ´" & sFind & "*´;"
lstErg.Requery
txtfind.SetFocus
txtfind.SelStart = 100
lstErg.Requery
End If
Antwort 1 von weiwasnicht
Habs inzwischen rausgefunden - für alle die es interessiert:
Variable als String deklarieren ( zb Kombifeld.value )
"SELECT [" & Variable & "].ID,......
Variable als String deklarieren ( zb Kombifeld.value )
"SELECT [" & Variable & "].ID,......