<\/p>\n
Wenn Sie Daten in der Datenblattansicht von Unterformularen anzeigen, stoßen Sie immer wieder auf das Problem, dass die Spaltenbreiten nicht gleich zu Beginn optimal an die Inhalte der Spalten angepasst werden – also an die Breite der angezeigten Daten. Immerhin kann der Benutzer die Breite in der Regel selbst anpassen. Praktischer aber wäre es, wenn die Spaltenbreiten gleich beim Anzeigen der Daten optimiert würden. Der vorliegende Beitrag zeigt eine kleine Klasse, mit der Sie dies bewerkstelligen können.<\/b><\/p>\n
Für die Demonstration der in diesem Beitrag vorgestellten Klasse eignet sich am besten ein Unterformular in der Datenblattansicht, das seine Daten nach der Auswahl etwa eines Filters im Hauptformular ändert, wodurch eine erneute Optimierung der Spaltenbreiten erforderlich wird. Dazu legen wir ein Unterformular namens sfmArtikel<\/b> an, das mit Feldern der Tabelle tblArtikel<\/b> wie in Bild 1 gefüllt ist und seine Daten in der Datenblattansicht präsentiert.<\/p>\n
![\"Vorbereitung](\"..\/fileadmin\/_temp_\/2015_05\/pic_998_001.png\")
<\/p>\n
Bild 1: Vorbereitung für das automatische Anpassen der Spaltenbreiten<\/span><\/b><\/p>\n Dieses Formular fügen wir in einem weiteren Formular namens frmArtikeNachKategorie <\/b>ein, dem wir als Datenherkunft die Tabelle tblKategorien <\/b>hinzufügen. Das Formular soll die beiden Felder KategorieID <\/b>und Kategorie <\/b>anzeigen. Ziehen Sie das Unterformular sfm-Artikel <\/b>in den Entwurf. Dadurch sollten die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>automatisch auf den Wert KategorieID <\/b>eingestellt werden (s. Bild 2).<\/p>\n Bild 2: Verknüpfung zwischen Haupt- und Unterformular<\/span><\/b><\/p>\n öffnen Sie das Hauptformular nun in der Formularansicht, kann es sein, dass die Spaltenbreiten entweder viel zu breit oder zu schmal für die anzuzeigenden Inhalte eingestellt sind (s. Bild 3). Dies wollen wir ändern, indem wir die Spaltenbreiten zu jeder Aktualisierung der Datenherkunft des Unterformulars neu anpassen.<\/p>\n Bild 3: Unglückliche Darstellung der Spalten<\/span><\/b><\/p>\n Dazu sind, wenn wir die fertige Klasse, welche diese Aufgabe erledigt, als vorhanden voraussetzen, nur wenige Handgriffe nötig.<\/p>\n Damit die Spalten automatisch angepasst werden, sind nur drei Schritte nötig:<\/p>\n Nachdem Sie die Klasse clsColumnWidths <\/b>zum VBA-Projekt der Datenbank hinzugefügt haben, legen Sie eine neue Ereignisprozedur für das Ereignis Beim Laden <\/b>des Hauptformulars an. Diese füllen Sie wie folgt:<\/p>\n Außerdem benötigen Sie noch eine Deklarationszeile für das Objekt objColumnWidths<\/b>, die Sie im Kopf des Klassenmoduls einfügen:<\/p>\n Die Prozedur instanziert zunächst ein Objekt auf Basis der Klasse clsColumnWidths<\/b>. Danach übergibt sie diesem Objekt über seine Eigenschaft DataSheetForm <\/b>einen Verweis auf das Unterformular, das mit der Funktion zum automatischen Anpassen der Spaltenbreiten ausgestattet werden soll. Schließlich wird die Methode OptimizeColumnWidths <\/b>zum Optimieren der Spalten einmalig aufgerufen, damit das Unterformular gleich optimiert wird. Wenn Sie das Formular nun öffnen, ohne den oben genannten dritten Schritt durchzuführen, tut sich nichts – die Spaltenbreiten behalten die vorherigen Einstellungen und werden nicht optimiert.<\/p>\n Sie müssen also unbedingt das Klassenmodul zum Unterformular sfmArtikel <\/b>hinzufügen – auch wenn Sie gar keine Ereignisprozeduren für das Unterformular benötigen. Dies erledigen Sie, indem Sie die Eigenschaft Enthält Modul <\/b>des Unterformulars auf den Wert Ja <\/b>einstellen. Danach sollten die Spaltenbreiten etwa wie in Bild 4 erscheinen.<\/p>\n Bild 4: Spalten mit optimierten Breiten<\/span><\/b><\/p>\n Das Objekt objColumnWidths <\/b>haben wir modulweit deklariert, damit es auch nach der Ausführung der Ereignisprozedur Form_Load <\/b>noch erhalten bleibt. Auf diese Weise wird es nun regelmäßig ausgelöst, wenn der Benutzer den Datensatz im Unterformular wechselt oder das Unterformular gefiltert wird. Dies geschieht beispielsweise auch, wenn Sie den Kategorie-Datensatz im Hauptformular wechseln. Sie können einmal durch die Datensätze scrollen und betrachten, wie die Spaltenbreiten jeweils an die angezeigten Daten angepasst werden.<\/p>\n <\/p>\n Durch die modulweite Deklaration können Sie außerdem von jeder anderen Prozedur aus die Methode OptimizeColumnWidths <\/b>aufrufen, um die Spaltenbreiten zu aktualisieren.<\/p>\n Mit der Eigenschaft OptimizeAutomatically <\/b>können Sie der Klasse auch mitteilen, dass die automatische Optimierung nicht erwünscht ist:<\/p>\n In diesem Fall stoßen Sie die Optimierung der Spaltenbreiten ausschließlich über die Methode OptimizeColumnWidths <\/b>an. OptimizeAutomatically <\/b>hat standardmäßig den Wert True<\/b>.<\/p>\n Die automatische Optimierung erfolgt immer dann, wenn eines der Ereignisse Form_Current <\/b>(Beim Anzeigen<\/b>) oder Form_ApplyFilter <\/b>(Bei Filter<\/b>) ausgelöst wird. Allerdings wurde Form_Current <\/b>für den ersten Datensatz im Unterformular bereits ausgelöst, bevor wir im Form_Load<\/b>-Ereignis die Klasse instanzieren und einstellen können.<\/p>\n Daher müssen Sie die Methode OptimizeColumnWidths <\/b>nach dem Instanzieren einmal direkt aufrufen.<\/p>\n Wenn Sie mehrere Unterformulare mit der Funktion der Klasse ausstatten wollen, ist dies kein Problem.<\/p>\n Deklarieren Sie einfach für jedes Unterformular eine eigene Objektvariable:<\/p>\n Dann schreiben Sie die entsprechenden Anweisungen für beide Objekte in das Form_Load<\/b>-Ereignis des Formulars mit den Unterformularen:<\/p>\n Wenn bei der Arbeit mit dem Formularen ein nicht behandelter Fehler auftritt, werden Objektvariablen wie objColumnWidths <\/b>gelöscht. Der Zugriff darauf führt dann zu einem Fehler. Um dies zu testen, haben wir dem Beispielformular eine Schaltfläche zum Auslösen eines Fehlers hinzugefügt:<\/p>\n Wenn Sie diesen Fehler ausgelöst haben, führt das nachfolgende Aufrufen der Methoden des Objekts objColumnWidths <\/b>zu einem Fehler.<\/p>\n Auch dazu haben wir eine Schaltfläche hinzugefügt, die folgendes Ereignis auslöst:<\/p>\n Bild 5 zeigt die Fehlermeldung nach Betätigung der beiden Schaltflächen an.<\/p>\n Bild 5: Fehler beim Versuch, ein durch einen Fehler geleertes Objekt zu nutzen<\/span><\/b><\/p>\n Dies lässt sich am einfachsten verhindern, indem Sie Fehler entsprechend behandeln. <\/p>\n Die Klasse clsColumnWidths <\/b>erstellen Sie, indem Sie über den Menüeintrag Einfügen|Klassenmodul <\/b>des VBA-Editors ein neues Klassenmodul hinzufügen und dieses unter dem Namen clsColumnWidth <\/b>speichern. Dann fügen Sie zunächst zwei Variablen zum Klassenmodul hinzu:<\/p>\n Die erste soll einen Verweis auf das Formular aufnehmen, das in der Datenblattansicht erscheint und dessen Spalten automatisch optimiert werden sollen. Die zweite nimmt einen Boolean-Wert auf, mit dem die instanzierende Routine festlegt, ob die Spaltenbreiten automatisch beim Datensatzwechsel oder beim Filtern oder nur nach expliziter Aufforderung optimiert werden sollen.<\/p>\n Nach dem Instanzieren der Klasse weist die aufrufende Routine der Eigenschaft DataSheetForm <\/b>einen Verweis auf das zu behandelnde Formular zu.<\/p>\n Dazu stellt die Klasse die folgende Property Set<\/b>-Prozedur zur Verfügung:<\/p>\n Diese schreibt das mit frm <\/b>übergebene Formular-Objekt in die Variable m_Form <\/b>und legt außerdem mit den beiden Eigenschaften OnCurrent <\/b>und OnApplyFilter <\/b>fest, dass die Klasse auf diese beiden Ereignisse des mit m_Form <\/b>referenzierten Formulars lauschen soll.<\/p>\n Diese beiden Ereignisse müssen wir natürlich auch implementieren. Dazu legen Sie die folgenden beiden Ereignisprozeduren an:<\/p>\n Beide Prozeduren prüfen den Inhalt der Variablen m_OptimizeAutomatically<\/b>. Hat diese den Wert True<\/b>, rufen die Ereignisprozeduren die Routine OptimizeColumnWidths<\/b> auf. Diese sieht wie folgt aus:<\/p>\n Die Prozedur stellt im Wesentlichen die Eigenschaft ColumnWidth<\/b> eines der Steuerelemente Textfeld, Kontrollkästchen, Kombinationsfeld oder Listenfeld auf den Wert -2 <\/b>ein, was bewirkt, dass die Breite der jeweiligen Spalte für die aktuell sichtbaren Inhalte optimiert wird. Was aber, wenn der Benutzer nach unten scrollt und dort noch Einträge auftauchen, die nicht in die so eingestellte Spalte passen<\/p>\n Dazu nutzt die Prozedur einen Trick: Sie stellt die Zeilenhöhe mit RowHeight = 1 <\/b>auf den minimalen Wert ein, sodass alle Zeilen direkt sichtbar sind und dementsprechend mit optimiert werden. Dann durchläuft die Prozedur alle Felder und stellt den Wert von ColumnWidth <\/b>entsprechend ein. Schließlich wird die Zeilenhöhe mit der Einstellung auf den Wert -1 <\/b>wieder zurückgesetzt.<\/p>\n![\"Verknüpfung](\"..\/fileadmin\/_temp_\/2015_05\/pic_998_002.png\")
<\/p>\n![\"Unglückliche](\"..\/fileadmin\/_temp_\/2015_05\/pic_998_003.png\")
<\/p>\nAutomatische Spaltenoptimierung einbauen<\/h2>\n
\n
Klasse nutzen<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Set<\/span> objColumnWidths = New<\/span> clsColumnWidths\r\n With<\/span> objColumnWidths\r\n Set<\/span> .DataSheetForm = Me!sfmArtikel.Form\r\n .OptimizeColumnWidths\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nDim <\/span>objColumnWidths As <\/span>clsColumnWidths<\/pre>\n![\"Spalten](\"..\/fileadmin\/_temp_\/2015_05\/pic_998_004.png\")
<\/p>\nAnpassung nur nach Wunsch<\/h2>\n
objColumnWidths.OptimizeAutomatically = False<\/span><\/pre>\nWarum OptimizeColumnWidths beim Start<\/h2>\n
Verwendung der Klasse für mehrere Formulare<\/h2>\n
Dim <\/span>objCWUnterformular1 As <\/span>clsColumnWidths\r\nDim <\/span>objCWUnterformular1 As <\/span>clsColumnWidths<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> objCWUnterformular1 = New<\/span> clsColumnWidths\r\n With<\/span> objCWUnterformular1\r\n Set<\/span> .DataSheetForm = Me!sfmArtikel.Form\r\n .OptimizeColumnWidths\r\n End With<\/span>\r\n Set<\/span> objCWUnterformular1 = New<\/span> clsColumnWidths\r\n With<\/span> objCWUnterformular1\r\n Set<\/span> .DataSheetForm = Me!sfmArtikel.Form\r\n .OptimizeColumnWidths\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nIm Falle eines Fehlers …<\/h2>\n
Private Sub <\/span>cmdFehler_Click()\r\n MsgBox<\/span> 1 \/ 0\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdSpaltenbreitenOptimieren_Click()\r\n objColumnWidths.OptimizeColumnWidths\r\nEnd Sub<\/span><\/pre>\n![\"Fehler](\"..\/fileadmin\/_temp_\/2015_05\/pic_998_005.png\")
<\/p>\nAufbau der Klasse clsColumnWidths<\/h2>\n
Dim <\/span>WithEvents m_Form As <\/span>Form\r\nDim <\/span>m_OptimizeAutomatically As Boolean<\/span><\/pre>\nPublic Property Set<\/span> <\/span>DataSheetForm(frm As <\/span>Form)\r\n Set<\/span> m_Form = frm\r\n m_Form.OnCurrent = \"[Event Procedure]\"\r\n m_Form.OnApplyFilter = \"[Event Procedure]\"\r\nEnd Property<\/span><\/pre>\nPrivate Sub <\/span>m_Form_Current()\r\n If <\/span>m_OptimizeAutomatically Then<\/span>\r\n OptimizeColumnWidths\r\n End If<\/span>\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>m_Form_ApplyFilter(Cancel As Integer<\/span>, ApplyType As Integer<\/span>)\r\n If <\/span>m_OptimizeAutomatically Then<\/span>\r\n OptimizeColumnWidths\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>OptimizeColumnWidths()\r\n Dim <\/span>ctl As <\/span>control\r\n m_Form.RowHeight = 1\r\n For Each ctl In m_Form.Controls\r\n Select Case ctl.ControlType\r\n Case <\/span>acTextBox, acComboBox, acCheckBox, acListBox\r\n If <\/span>Len<\/span>(ctl.ControlSource) > 0 And ctl.ColumnHidden = False<\/span> Then<\/span>\r\n ctl.ColumnWidth = -2\r\n End If<\/span>\r\n Case Else<\/span>\r\n End Select<\/span>\r\n Next<\/span> ctl\r\n m_Form.RowHeight = -1\r\nEnd Sub<\/span><\/pre>\nAutomatisch oder nicht<\/h2>\n