Datenbankname in Feld anzeigen lassen

me.Feldbezeichnung =Dir$(CurrentDb.Name)

Professionelles Skript - fand ich sehr gut Office 365