Gemeinsam zu mehr Effizienz in der Anwendungserstellung
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 |
Function TableIsVisible(ByVal sTabName As String) As Boolean TableIsVisible = Not ((Application.CurrentData.AllTables.Item(sTabName).Attributes And 8) = 8) End Function