Paramenter für DLookup Funktion

16/01/2012 - 22:03 von Günther Pachschwöll | Report spam
Hallo NG,

ich habe ein Problem bei dem ich nicht weiterkomme, ich möchte
über eine DLookup Funktion eine Summe übermitteln. Dazu habe ich ein
Abfrage erstellt
die bei der Verwendung der richten Daten auch funktioniert. Jetzt
möchte ich das in eine
Abfrage verpacken.

Ich habe dazu folgenden Funktion erstellt

Public Function Monatssollstunden()

Dim PersNr As Integer
Dim BeginnD As Date
Dim EndeD As Date

- Probeweise Daten -
PersNr = 10
BeginnD = #12/1/2011#
EndeD = #12/31/2011#

Monatssollstunden = DLookup("Sum([Monatssumme])",
"qryPersonalverwaltungMonatssumme", "[Personalnummer]=" & PersNr & "
AND [Kalenderdatum] Between " & BeginnD & " AND " & EndeD)

Und da ist dann das Problem weil ich als Fehlermeldung beim Aufrufen
folgendes bekomme:
Laufzeitfehler '3075'
Syntaxfehler in Zahl in Abfrageausdruck '[Personalnummer] AND
[Kalenderdatum] Between 01.12.2011 AND 31.12.2011'.

Die Felder Personalnummer und Kalenderdatum sind felder aus der
Abfrage (Integer bzw. Datum)

was übersehe ich dabei? Bin für jeden Tip dankbar.

Danke Günther
 

Lesen sie die antworten

#1 Peter Doering
16/01/2012 - 23:38 | Warnen spam
Hallo,

Günther Pachschwöll wrote:

Public Function Monatssollstunden()

Dim PersNr As Integer
Dim BeginnD As Date
Dim EndeD As Date

- Probeweise Daten -
PersNr = 10
BeginnD = #12/1/2011#
EndeD = #12/31/2011#

Monatssollstunden = DLookup("Sum([Monatssumme])",
"qryPersonalverwaltungMonatssumme", "[Personalnummer]=" & PersNr & "
AND [Kalenderdatum] Between " & BeginnD & " AND " & EndeD)



Das Datumskriterium muss wie in der SQL-Ansicht des Abfrageeditors
aussehen, also #MM/DD/YYYY# oder #YYYY-MM-DD#. Probier mal so:

... AND [Kalenderdatum] Between #" & Format(BeginnD, "\#YYYY\-MM\-DD\#") _
& " AND " & Format(EndeD, "\#YYYY\-MM\-DD\#"))

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen