Office: Dlookup mit 3 Kriterien... kein Fehler aber trotzdem NULL

Hallo zusammen,
ich bin etwas am verzweifeln mit Dlookup. Ich habe ein Formular wo ich per dropdown Namen und das Jahr auswählen kann. Weiteres gibts noch ein Kriterium von 1-6.

So - wenn ich das Formular öffne - möchte ich Summen aus einer Abfrage auslesen - mit Dlookup.

Mein Code sieht so aus:

Code:

Dim SYear As String
Dim STLC As String
Dim StatusN1 As String
Dim StatusN2 As String
Dim StatusN3 As String

SYear = Me.StatusYear
STLC = Me.TLCSelect
StatusN1 = "1"
StatusN2 = "2"
StatusN3 = "3"
Me.OFFDays = DLookup("[TotalS]", "[IP Calendar Totals Year SUM]", " TLC = ' & TLCSelect & ' And [StatusYear] = " & YearSelect & " And [StatusNumber] = " & StatusN1)
Me.VacationDays = Nz(DLookup("[TotalS]", "[IP Calendar Totals Year SUM]", " TLC = ' & TLCSelect & ' And [StatusYear] = " & YearSelect & " And [StatusNumber] = " & StatusN2), "0")
Me.SickDays = Nz(DLookup("[TotalS]", "[IP Calendar Totals Year SUM]", " TLC = ' & TLCSelect & ' And [StatusYear] = " & YearSelect & " And [StatusNumber] = " & StatusN3), "0")

Meine Tabelle "IP Calendar Totals Year SUM" in etwa so:

• TLC - StatusYear - StatusNumber - TotalS
  ABC - 2010 - 2 - 34
  ACD - 2010 - 2 - 21
  ACD - 2010 - 3 - 94
  etc....

Ich hab bei ' schon mit und ohne " probiert... kein Erfolg. Ich bekomme immer NULL aus der Abfrage.
Hab schon vorher die einzelnen Variablen mir mit MsgBox anzeigen lassen - alles richtig. Es sind zwei Zahlen Felder (StatusYear und StatusNumber) und ein Text Feld (TLC).
TotalS is die Summe... die ich nicht rausbekomme.

Wo liegt das Problem? :-(

Das ist ein Endlos Formular. Im Header lese ich die Werte aus - um Footer würde ich sie gerne hinschreiben. Unterformulare gehen leider auch nicht im Endlosformular... Oder gibts da ein work-around?

Björn

 

Na ich hab den Fehler gefunden...

Code:

Me.OFFDays = DLookup("TotalS", "[IP Calendar Totals Year SUMME]", " [TLC] ='" & [TLCSelect] & "' And [StatusYear] = " & SYear & " And [StatusNumber] = " & StatusN1 & "")