Microsoft Access Sample Code

This handy function will go through and close all open forms in the Access program. This is a handy function for when a user exits the program or if you want to give the user an easy way to close all forms and go back to a main menu.

Public Function CloseAllForms() Dim lngLoop As Long For lngLoop = (Forms.Count - 1) To 1 Step -1 DoCmd.Close acForm, Forms(lngLoop).Name Next lngLoop End Function

If you need any help implementing this function, or if you need modifications made, please Click Here to get a free quote for your Microsoft Access Development needs.

Click Here to learn more about the WSI quoting process.