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