Wiki der Access Code Library

Gemeinsam zu mehr Effizienz in der Anwendungserstellung

Sichtbarkeit einer Access-Tabelle

Aus Access Code Library
(Unterschied zwischen Versionen)
Wechseln zu: Navigation, Suche
K
K
Zeile 1: Zeile 1:
-
[[Kategorie:Code-Schnippsel]]
+
[[Kategorie:Code-Schnipsel]]
<source lang="vb">
<source lang="vb">
Function TableIsVisible(ByVal sTabName As String) As Boolean
Function TableIsVisible(ByVal sTabName As String) As Boolean

Version vom 13:37, 13. Nov. 2010

Function TableIsVisible(ByVal sTabName As String) As Boolean
   TableIsVisible = Not ((Application.CurrentData.AllTables.Item(sTabName).Attributes And 8) = 8)
End Function