=CurrentDB.Name 'nazwa bieżącej bazy danych =CodeDB.Name 'baza, w której znajduje się kod, 'np. baza biblioteczna