Elite Veteran
Beiträge: 862
  
Ort: Wien | Hallo!
HQbauer - 15.05.18
...die Abfrage im Datum das Kriterium den Datenbereich zwischen 2 Datumsfeldern aus einem Formular zu übernehmen...
Public Function fctSendVar()
If CurrentProjekt.AllForms("DatumVerbrauch").IsLoaded Then
fctSendVar = between![Forms]![DatumVerbrauch]![Text3]!And![Forms]![DatumVerbrauch]![Text5]
Else
fctSendVar = between![Forms]![Auswertfrm]![datvon]!And![Forms]![Auswertfrm]![datbis]
End If
End Function
Kurz, warum das so nicht geht:
Operatoren werden als Parameter nicht verstanden. Noch komplexere Ausdrücke wie deine sowieso nicht.
Die Rufzeichen vor/nach den Operatoren wären auch syntaktisch falsch.
Es gibt versch. Lösungen. z.B. (Luftcode)
Public Function fctSendDateFrom() As Date
If CurrentProjekt.AllForms("DatumVerbrauch").IsLoaded Then
fctSendDateFrom = Forms!DatumVerbrauch!Text3
Else
fctSendDateFrom = Forms!Auswertfrm!datvon
End If
End Function
Analog dazu eine fctSendDateTo. In der Abfrage steht dann als Kriterium:
Between fctSendDateFrom() And fctSendDateTo()
Ah, und am Steuerelementnamen "Text3" solltest du vorher dringend arbeiten. 
-----
Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek - Jetzt anmelden für 19./20.10. in Nürnberg
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |
