Wiki der Access Code Library

Gemeinsam zu mehr Effizienz in der Anwendungserstellung

Sichtbarkeit einer Access-Tabelle

Aus Access Code Library
Wechseln zu: Navigation, Suche
Function TableIsVisible(ByVal sTabName As String) As Boolean
   TableIsVisible = Not ((Application.CurrentData.AllTables.Item(sTabName).Attributes And 8) = 8)
End Function