Datum aus 2 Formularen an eine Abfrage
Karl Donaubauer
Gesendet: 16.05.18 12:16
Betreff: RE: Datum aus 2 Formularen an eine Abfrage



Elite Veteran

Beiträge: 674
5001002525
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
*********
Internationale Access-Konferenz: http://www.AccessDevCon.com
Access-Entwickler-Konferenz: http://www.donkarl.com/?aek
Top of the page Bottom of the page