title image


Smiley Da gibt es nichts fertiges...
aber so sollte es gehen:



Public Function LetzteTabellenAenderung() As Date

Dim Cont As DAO.Container, Doc As DAO.Document, D As Date, DB As DAO.Database

Set DB = CurrentDb

Set Cont = DB.Containers!Tables

For Each Doc In Cont.Documents

If Doc.LastUpdated > D Then D = Doc.LastUpdated

Next Doc

LetzteTabellenAenderung = D

End Function





Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: