Hi
Ich habe folgendes Problem mit der Abfrage aus einer Datenbank.
Und zwar mit findfirst bei einem Datum.
Es gibt immer den Error 3077 aus.
Die Abfrage mit dem Datentype Date ist glaub ich das Problem
Weiss jemand Rat?
Danke!!!!
Function GetEntryRow(ByVal databasename$, tablename$, fieldname$, searchtext As Date) As Long
Dim dbDB As Database
Dim rsrs As Recordset
Dim fieldpos As Integer
Dim strCriteria As Variant
Set dbDB = OpenDatabase(databasename)
Set rsrs = dbDB.OpenRecordset(tablename, dbOpenSnapshot)
rsrs.MoveFirst
rsrs.MoveLast
strCriteria = "[Datum]=" & searchtext
On Error GoTo errfindfirst
rsrs.FindFirst strCriteria
On Error GoTo 0
If Not rsrs.NoMatch Then
GetEntryRow = rsrs.AbsolutePosition + 1
Else
GetEntryRow = 0
End If
dbDB.Close
Set rsrs = Nothing
Set dbDB = Nothing
Exit Function
errfindfirst:
MsgBox Err