Office: Tabellendaten auslesen (erstellt am) ?

Hallo,

gibt es eine Möglichkeit die Daten einer Tabelle auszulesen, welche angibt wann sie erstellt wurde uns zuletzt geändert ? Wenn ja welche ?

Vielen Dank im vorraus.

 

Hallo,

folgende SUB in ein allgemeines Codemodul kopieren. Dann kann sie zB. im Direktbereich-Fenster angewendet werden:

Falls es in der aktuellen ACCESS-Datenbank eine Tabelle namens "DemoTabelle" gibt, so werden durch den nachfolgenden Befehl
TabellenDaten "DemoTabelle"
das Erstellungsdatum/zeit und letzte Änderungsdatum/zeit in einer Messagebox angezeigt.
Falls es diese Tabelle nicht gibt, wird eine Fehlermeldung per Messagebox angezeigt.

Code:

Sub TabellenDaten(TabBez As String)
  Dim cdb As DAO.Database
  Dim tbs As DAO.TableDefs
  Dim tb As DAO.TableDef
  
  On Error GoTo Err_TabellenDaten
  Set cdb = CurrentDb
  Set tbs = cdb.TableDefs
  Set tb = tbs(TabBez$)
  MsgBox "Erstellt am: " & tb.DateCreated & vbCrLf & _
         "Geändert am: " & tb.LastUpdated, _
         vbInformation + vbOKOnly, _
         "Tabelle " & TabBez$
  Exit Sub
Err_TabellenDaten:
  MsgBox "Err=" & Err.Number & vbCrLf & _
         "(" & Err.Description & ")", vbCritical + vbOKOnly, _
         "Fehler"
End Sub

 

Vielen Dank für die Super antwort.