Ich möchte vom aktuellen Datum das Monat bzw. das Jahr auslesen (bitte das kurze datum: z.B.:01.01.08) um es mit einem Wert in einer Tabelle zu vergleichen.

OK das Problem mit dem Auslesen hat sich erledigt.
Aber wie bekomme ich die kurzform für das Jahr(z.B.:nicht 2007 sondern 07)

Wenn Du uns mitteilst, wie du dein obiges Problem erledigt hast, könnten wir vielleicht genauere Hilfe geben.

So bleibt nur sehr allgemein zu sagen:

Code :

1	FORMAT(deinDatum;"jj")

mit

Code :

1	j=year(datum)

bekomme ich das Jahr aber das lange (2007)
ich brauche aber die kurzform(07)
mit:

Code :

1	j=FORMAT(year(datum), jj)

bekomme ich auch nur das lange Jahr(2007) zurück

Sorry, hatte etwas überlesen;

so funktioniert es bei mir:

Code :

1 2 3 4

Function test()   test = Format(Date, "YY") End Function

Ich bekomme mit

Code :

1	j=Format(Date, "YY")

nur eine Fehlermeldung das die typen unverträglich sind oder es ist das falsche datum(06.01.1900) aber auch lang

Kommt jetzt drauf an, was für einen Variablentyp 'j' darstellen soll. Das wird normalerweise am Anfang der Prozedur/der Funktion deklariert.

So sollte es funktionieren

Code :

1 2	Dim j As String j = Format(Date, "YY")

Genau so habe ich es gemacht funktioniert aber nicht.

Moin,
Könntest Du bitte mal Deine kompletten Prozedur posten

Also das ist meine Prozedur:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub DatumAufteilen()   Dim jahr,Monat,MoJa As String Dim datum,dat As Date   dat=date '#################### datum = Format(dat, YY)' gibt das aktuelle datum lang zurück datum = Format(dat, "YY")' gibt das falsche datum lang zurück '#################### jahr = Year(datum) mo = Month(datum)   MoJa = monat & jahr End Sub

Und dies ist mein derzeitigerversuch. Funktioniert, aber naja

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub DatumAufteilen()   Dim j,Jahr,Monat,MoJa As String Dim datum,dat As Date   dat=date j = Year(dat) mo = Month(dat)   ' Dim Buchstabe As String, i As Integer   For i = 3 To Len(j)     Buchstabe = Buchstabe & Mid$(j, i, 1)     MsgBox Buchstabe     jahr = Buchstabe     Next i Monat = jahr & mo   MoJa = monat & jahr End Sub

Ich hoffe du kennst dich aus und findest den Fehler.

p.s. Wie führt mann eine Aktionsabfrage und wie eine Datendefinitionsabfrage in VBA aus.

Bei mir funktioniert es so:

Code :

1 2 3 4 5 6 7 8 9 10 11

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.

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

Das sollte eigentlich mit

Code :

1	DoCmd.OpenQuery

funktionieren. Einhach mal in der OH nachschlagen.

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