Veteran
Beiträge: 229
 
Ort: Badendorf | Function Aufruf mit "Kurzinfo(nr)" in Abfrage in access 2010
Die Funktion soll aus einer 60 Spalten breiten Tabelle mit ziemlich vielen Leerfeldern die Texte zusammenfassen in einen Textblock (also praktisch eine Zeile der Tabelle auswerten).
Set rst = CurrentDb.OpenRecordset("Aufnahmegruende", dbOpenDynaset)
sql = "SELECT [Aufnahmegruende].* FROM [Aufnahmegruende] WHERE [Fallnummer]=" & nr
Kurzinfo = nr & " "
For j = 1 To 60
Kurzinfo = Kurzinfo & rst(j) & " "
Next j
Das zusammenfügen funktioniert auch, aber ob mit oder ohne "where", access vba nimmt bei jedem Aufruf immer nur den ersten Datensatz der Tabelle, egal welche nr ich eingebe
Danke für Ideen
Rudolf |
