![\"Entwurf](\"..\/tl_files\/images\/pic_430_001.png\")
<\/a><\/p>\nBild 1: Entwurf der Datenblattansicht<\/p>\n
Außerdem stellen wir für das Hauptformular die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen <\/b>und Bildlaufleisten <\/b>jeweils auf Nein <\/b>ein und Automatisch zentrieren <\/b>auf Ja<\/b>. Schließlich soll das Unterformular sich mit dem Hauptformular vergrößern lassen, daher legen wir für die Eigenschaften Horizontalter Anker <\/b>und Vertikaler Anker <\/b>jeweils den Wert Beide <\/b>fest.<\/p>\n
Nach dem Wechsel in die Formularansicht des Hauptformulars erwartet uns dann die Ansicht aus Bild 2.<\/p>\n
Bild 2: Datenblatt in der Formularansicht<\/p>\n Wie können wir nun per VBA eine Spalte ein- oder ausblenden über die Benutzeroberfläche geht das ganz einfach: Dort klicken wir mit der rechten Maustaste auf die entsprechende Spaltenüberschrift und wählen den Eintrag Felder ausblenden <\/b>aus dem Kontextmenü aus (siehe Bild 3).<\/p>\n Bild 3: Feld ausblenden per Kontextmenü<\/p>\n Und wie bekommen wir das per VBA hin Wir können es ja einfach mal über das Direktfenster probieren, indem wir dort entsprechende Eigenschaften ändern. Um zu prüfen, ob wir etwa die Spalte Artikelname <\/b>korrekt referenzieren, wollen wir einmal den Inhalt des aktuellen Feldes ausgeben, was auch gelingt:<\/p>\n Können wir so auch etwa die Breite des Feldes einstellen Die Breite können wir zumindest ausgeben:<\/p>\n Lässt sie sich so auch ändern Der folgende Befehl, der die Spaltenbreite verdoppel sollte, zeigt jedenfalls keine Wirkung:<\/p>\n Damit gehen wir dann zum Ein- und Ausblenden über – funktioniert das wenigstens Dazu nutzen wir die Visible<\/b>-Eigenschaft, erst einmal zum Auslesen des aktuellen Wertes:<\/p>\n Dann versuchen wir, die Spalte mit der folgenden Anweisung auszublenden:<\/p>\n Das liefert immerhin einmal eine Reaktion – wenn auch nur in Form einer Fehlermeldung (siehe Bild 4). Wir können das Feld natürlich nicht ausblenden, wenn dieses den Fokus hat. Also verschieben wir diesen auf ein anderes Feld, zum Beispiel Artikel-ID<\/b>, und führen den Befehl erneut aus. Und es geschieht wieder nichts! Offensichtlich kommen wir an die Spalten nicht über den Verweis auf die dahinterliegenden Steuer-elemente heran.<\/p>\n Bild 4: Fehler beim Zugriff auf die Visible-Eigenschaft eines aktiven Steuerelements<\/p>\n Da stellt sich doch die Frage, ob die für Steuer-elemente in der Formularansicht gültigen Eigenschaften überhaupt in der Datenblattansicht wirken. Also durchsuchen wir einmal den Objektkatalog etwa nach den Eigenschaften für das Textfeld-Steuerelement. Und hier werden wir dann auch schnell fündig: Mit ColumnHidden<\/b>, ColumnOrder <\/b>und ColumnWidth <\/b>finden wir Eigenschaften, die sich direkt auf Spalten beziehen (siehe Bild 5).<\/p>\n Bild 5: Einstellungen für Datenblattspalten<\/p>\n Die Eigenschaft ColumnHidden <\/b>für die Spalte Artikelname <\/b>sollte also zum Beispiel den Wert Falsch <\/b>ausgeben, was auch geschieht:<\/p>\n Nun wollen wir die Spalte einmal ausblenden. Dazu verwenden wir diesen Befehl:<\/p>\n Und es gelingt – die Spalte ist nicht mehr zu sehen (siehe Bild 6). Auf die gleiche Weise können wir die Spalte auch wieder einblenden, dazu brauchen wir die Eigenschaft ColumnHidden <\/b>nur wieder auf False <\/b>einzustellen.<\/p>\n Bild 6: Ausblendete Spalte<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nSpalten ein- und ausblenden per Benutzeroberfläche<\/h2>\n
<\/a><\/p>\nSpalten ein- und ausblenden per VBA<\/h2>\n
Debug.Print<\/span> Forms!frmArtikel!sfmArtikel.Form!Artikelname\r\n Chai<\/pre>\nDebug.Print<\/span> Forms!frmArtikel!sfmArtikel. Form!Artikelname.width\r\n 1701 <\/pre>\nForms!frmArtikel!sfmArtikel.Form!Artikelname.Width = 3400<\/pre>\n
Debug.Print<\/span> Forms!frmArtikel!sfmArtikel. Form!Artikelname.Visible\r\nWahr<\/pre>\nForms!frmArtikel!sfmArtikel.Form!Artikelname.Visible = False<\/span><\/pre>\n<\/a><\/p>\nEigenschaften für Datenblattspalten<\/h2>\n
<\/a><\/p>\n Forms!frmArtikel!sfmArtikel.Form!Artikelname. ColumnHidden\r\nFalsch<\/pre>\n
Forms!frmArtikel!sfmArtikel.Form!Artikelname. ColumnHidden = True<\/span><\/pre>\n<\/a><\/p>\nKomfortables Ein- und Ausblenden<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t