G Graham R Seach Jun 3, 2004 #2 Josef, Public Function IsFormOpen(strFormName As String) As Boolean On Error GoTo Proc_Exit If Forms(strFormName).Name <> "" Then IsFormOpen = True Proc_Exit: End Function Regards, Graham R Seach Microsoft Access MVP Sydney, Australia Microsoft Access 2003 VBA Programmer's Reference http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
Josef, Public Function IsFormOpen(strFormName As String) As Boolean On Error GoTo Proc_Exit If Forms(strFormName).Name <> "" Then IsFormOpen = True Proc_Exit: End Function Regards, Graham R Seach Microsoft Access MVP Sydney, Australia Microsoft Access 2003 VBA Programmer's Reference http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
G Graham R Seach Jun 3, 2004 #3 Josef, Public Function IsFormOpen(strFormName) As Boolean On Error Resume Next If Forms!frmMyFormName Then IsFormOpen = True End Function Regards, Graham R Seach Microsoft Access MVP Sydney, Australia Microsoft Access 2003 VBA Programmer's Reference http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
Josef, Public Function IsFormOpen(strFormName) As Boolean On Error Resume Next If Forms!frmMyFormName Then IsFormOpen = True End Function Regards, Graham R Seach Microsoft Access MVP Sydney, Australia Microsoft Access 2003 VBA Programmer's Reference http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
