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 (Die Seite wurde neu angelegt: „[Kategorie:Code-Schnippsel] <source lang="vb"> Function TableIsVisible(ByVal sTabName As String) As Boolean TableIsVisible = Not ((Application.CurrentData.AllT…“)
K
Zeile 1: Zeile 1:
-
[Kategorie:Code-Schnippsel]
+
[[Kategorie:Code-Schnippsel]]
<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