The example displays the Window List dialog box as displayed by the Windows, More Windows menu option. This works even if there are less than 8 windows open.
'***************** Code Start ******************* 'Code by Terry Wickenden Sub WinList() On Error GoTo ErrWinList DoCmd.RunCommand acCmdMoreWindows Exit Sub ErrWinList: Select Case Err Case 2501 'Cancel selected in the dialog box Case Else MsgBox Err & Err.Description End Select End Sub '****************** Code End ********************
Return to Example List