Gemeinsam zu mehr Effizienz in der Anwendungserstellung
K |
K |
||
(Der Versionsvergleich bezieht 2 dazwischenliegende Versionen mit ein.) | |||
Zeile 1: | Zeile 1: | ||
[[Kategorie:Code-Schnipsel]] | [[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