title image


Smiley Re: Tabellen ausblenden
Hallo Heiko,Umschaltfläche mit Namen Ausblenden erstellen. In die Eigenschaft "Beim Klicken" schreiben:Private Sub Verstecken_Click()On Error GoTo HT_ERRDim TDef As TableDefDim CurDB As Database Set CurDB = CurrentDb() Set TDef = CurDB.TableDefs("Tabellenname") TDef.Attributes = TDef.Attributes + DB_HIDDENOBJECT EXIT_HT:Exit SubHT_ERR:Zeigen = FalseMsgBox "Error: " & Err & " " & Error, 48Resume EXIT_HTEnd SubWeitere Umschaltfläche mit Namen Einblenden erstellen. In die Eigenschaft "Beim Klicken" schreiben:Private Sub Zeigen_Click()On Error GoTo HT_ERRDim TDef As TableDefDim CurDB As Database Set CurDB = CurrentDb() Set TDef = CurDB.TableDefs("Tabellenname") TDef.Attributes = TDef.Attributes - DB_HIDDENOBJECT EXIT_HT:Exit SubHT_ERR:Zeigen = FalseMsgBox "Error: " & Err & " " & Error, 48Resume EXIT_HTEnd SubBißchen mit Vorsicht zu genießen (vorher Datensicherung)!Viel ErfolgAnne

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: