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 |
||
(Der Versionsvergleich bezieht 4 dazwischenliegende Versionen mit ein.) | |||
Zeile 1: | Zeile 1: | ||
- | [Kategorie:Code- | + | [[Kategorie:Code-Schnipsel]] |
<source lang="vb"> | <source lang="vb"> | ||
- | Function TableIsVisible(ByVal | + | Function TableIsVisible(ByVal TabName As String) As Boolean |
- | TableIsVisible = Not ((Application.CurrentData.AllTables.Item( | + | TableIsVisible = Not ((Application.CurrentData.AllTables.Item(TabName).Attributes And 8) = 8) |
End Function | End Function | ||
</source> | </source> |
Function TableIsVisible(ByVal TabName As String) As Boolean TableIsVisible = Not ((Application.CurrentData.AllTables.Item(TabName).Attributes And 8) = 8) End Function