SELECT * , LogDate("ВажнаяТаблица") FROM [ВажнаяТаблица] WITH OWNERACCESS OPTION;

Public Function logDate(tableName As String) As Date

    CurrentDb.Execute ("INSERT INTO [ОбращенияКТаблицам]([таблица],[Когда]) SELECT '" & tableName & "',Now()")
    logDate = Now()
    Debug.Print logDate
    
End Function