- Mitglied seit
- 02.08.2002
- Beiträge
- 1.000
- Reaktionen
- 0
Code:
Function getCurrentTeilnehmer(idItem As Long) As String
Dim db As Database, rs As Recordset
Dim res, i, j
Dim SQL
Dim test As String
i = 0
MsgBox idItem
SQL = "SELECT Person FROM Reifegrad_Teams WHERE id_Item = idItem"
Set db = CurrentDb
Set rs = db.OpenRecordset(SQL)
Do While Not rs.EOF
i = i + 1
res = res & rs.Fields(0).Value & vbNewLine
rs.MoveNext
Loop
getCurrentTeilnehmer = res
Set rs = Nothing
Set db = Nothing
End Function
der Code läuft bist MsgBox idItem, gibt mir noch zB 157 aus (was richtig ist) nur dann bringt er ein fehler. wenn ich anstatt
Code:
SQL = "SELECT Person FROM Reifegrad_Teams WHERE id_Item = idItem"
Code:
SQL = "SELECT Person FROM Reifegrad_Teams WHERE id_Item = 157"
schreib dann läuft es ohne Probleme...
Was mach ich falsch ^^=?



