Feststellen ob ein Eintrag vorhanden ist

28/09/2008 - 11:05 von Peter Wilker | Report spam
Hallo

Ich habe ein Problem beim ermitteln ob ein Eintrag in einer Tabelle
vorhanden ist oder nicht.

Basis ist eine Abfrage mit den Feldern:

AktMon: Format([ablesedatum];"mm")
AktJahr: Format([ablesedatum];"JJJJ")

AktMon und AktJahr liegen das Felder 'ablesedatum' aus einer Tabelle
zugrunde.


Folgende Felder sind in der Form vorhanden:
Me!Aktdatum
Me!Berichtsjahr


In VBA (Me!AktDatum vor Update):

Dim dat as Byte
Dim dj as Integer
Dim VARjahr as Integer

' aktueller Monat ermitteln z.B. 08
dat = Nz(Format(Me!Aktdatum, "mm")) '(aus Datumsfeld in der Form)


' Aktuelles Jahr ermitteln z.B. 2008
dj = Nz(Format(Me!Aktdatum, "yyyy")) (aus Datumsfeld in der Form)

' eingestelltes Jahr ermitteln z.B. 2008
VARjahr = Nz(Me!Berichtsjahr) (Filter aus Kombifeld z.b. 2008)


'Ermitteln ob Eintrag vorhanden

vorhandenMon = Nz(DLookup("aktMon", "AbfrageGas", "aktMon=" & dat))
'Zeigt an, ob der eingegebene Monat schon vorhanden ist. Funktioniert!

vorhandenJahr = Nz(DLookup("aktjahr", "AbfrageGas", _
"aktJahr=" & VARjahr)) 'Zeigt an, ob das eingegebene Jahr schon
vorhanden ist. Funktioniert!

Jetzt habe ich das Problem, daß das Ergebnis nur dann False sein soll,
wernn ' das Jahr nicht vorhanden ist, und der Monat in diesem Jahr nicht
vorhanden ist', Wenn alsio das Jahr z.B. 2008 existiert und der Monat 06
vorhanden ist, soll das Ergebnis True sein. Existiert das Jaht 2008 aber
der Monat 09 nicht, soll das ergebnis False sein.( Ich will also
feststellen, ob der eingegebene Monat im Berichtsjahr(VARjahr) existiert.

Mit

vorhanden = Nz(DLookup("aktMon", "AbfrageGas", "aktMon=" & dat AND _
"aktJahr=" & VARjahr))

Funktioniert es nicht. (Fehlermeldung: Typen unvertràglich)

Wie kann ich das Lösen?
(In VBA oder SQL)

Besten Dank

Hans-Peter Wilker
 

Lesen sie die antworten

#1 Karl Donaubauer
28/09/2008 - 11:10 | Warnen spam
Peter Wilker wrote:
...
Jetzt habe ich das Problem, daß das Ergebnis nur dann False sein soll,
wernn ' das Jahr nicht vorhanden ist, und der Monat in diesem Jahr
nicht vorhanden ist', Wenn alsio das Jahr z.B. 2008 existiert und der
Monat 06 vorhanden ist, soll das Ergebnis True sein. Existiert das
Jaht 2008 aber der Monat 09 nicht, soll das ergebnis False sein.( Ich
will also feststellen, ob der eingegebene Monat im
Berichtsjahr(VARjahr) existiert.
Mit

vorhanden = Nz(DLookup("aktMon", "AbfrageGas", "aktMon=" & dat AND _
"aktJahr=" & VARjahr))

Funktioniert es nicht. (Fehlermeldung: Typen unvertràglich)
...



vorhanden = Nz(DLookup("aktMon", "AbfrageGas", "aktMon=" & dat & _
" AND aktJahr=" & VARjahr))

HTH
Karl
********* Ich beantworte keine Access-Fragen per Email. *********
Access-FAQ: http://www.donkarl.com
Access-Entwickler-Konferenz: www.donkarl.com/?AEK
SQL Server-Entwickler-Konferenz: www.donkarl.com/?SEK

Ähnliche fragen