Gemeinsam zu mehr Effizienz in der Anwendungserstellung
Function TableIsVisible(ByVal TabName As String) As Boolean TableIsVisible = Not ((Application.CurrentData.AllTables.Item(TabName).Attributes And 8) = 8) End Function