Datum aus 2 Formularen an eine Abfrage
HQbauer
Gesendet: 17.05.18 00:07
Betreff: RE: Datum aus 2 Formularen an eine Abfrage


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));
Top of the page Bottom of the page