Variablen einbauen Access

Option Compare Database

Global varJahrZahl As Variant
Global varMonatZahl As Variant
Global varTagZahl As Variant
Global varDatumWert As Variant
Global varVorDatumWert As Variant

Function holeWert(Art As Integer) As Variant


Select Case Art
    Case 1
        holeWert = varJahrZahl
    Case 2
        holeWert = varMonatZahl
    Case 3
        holeWert = varTagZahl
    Case 4
        holeWert = varDatumWert
    Case 5
        holeWert = varVorDatumWert
End Select
    
End Function

SELECT Korridor_Daten.Periode, Korridor_Daten.Mitarbeiter, Korridor_Daten.PersNr, Rohdaten.Kostenstelle, Wochenstunden.Korridorstunden, Korridor_Daten.Anzahl
FROM (Rohdaten INNER JOIN Korridor_Daten ON Rohdaten.[OrgEinh#] = Korridor_Daten.OrgEinh) INNER JOIN Wochenstunden ON Korridor_Daten.PersNr = Wochenstunden.PersNummer
WHERE (((Korridor_Daten.Periode)>=DateSerial(CInt(holeWert(1)),CInt(holeWert(2)),1) And (Korridor_Daten.Periode)<=DateSerial(CInt(holeWert(1)),CInt(holeWert(2)+1),0)));