✔ In VBA für ACCESS: Vom aktuellen Datum das Monat bzw. das Jahr auslesen

[larryson]

Bei mir funktioniert es so:

Option Compare Database
Option Explicit

Private Sub DatumAufteilen()
Dim datum, dat As Date
dat = Date
'####################
datum = Format(dat, "YY") ' gibt das falsche datum lang zurück
'####################
MsgBox datum
End Sub

Ich benutze Access 2000.

 

[rene2407]

Danke so Funktioniert es.
aber wie führe ich eine aktions und wie eine Datendefinitionsabfrage in VBA aus.

 

[larryson]

Das sollte eigentlich mit

DoCmd.OpenQuery

funktionieren. Einhach mal in der OH nachschlagen.

 

[rene2407]

Super, Danke!
So funktioniert alles so wie es sein soll.