Member
Beiträge: 23
| Hier der Code:
Public Function fctSendDateFrom() As Date
If CurrentProjekt.AllForms("DatumVerbrauch").IsLoaded Then
fctSendDateFrom = Forms!DatumVerbrauch!datvon
Else
fctSendDateFrom = Forms!Auswertfrm!datvon
End If
End Function
Public Function fctSendDateTo() As Date
If CurrentProjekt.AllForms("DatumVerbrauch").IsLoaded Then
fctSendDateTo = Forms!DatumVerbrauch!datbis
Else
fctSendDateTo = Forms!Auswertfrm!datbis
End If
End Function
das ist die Abfrage als SQL Code:
SELECT Stunden.Datum, Stunden.IDauftrag, Stunden.Stunden, Maschinen.Maschine, Fremdfirmen.Firma, Stunden.Monteurart
FROM ((Stunden INNER JOIN Auftrag ON Stunden.IDauftrag = Auftrag.IDAuftrag) INNER JOIN Maschinen ON Auftrag.IDMaschine = Maschinen.IDMaschine) INNER JOIN Fremdfirmen ON Stunden.Monteurart = Fremdfirmen.ID
WHERE (((Stunden.Datum) Between fctSendDateFrom() And fctSendDateTo()) AND ((Fremdfirmen.ID)<>10));
|
