Function getapp()
'*******************************************
'Name: getapp (Function)
'Purpose: Get the path and name of the
' current application
'Calls: from debug windows: ? getapp
'Output: sample: C:\My Documents\logpages.mdb
'*******************************************
Dim db As DATABASE
Set db = CurrentDb
getapp = db.Name
End Function