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ß
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
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ß
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"
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"