Fehler beim Kompilieren

24/04/2008 - 13:59 von info | Report spam
Hallo,

ich habe bei folgenden Code die Fehlermeldung : "Fehler beim
Kompilieren Sub oder Funktion nicht definiert.

Public Function GetMaxPapa(Kind As Long) As Long
Dim db As DAO.Database
Dim rs As DAO.Recordset


Dim KindTemp As Long
Dim strSQL As String
Set db = CurrentDb
Dim bFertig As Boolean


bFertig = False
KindTemp = Kind


While Not bFertig
strSQL = "SELECT Vertriebspartner.Hauptvp FROM Vertriebspartner "
where vp = " & KindTemp "
Set rs = db.OpenRecordset(strSQL)
If IsNull(rs.Fields(0).Value) Or (rs.Fields(0).Value KindTemp) Then
bFertig = True
GetMaxPapa = KindTemp
Else
KindTemp = rs.Fields(0).Value
End If


rs.Close
Wend

End Function

Was mache ich falsch ?
 

Lesen sie die antworten

#1 Thomas Kühn
24/04/2008 - 14:31 | Warnen spam
Hallo,



Was mache ich falsch ?



1. Du postest doppelt.
2. kann das hier:
strSQL = "SELECT Vertriebspartner.Hauptvp FROM Vertriebspartner "
where vp = " & KindTemp "

auch nicht funktionieren.

Versuche es mal so:

strSQL = "SELECT Vertriebspartner.Hauptvp " _
& "FROM Vertriebspartner where vp = " _
& KindTemp


Gruß Thomas

http://www.thomas-kuehn.de

Ähnliche fragen