Public Sub VBE_CloseAllModules(_
Dim i As Integer
Dim mods As Modules
Set mods = Application.Modules
For i = mods.count - 1 To 0 Step -1
DoCmd.Close acModule, mods(i).Name, acSaveYes
Next i
End Sub
ASKER
Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.
TRUSTED BY