Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Datum alsTabellenname in Access





Frage

Hallo, ich habe ein Problem mit Access. Ich möchte eine vorhandene Tabelle "Archiv" automatisch umbenennen lassen mit dem aktuellen Datum im Format YYYYMMDD. Am Ende sollte die Tabelle so heissen: Archiv_YYYYMMDD. Ich nehme auch gerne VBA Code. Hab es in VBA schon geschafft die Tabelle umzubenennen aber keine Ahnung wie ich in das Datum als Namen hinbekomme. Hoffe jemand kann mir helfen. VG

Antwort 1 von Event

Hallo

Function gdat(datum As String)

gudat = Mid(datum, 7, 4) & Mid(datum, 4, 2) & Left(datum, 2) & Mid(datum, 12, 2) & Mid(datum, 15, 2) & Right(datum, 2)

End Function

Gruß

Antwort 2 von dr.strangelove

Danke für die schnelle Hilfe aber das Programm funktioniert bei mir noch immer nicht so recht. Hier mein Code:

Function gdat(Datum As String)
On Error GoTo fehler

gudat = Mid(Datum, 7, 4) & Mid(Datum, 4, 2) & Left(Datum, 2) & Mid(Datum, 12, 2) & Mid(Datum, 15, 2) & Right(Datum, 2)

DoCmd.Rename "gudat", acTable, "Archiv"

Exit Function

fehler:
MsgBox Err.Number & " " & Err.Description

End Function


Ich weiss nur nicht wo hier der Fehler liegt

Antwort 3 von Event

Hallo

Sorry, in meinem post hatte sich ein Fehler eingeschlichen.

Function gdat(datum As String)
gdat = Mid(datum, 7, 4) & Mid(datum, 4, 2) & Left(datum, 2)
End Function

Diese Funktion sollte bei übergabe des richtigen Datumformat´s (MM.TT.JJJJ) das Datum im Format YYYYMMDD zurückgeben. Z.B dat=gudat("03.11.2005") - dat ="20051103"

Gruß

Antwort 4 von Event

...noch´n Fehler:
Diese Funktion sollte bei Übergabe des richtigen Datumformat´s (TT.MM.JJJJ) das Datum im Format YYYYMMDD zurückgeben. Z.B dat=gdat("03.11.2005") - dat ="20051103"

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: