PDA

Vollständige Version anzeigen : FindFirst Fehlermeldung


Axel B
16.10.2001, 14:16
Hallo !

Kann mir jemand sagen, was ist in der FindFirst-Zeile falsch ist?

Meldung : Erwartet Anweisungsende
Blau hinterlegt ist es ab : #AND [Person...

Dim rs As Recordset
Dim db As Database
Set db = Application.CurrentDb
Set rs = db.OpenRecordset("Zeiten",dbOpenDynaset)

rs.FindFirst "[Datum] = # " & date & "# AND [Personalnummer] = " & Me![Personalnummer]
If rs.NoMatch = True Then
....

Manuela Kulpa
16.10.2001, 16:29
<font face="Verdana" size="2">Hallo Axel!

Versuche doch mal das ISO-Datumsformat, z. B.</font>

<div><link href="http://www.ms-office-forum.net/forum/externals/codeconv.css" rel="stylesheet"><pre>rs.FindFirst "[Datum] = #" & Format(Date, "yyyy-mm-dd") & "# AND [Personalnummer] = " & Me![Personalnummer]</pre></div>

<font face="Verdana" size="2">vg

PS: Kleiner Tipp am Rande ;), <a href="http://www.donkarl.com" target="_blank">FAQs von Karl Donaubauer</a> - speziell - <a href="http://www.donkarl.com/FAQ/FAQ1Grundlagen.htm#1.5" target="_blank">FAQ 1.5 - Benamsungen</a> - bezogen auf dein Feld DATUM</font>