<\/p>\n
Im Beitrag Kunden, Verträge und Anschreiben verwalten lernen Sie eine komplette Anwendung kennen. Der vorliegende Beitrag beschreibt die Technik, die sich hinter dieser Anwendung verbirgt – angefangen mit dem Datenmodell über die Abfragen, Formulare und Berichte bis hin zu den verwendeten VBA-Prozeduren. Spezielle Themen werden in weiteren Beiträgen vertieft, auf die wir an geeigneter Stelle verweisen.<\/b><\/p>\n
Datenmodell<\/b><\/p>\n
Das Datenmodell umfasst einige Tabellen, welche die Daten für die eigentliche Anwendung liefern – nämlich die Verwaltung von Kunden, Verträgen und Anschreiben bezüglich dieser Kunden und Verträge. Zusätzlich gibt es noch eine Optionen-Tabelle, eine Tabelle, welche Informationen über Laufzeitfehler speichert sowie eine zum Speichern temporärer Daten beim Erstellen eines Word-Dokuments.<\/p>\n
Wir durchlaufen das Datenmodell etwa in der Reihenfolge, in der wir die Elemente der Benutzeroberfläche im Beitrag Kunden, Verträge und Anschreiben verwalten <\/b>(www.access-im-unternehmen.de\/854<\/b>) beschrieben haben. Dort beginnen wir mit dem Übersichtsformular zur Anzeige der Kunden, welches als Datenherkunft die Tabelle tblKunden<\/b> verwendet. Zumindest steht dies in der entsprechenden Eigenschaft des Unterformulars sfmKundenuebersicht<\/b> – tatsächlich gibt es in der Datenbank aber gar keine Tabelle namens tblKunden<\/b>. Diese Tabelle gab es aber im ersten Entwurf der Datenbank – und sie sah genau so aus wie die Tabelle, die jetzt tblKundenBase <\/b>heißt (s. Bild 1). Warum der Name dieser Tabelle geändert wurde, erfahren Sie weiter unten.<\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic002.png\")
<\/p>\n
Bild 1: Entwurf der Tabelle tblKundenBase (früher tblKunden)<\/span><\/b><\/p>\n Die Tabelle enthält alle für die Kommunikation mit einem Kunden notwendigen Daten wie die Kundennummer <\/b>(die manuell vergeben wird und vom Wert des Primärschlüsselfeldes KundeID <\/b>abweichen kann), AnredeID<\/b>, Vorname<\/b>, Nachname <\/b>und weitere Felder.<\/p>\n Felder, die auf ID <\/b>enden, deuten normalerweise auf das Vorhandensein von Beziehungen zu anderen Tabellen hin, die als Lookup-Tabellen zur Auswahl von Werten für das betroffene Feld dienen können. So ist es auch bei der Tabelle tblKundenBase<\/b> im Fall der Felder AnredeID <\/b>und PersoenlicheAnredeID<\/b>. Beide Felder sind mit entsprechenden Lookup-Tabellen verknüpft, die Sie in Bild 2 vorfinden.<\/p>\n Bild 2: Die Tabellen tblAnreden und tblPersoenlicheAnreden<\/span><\/b><\/p>\n Verträge speichern<\/b><\/p>\n Die Verträge zu jedem Kunden werden in der Tabelle tblVertraege <\/b>gespeichert. Diese enthält Felder zum Eintragen der wesentlichen Vertragsdaten, die selbst nicht in der Datenbank verwaltet werden (s. Bild 3).<\/p>\n Bild 3: Entwurf der Tabelle tblVertraege<\/span><\/b><\/p>\n Ein sehr wichtiges Feld dieser Tabelle heißt KundeID <\/b>und dient zum Eintragen des Wertes des Feldes KundeID <\/b>der Tabelle tblKundenBase <\/b>für den Kunden, dem der Vertrag zugeordnet ist.<\/p>\n Weitere Fremdschlüsselfelder dieser Tabelle heißen ZahlweiseID<\/b>, GesellschaftID, VertragsartID<\/b> und BankverbindungID<\/b>.<\/p>\n Bei der mit dem Feld ZahlweiseID <\/b>verknüpften Tabelle tblZahlweisen <\/b>handelt es sich wiederum um eine einfache Lookup-Tabelle, die lediglich die entsprechenden Werte zur Auswahl enthält (s. Bild 5 aussehen.<\/p>\n Bild 4: Datenblattansicht der Tabelle tblZahlweisen<\/span><\/b><\/p>\n Bild 5: Eigenschaften des Nachschlagefeldes ZahlweiseID<\/span><\/b><\/p>\n Das Feld VertragsartID<\/b> soll ebenfalls als Nachschlagefeld eingerichtet werden und die Datensätze der Tabelle tblVertragsarten <\/b>anzeigen. Dies sieht später so aus wie in Bild 6.<\/p>\n Bild 6: Das Nachschlagefeld VertragsartID<\/span><\/b><\/p>\n Etwas umfangreicher und nicht mehr als einfache Lookup-Tabelle zu bezeichnen ist die Tabelle tblGesellschaften<\/b>, welche die für das Feld GesellschaftID <\/b>zur Verfügung stehenden Einträge anbietet. Diese Tabelle enthält aber nicht nur die im Nachschlagefeld angezeigten Datensätze, sondern auch noch weitere Felder, die Sie in Bild 7 erkennen können.<\/p>\n Bild 7: Entwurf der Tabelle tblGesellschaften<\/span><\/b><\/p>\n Richtig kompliziert wird es dann beim Fremdschlüsselfeld BankverbindungID<\/b>. Diese dient zwar letztlich auch wieder nur zur Auswahl von Datensätzen einer verknüpften Tabelle namens tblBankverbindungen<\/b>, allerdings handelt es sich bei der verknüpften Tabelle um eine Hilfe zur Herstellung einer Beziehung zwischen den Tabellen tblVertraege <\/b>und tblGeldinstitute <\/b>– und dabei wird dann auch noch das Fremdschlüsselfeld KundeID <\/b>einbezogen.<\/p>\n Um dies nachzuvollziehen, werfen wir einen Blick auf die Übersicht des kompletten Datenmodells in Bild 8.<\/p>\n Bild 8: Übersicht über das Datenmodell<\/span><\/b><\/p>\n Dort wird deutlich, dass die Tabelle tblBankverbindungen <\/b>zunächst einmal die Tabellen tblKunden <\/b>und tblGeldinstitute <\/b>zusammenführt. Eigentlich könnte man dem Kunden auch einfach ein Feld namens BLZ <\/b>und eines namens Kontonummer <\/b>zuweisen, aber die Anwendung soll für jeden Kunden mehrere Bankverbindungen speichern können – was ja auch realistisch ist, denn Hausbesitzer mögen beispielsweise alle Verträge bezüglich des Hauses von einem eigenen Konto aus bezahlen und andere, wie etwa eine Lebensversicherung, von einem anderen Konto aus.<\/p>\n Aber dies hätte sich realisieren lassen, indem wir einfach eine Tabelle mit den Feldern BLZ<\/b>, Kontonummer <\/b>und KundeID <\/b>erstellen, der wir dann pro Kunde mehrere Bankverbindungen zuweisen können. Für die Kontonummer ist dies in Ordnung, denn die ist wohl für jede Bankverbindung eindeutig, aber die BLZ kann durchaus bei mehreren Bankverbindungen verschiedener Kunden gleich sein. Also legen wir eine eigene Tabelle an, die tblGeldinstitute <\/b>heißt und neben dem Namen des Geldinstituts auch noch die Bankleitzahl enthält. Statt eines Feldes BLZ <\/b>fügen wir der Tabelle tblBankverbindungen <\/b>also ein Fremdschlüsselfeld namens GeldinstitutID <\/b>zur Auswahl des Geldinstituts hinzu.<\/p>\n So können Sie also nun die Bankverbindungen für einen Kunden definieren. Um diese Bankverbindungen nun auch den Verträgen zuweisen zu können, damit die Beiträge auch vom richtigen Konto abgebucht werden, wenn ein Kunde mehrere Bankverbindungen angegeben hat, erhält die Tabelle tblVertraege <\/b>auch noch ein Fremdschlüsselfeld, mit dem die Bankverbindung ausgewählt werden kann. Später, beim Entwurf des Formulars zur Eingabe dieser Daten, zeigt dieses Feld natürlich nur die Bankverbindungen und Geldinstitute zum aktuellen Kunden an.<\/p>\n Beschriftungen für die Tabellenfelder einstellen<\/b><\/p>\n Die meisten Tabellenfelder werden auf die eine oder andere Art in einem Formular in der Formular- oder Datenblattansicht landen. Dabei ziehen Sie die Felder am einfachsten direkt aus der Feldliste in den Formularentwurf. Access legt dann automatisch Bezeichnungsfelder an, die sich an den Feldnamen orientieren. Bei Feldnamen wie Strasse <\/b>der EMail <\/b>ist hier in der Regel Nacharbeit erforderlich, um die Bezeichnungsfelder mit Texten wie Straße <\/b>oder E-Mail <\/b>auszustatten. Um diese Arbeit kommen Sie nicht herum, aber Sie können diese zumindest minimieren – nämlich durch Eintragen entsprechender Texte für die Eigenschaft Beschriftung <\/b>der Felder im Tabellenentwurf. Wenn nämlich Beschriftungen vorhanden sind, übernimmt Access diese statt der Feldnamen als Text für die Bezeichnungsfelder.<\/p>\n In den folgenden Abschnitten schauen wir uns nun die Formulare der Anwendung an.<\/p>\n Die Kundenübersicht<\/b><\/p>\n Das Formular frmKundenuebersicht <\/b>soll gleich beim Start der Anwendung geöffnet werden und eine Übersichtsliste der Kunden anzeigen. Dabei soll es die Möglichkeit bieten, die Details zu einem Kunden anzuzeigen, einen Kunden zu löschen oder einen neuen Kunden anzulegen.<\/p>\n Die Anzeige der Kundenliste soll in einem Unterformular in der Datenblattansicht erfolgen, da dieses gegenüber einem Listenfeld ausreichend Komfort zur Anpassung von Spaltenbreiten und -anordnung oder auch zur Sortierung der Datensätze bietet. Deshalb legen Sie zuerst ein entsprechendes Unterformular namens sfmKundenuebersicht<\/b> an. Dieses verwendet die Tabelle tblKunden <\/b>als Datenherkunft und zeigt all ihre Felder an (s. Bild 9).<\/p>\n Bild 9: Entwurf des Unterformulars sfmKundenuebersicht<\/span><\/b><\/p>\n Dieses Formular fügen wir nach dem Speichern und Schließen gleich nach dem Anlegen in ein weiteres neues, leeres Formular ein – und zwar wie in Bild 10 in den Detailbereich. Dies erledigen Sie, indem Sie das Unterformular sfmKundenuebersicht <\/b>aus dem Datenbankfenster beziehungsweise Navigationsbereich in den Formularentwurf ziehen und dann seine Größe anpassen. Unter Access 2007 und jünger stellen Sie außerdem die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>jeweils auf den Wert Beide <\/b>ein.<\/p>\n Bild 10: Haupt- und Unterformular<\/span><\/b><\/p>\n Dieses Formular speichern Sie unter dem Namen frmKundenuebersicht<\/b>. Fügen Sie dem Kopfbereich ein geeignetes Bild und eine Beschriftung hinzu. Legen Sie dort außerdem eine Schaltfläche namens cmdSuche <\/b>an. Im Formularfuß landen weitere Schaltflächen namens cmdOK<\/b>, cmdNeu<\/b>, cmdBearbeiten <\/b>und cmdLoeschen <\/b>– die Beschriftungen können Sie der Abbildung entnehmen.<\/p>\n Die Schaltfläche cmdOK <\/b>soll schlicht das Formular schließen. Dies erreichen Sie durch Anlegen der folgenden Ereignisprozedur:<\/p>\n Zum Anlegen der Prozedur markieren Sie die Schaltfläche cmdOK <\/b>in der Entwurfsansicht, aktivieren mit F4 <\/b>das Eigenschaftsfenster, wählen für die Eigenschaft Beim Klicken <\/b>den Wert [Ereignisprozedur] <\/b>aus und klicken dann auf die Schaltfläche mit den drei Punkten. Die nun erscheinende Prozedur im VBA-Editor ergänzen Sie wie oben angegeben.<\/p>\n tblKunden und tblKundenBase<\/b><\/p>\n Nun kümmern wir uns um die weiteren Schaltflächen, die ja zum Beispiel dem Löschen eines der Kundendatensätze dienen. Wollen wir einen Kunden aber wirklich gleich komplett löschen Und damit auch alle Daten, die mit diesem verknüpft sind Nein, das soll nicht geschehen. Zumal Sie ja Ihre Kommunikation dokumentiert wissen wollen. Wie also löscht man einen Kunden, der nicht mehr aktiv ist Man könnte diesen archivieren und diesen anschließend löschen. Einfacher ist es aber, den Kunden nur als gelöscht zu markieren. Und alle Kunden, die so markiert sind, nicht mehr in den Formularen der Anwendung anzuzeigen. Also kommt nun das Feld GeloeschtAm <\/b>zum Einsatz, das ja bereits in der Abbildung weiter oben zu sehen war.<\/p>\n Wenn Sie sich nun vorstellen, dass die Anwendung in der Entwicklung schon weiter fortgeschritten ist als es im Rahmen dieses Beitrags beschrieben wurde, müssten Sie alle Stellen, an denen die Anwendung auf die Tabelle tblKunden <\/b>zugreift, so ändern, dass nur noch die Datensätze angezeigt werden, deren Feld GeloeschtAm <\/b>den Wert Null <\/b>hat.<\/p>\n Nun unterscheidet Access an keiner Stelle, die sich auf Datenherkünfte oder Datensatzherkünfte bezieht, zwischen Tabellen oder Abfragen. Es spricht also nichts dagegen, einfach die Tabelle tbKunden <\/b>in tblKundenBase <\/b>umzubenennen und eine Abfrage namens tblKunden <\/b>zu erstellen, die nur noch die Datensätze anzeigt, die noch nicht als gelöscht markiert wurden. Diese Abfrage sieht wie in Bild 11 aus.<\/p>\n Bild 11: Die Abfrage tblKunden liefert alle Kunden, die nicht als gelöscht markiert wurden.<\/span><\/b><\/p>\n Schaltflächen aktivieren und deaktivieren<\/b><\/p>\n Abhängig davon, ob das Unterformular überhaupt einen Datensatz anzeigt, sollen die Schaltflächen mit den Beschriftungen Bearbeiten <\/b>und Löschen <\/b>aktiviert oder deaktiviert werden. <\/p>\n Dazu stellen wir eine kleine Funktion namens SchaltflaechenAktivieren <\/b>bereit, die prüft, ob das Unterformular aktuell Datensätze enthält, und die Schaltflächen cmdBearbeiten <\/b>und cmdLoeschen <\/b>entsprechend aktiviert oder deaktiviert:<\/p>\n Was aber ist objSfmKundenuebersicht <\/b>– wir wollen doch das Unterformular sfmKundenuebersicht <\/b>abfragen, das mit Me!sfmKundenuebersicht.Form <\/b>referenziert werden kann Nun, wir haben doch einiges mehr mit diesem Unterformular vor und deshalb speichern wir eine Referenz auf dieses Unterformular in einer eigenen Objektvariable, die im Kopf der Klasse des Formulars wie folgt deklariert wird:<\/p>\n Und wo belegen wir dieses Objekt mit dem entsprechenden Verweis auf das im Unterformular-Steuerelement enthaltene Formular In der Prozedur, die durch das Ereignis Beim Laden <\/b>des Hauptformulars ausgelöst wird (s. Listing 1<\/a><\/span>).<\/p>\n Listing 1: Ereignis beim Laden des Formulars frmKundenuebersicht<\/p>\n Und dort geschieht noch eine Menge mehr. Zum Beispiel stellen wir die Eigenschaft OnCurrent <\/b>für die Variable objSfmKundenuebersicht <\/b>auf den Wert [Ereignisprozedur] <\/b>ein. Dies sorgt dafür, dass wir im gleichen Klassenmodul eine Ereignisprozedur anlegen können, die ausgelöst wird, wenn das referenzierte Unterformular einen neuen Datensatz anzeigt – und das geschieht auch beim Datensatzwechsel. Alles, was wir tun müssen, damit wir diese Ereignisprozedur im Klassenmodul des Hauptformulars statt im Klassenmodul des Unterformulars anlegen können, sind vier Schritte:<\/p>\n Diese Ereignisprozedur sieht wie folgt aus:<\/p>\n Dies sorgt dafür, dass die Prozedur SchaltflaechenAktivieren <\/b>bei jedem Datensatzwechsel im Unterformular ausgelöst wird und die beiden dadurch aktivierten oder deaktivierten Schaltflächen immer den richtigen Status haben. Dies gilt auch, wenn der letzte Datensatz im Unterformular gelöscht wird – in diesem Fall werden die beiden Schaltflächen dann deaktiviert.<\/p>\n Spaltenbreite anpassen<\/b><\/p>\n Die Prozedur Form_Load <\/b>erledigt aber noch mehr. Zum Beispiel sorgt sie dafür, dass die Spaltenbreiten entsprechend des Inhalts der einzelnen Spalten optimiert werden.<\/p>\n Die wesentliche Funktionalität hierzu befindet sich in einem Klassenmodul namens clsColumnWidths<\/b>, das Sie im Kopf des Moduls Form_frmKundendetails <\/b>wie folgt deklarieren (sollten Sie diese Klasse aus der Beispieldatenbank in eine andere Datenbank übertragen können, öffnen Sie einfach den VBA-Editor beider Anwendungen und ziehen Sie die Klasse von einem VBA-Projekt zum anderen):<\/p>\n In der Prozedur Form_Load <\/b>sorgen diese Zeilen dafür, dass die Klasse instanziert und die Spaltenbreiten optimiert werden:<\/p>\n Die erste Anweisung instanziert ein neues Objekt auf Basis der Klasse, die übrigen weisen der Klasse das zu optimierende Formular zu und führen schließlich mit OptimizeColumnWidth <\/b>die Optimierung durch (mehr zu dieser Klasse erfahren sie im Beitrag Datenblatt-Spaltenbreiten automatisch anpassen<\/b>, www.access-im-unternehmen.de\/752<\/b>).<\/p>\n Zeile bei Klick komplett markieren<\/b><\/p>\n Weitere zwei Zeilen sorgen dafür, dass der Benutzer die Daten nicht direkt im Datenblatt bearbeiten kann. Dazu wird beim Anklicken eines Datensatzes direkt der komplette Datensatz markiert. Die dafür nötige Klasse deklarieren Sie im Modulkopf:<\/p>\n Diese Klasse wird wieder mit dem Schlüsselwort WithEvents <\/b>deklariert. Das bedeutet, dass es wieder die Möglichkeit gibt, auf Ereignisse dieser Klasse zu reagieren – dazu gleich mehr. Zunächst die beiden Zeilen, mit denen Sie die Klasse einrichten und einen Verweis auf das betroffene Unterformular übergeben:<\/p>\n Nun zum Ereignis, das Sie für dieses Objekt implementieren können. Es sieht so aus und wird durch einen Doppelklick auf einen der Datensätze ausgelöst: <\/p>\n Die einzige Anweisung ruft die Prozedur KundeBearbeiten <\/b>auf. Dabei übergibt sie als Parameter den aktuellen Wert im Steuerelement txtKunde-ID <\/b>des Unterformulars – hierzu später mehr.<\/p>\n Damit die Datensätze nicht nur nicht bearbeitet werden können, sondern auch noch kein neuer Datensatz angezeigt wird, stellen Sie die drei Eigenschaften Anfügen zulassen<\/b>, Löschen zulassen <\/b>und Bearbeitungen zulassen <\/b>jeweils auf den Wert Nein <\/b>ein.<\/p>\n Schaltflächen aktivieren<\/b><\/p>\n Schließlich wird beim Laden des Formulars noch die Prozedur SchaltflaechenAktivieren <\/b>ausgelöst, damit die Schaltflächen gleich beim Öffnen den richtigen Status aufweisen. Man könnte auch davon ausgehen, dass es ausreicht, wenn dies beim Auswählen eines Datensatzes im Unterformular geschieht – schließlich ist das auch beim Öffnen des Formulars der Fall. Allerdings löst das Unterformular das Ereignis Beim Anzeigen <\/b>bereits zum ersten Mal aus, bevor das Ereignis Beim Laden <\/b>im Hauptformular feuert.<\/p>\n Das heißt, dass die im Klassenmodul des Hauptformulars implementierte Ereignisprozedur, die durch den Datensatzwechsel im Unterformular ausgelöst wird, beim Anzeigen des ersten Datensatzes nach dem Öffnen des Unterformulars noch gar nicht zum Einsatz kommt. Also müssen wir die Prozedur SchaltflaechenAktivieren <\/b>im Ereignis Beim Laden <\/b>des Hauptformulars einmal auf andere Art und Weise auslösen.<\/p>\n Löschen eines Kundendatensatzes<\/b><\/p>\n Einen Kundendatensatz löscht der Benutzer durch einen Mausklick auf die Schaltfläche cmdLoeschen<\/b>. Dies löst die Prozedur aus Listing 2<\/a><\/span> aus. Wie oben besprochen, sollen Datensätze der Tabelle tblKundenBase <\/b>aber gar nicht gelöscht, sondern nur als gelöscht markiert werden.<\/p>\n Listing 2: Löschen eines Kundendatensatzes per Schaltfläche<\/p>\n <\/p>\n Genau dies erledigt die Prozedur: Sie ermittelt zunächst den Wert des Feldes KundeID <\/b>des aktuell im Unterformular markierten Datensatzes und speichert diesen Wert in der Variablen lngKundeID<\/b>. Dieser wird bei der Formulierung einer UPDATE<\/b>-Abfrage wieder aufgegriffen. Diese UPDATE<\/b>-Abfrage soll das Feld GeloeschtAm <\/b>für den betroffenen Datensatz auf das aktuelle Datum samt Uhrzeit einstellen.<\/p>\n Die Execute<\/b>-Methode der zuvor deklarierten und mit einem Verweis auf die aktuell verwendete Datenbank gefüllten Objektvariablen db <\/b>führt die SQL-Aktionsabfrage schließlich aus. Danach wird der Inhalt des Unterformulars mit der Requery<\/b>-Methode aktualisiert und ein Aufruf der Prozedur SchaltflaechenAktivieren <\/b>sorgt für die Aktualisierung des Aktiviert-Status der Schaltflächen Löschen <\/b>und Bearbeiten<\/b>.<\/p>\n Kundendetails anzeigen<\/b><\/p>\n Das Anzeigen des Formulars mit den Kundendetails soll auf zwei Arten möglich sein: erstens durch Auswählen des gewünschten Datensatzes und anschließendes Betätigen der Bearbeiten<\/b>-Schaltfläche und zweitens durch einen Doppelklick auf den Eintrag im Unterformular.<\/p>\n Da es gleich zwei Wege gibt, einen Kunden im Detailformular anzuzeigen, bringen wir die notwendigen Befehle in einer separaten Prozedur unter. Diese wird beim Anklicken der Schaltfläche cmdBearbeiten <\/b>über die entsprechende Ereignisprozedur wie folgt aufgerufen:<\/p>\n Den Aufruf über die Prozedur, die durch einen Doppelklick auf einen der Einträge im Unterformular ausgelöst wird, haben Sie ja bereits weiter oben kennengelernt.<\/p>\n Die Prozedur KundeBearbeiten <\/b>sieht wie in Listing 3<\/a><\/span> aus.<\/p>\n Listing 3: Öffnen eines weiteren Formulars zum Bearbeiten eines Kunden<\/p>\n Sie erwartet die ID des anzuzeigenden Kunden und fügt mit diesem ein Kriterium zusammen, das beispielsweise so aussieht:<\/p>\n Dann öffnet sie das Formular frmKundenDetails <\/b>und übergibt dieses Kriterium mit dem Parameter WhereCondition<\/b>. Außerdem wird das Formular mit DataMode:=acFormEdit <\/b>auf den Bearbeitungsmodus eingestellt.<\/p>\n Es ist wichtig, dass eventuelle Ónderungen an dem im Detail geöffneten Datensatz gleich nach dem Schließen des Detailformulars in der Kundenübersicht dargestellt werden. Dies erreicht man meist, indem man die DoCmd.OpenForm<\/b>-Methode mit dem Parameter WindowMode:=acDialog <\/b>öffnet. Man kann dann abwarten, bis das Formular geschlossen oder unsichtbar geschaltet wird, und das aufrufende Formular mit den folgenden Anweisungen der zwischenzeitlich angehaltenen Prozedur aktualisieren.<\/p>\n Wir machen es hier etwas anders – auch damit Sie während der Bearbeitung des aktuellen Kunden im Formular frmKundenDetails <\/b>weiter mit dem Formular frmKundenuebersicht <\/b>arbeiten können. <\/p>\n Das aufgerufene Formular frmKundenDetails<\/b> wird dazu mit einer modulweit deklarierten Variablen referenziert:<\/p>\n Für diese legen wir – wie schon für das Unterformular – Ereignisprozeduren an. Diese besitzen nur eine einzige Anweisung, welche die Funktion SilentRequery <\/b>mit dem Namen des Feldes KundeID <\/b>aufruft:<\/p>\n Warum legen wir dazu gleich zwei Ereignisprozeduren an Weil wir so nicht nur beim Schließen des Detailformulars, sondern auch beim Speichern des dort angezeigten Datensatzes die Daten in der Kundenübersicht aktualisieren können.<\/p>\n Theoretisch braucht das Formular frmKundendetails <\/b>keinen eigenen Code, damit diese Vorgehensweise funktioniert. Allerdings können Sie nur auf Ereignisse dieses Formulars reagieren, wenn dieses auch ein Klassenmodul besitzt.<\/p>\n Normalerweise ist dies reine Formsache, da Sie zumindest Code für die Schaltfläche cmdOK <\/b>hinterlegen, aber zur Sicherheit: Ist dies nicht der Fall, müssen Sie die Eigenschaft Hat Modul <\/b>des Formulars frmKundendetails <\/b>auf Ja <\/b>einstellen.<\/p>\n Neuen Kunden anlegen<\/b><\/p>\n Auch zum Anlegen eines neuen Kunden rufen wir das Formular frmKundenDetails <\/b>auf. Dies gelingt ausschließlich durch einen Mausklick auf die Schaltfläche cmdNeu<\/b>. Dies löst die folgende Ereignisprozedur aus:<\/p>\n Die hier verwendeten Anweisungen arbeiten prinzipiell genau so wie die zum Bearbeiten eines vorhandenen Kunden – mit der Ausnahme, dass das Formular diesmal durch den Parameter Datamode:=acFormAdd <\/b>gleich einen neuen, leeren Datensatz anzeigt. Auch hier gilt: Der neue Datensatz wird spätestens beim Schließen des Detailformulars, aber auch bereits beim Speichern in der Übersicht angezeigt.<\/p>\n Suche starten<\/b><\/p>\n Sie können auch das Suchformular aufrufen, um nach bestimmten Datensätzen in der Kundenübersicht zu suchen. Dies gelingt mit einem Klick auf die Schaltfläche cmdSuche<\/b>. Dies löst schlicht die folgende Prozedur aus, die das Formular frmKundensuche <\/b>öffnet:<\/p>\n Die Prozedur übergibt den Namen des zu durchsuchenden Unterformulars als Parameter an das aufgerufene Formular.<\/p>\n Feinheiten<\/b><\/p>\n Um das Design der beiden Formulare frmKundenDetails <\/b>und frmKundensuche <\/b>kümmern wir uns gleich, vorher noch einige Kleinigkeiten:<\/p>\n Das Hauptformular frmKundenuebersicht <\/b>zeigt selbst keine Daten an, es besteht also kein Anlass, Elemente wie den Datensatzmarkierer oder die Navigationsschaltflächen einzublenden. Also stellen Sie die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Trennlinien <\/b>und Bildlaufleisten <\/b>auf den Wert Nein <\/b>und Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Kundensuche<\/b><\/p>\n Das Formular frmKundensuche <\/b>wird durch einen Klick auf die entsprechende Schaltfläche des Formulars frmKundenuebersicht <\/b>geöffnet. Beim Öffnen sollte mit dem Öffnungsargument, das mit Me.OpenArgs<\/b> abgefragt wird, der Name des Unterformulars übergeben werden, auf das sich die Suche bezieht. Auf diese Weise können das Suchformular und das Suchergebnis aufeinander abgestimmt werden. Details zur Funktion der Kundensuche finden Sie im Beitrag Kundensuche mit Komfort <\/b>(www.access-im-unternehmen.de\/858<\/b>).<\/p>\n Kunden im Detail anzeigen<\/b><\/p>\n Das Detailformular zur Anzeige eines Kunden sieht im Entwurf wie in Bild 12 aus. Es ist an die Datenherkunft tblKunden<\/b> gebunden – also an die Abfrage, die den gleichen Namen wie eine Tabelle hat, um die Daten der eigentlichen Tabelle gefiltert und ohne als gelöscht markierte Datensätze zu liefern. Wir hätten hier auch die Tabelle tblKundenBase<\/b> als Datenherkunft angeben können, da das Formular ohnehin nicht alle Datensätze dieser Tabelle liefert, sondern immer nur einen – und der wird über das Übersichtsformular frmKundenuebersicht <\/b>ausgewählt, das keine als gelöscht markierten Datensätze anzeigt.<\/p>\n Bild 12: Entwurfsansicht des Formulars frmKundendetails<\/span><\/b><\/p>\n Das Formular enthält alle Felder der Datenherkunft, wobei einige wegen des für die Suche verwendeten Listenfeldes oben rechts in der Abbildung nicht sichtbar sind. Das Formular enthält außerdem zwei Unterformulare: eines zur Anzeige der Bankverbindungen und ein weiteres für die Vertragsdaten. Außerdem finden sich im Formular noch ein Textfeld und ein Listenfeld, die gemeinsam eine Schnellsuche zum flotten Auffinden und Anzeigen weiterer Kunden liefern. Schließlich sind da noch fünf Schaltflächen. Zwei öffnen das Formular frmAnschreibenErstellen<\/b>, eine zeigt einen Bericht zur Ausgabe von Adressetiketten in der Vorschau an und eine weitere druckt das Adressetikett schließlich aus.<\/p>\n Die letzte Schaltfläche im Bunde heißt cmdOK <\/b>und schließt das Formular frmKundendetails<\/b> wieder.<\/p>\n Öffnen des Formulars <\/b><\/p>\n Da wir auch von diesem Hauptformular aus wieder auf die Ereignisse der Unterformulare zugreifen möchten, werden wieder zwei entsprechende Variablen deklariert:<\/p>\n Diese werden gleich in der Ereignisprozedur, die durch das Ereignis Beim Laden <\/b>ausgelöst wird, gefüllt (s. Listing 4<\/a><\/span>).<\/p>\n Listing 4: Ereignisprozedur, die beim Laden des Formulars frmKundendetails ausgelöst wird<\/p>\n Die erste Ereignisprozedur betrifft das Unterformular sfmBankverbindungen<\/b>. Wann immer sich dort etwas tut – egal, ob ein Datensatz hinzugefügt, bearbeitet oder gelöscht wird – soll ein Feld in dem anderen Unterformular, sfmVertraege<\/b>, aktualisiert werden. Dabei handelt es sich um das Feld cboBankverbindungID<\/b>, mit der der Benutzer die für einen Vertrag zu verwendende Bankverbindung auswählt.<\/p>\n Es kann zum Beispiel sein, dass der Benutzer einen Kunden anlegt, dann einen Vertrag hinzufügt und schließlich beim Versuch, eine Bankverbindung auszuwählen, feststellt, dass er noch gar keine Bankverbindung für den Kunden angelegt hat. Wenn er dies nun im anderen Unterformular sfmBankverbindungen <\/b>erledigt, soll diese neue Bankverbindung auch gleich im Unterformular sfmVertraege <\/b>zur Auswahl bereitstehen:<\/p>\n Die zweite Ereignisprozedur eines Unterformulars, die im Klassenmodul des Hauptformulars implementiert werden soll, wird durch das Unterformular sfmVertraege<\/b> ausgelöst – ebenfalls durch das Ereignis Beim Anzeigen<\/b>:<\/p>\n Dieses ruft die Prozedur SchaltflaechenAktivieren<\/b> auf (s. Listing 5<\/a><\/span>), die zuerst prüft, ob im Hauptformular überhaupt ein Kunde angelegt wurde beziehungsweise angezeigt wird – dazu muss das Feld KundeID <\/b>gefüllt sein. Das Ergebnis dieser Prüfung landet in der Variablen bolKundeNichtNull<\/b>. Eine weitere Prüfung untersucht, ob es im Unterformular sfmVertraege <\/b>bereits Datensätze zu diesem Kunden gibt. Falls ja, stellt dies die Variable bolVertragNichtNull <\/b>auf True <\/b>ein.<\/p>\n Listing 5: Aktivieren von Schaltflächen im Formular frmKundendetails<\/p>\n Nun stellt die Prozedur in Abhängigkeit von dieser Boolean<\/b>-Variablen einige Enabled<\/b>-Eigenschaften der verschiedenen Schaltflächen ein. cmdAdressetikett<\/b>, cmdAdressetikettVorschau <\/b>und cmdNeuesDokument <\/b>werden zum Beispiel aktiviert, wenn bolKundeNichtNull <\/b>den Wert True <\/b>hat. Bei der Schaltfläche cmdNeuesVertragsdokument <\/b>muss zusätzlich auch noch bolVertragNichtNull <\/b>den Wert True <\/b>haben. Der Hintergrund ist klar: Wenn die entsprechenden Daten nicht vorliegen, soll der Benutzer auch keine Etiketten beziehungsweise Word-Dokumente auf Basis dieser Daten anlegen können. Schauen wir uns nun zunächst die Unterformulare und ihre Funktionen an.<\/p>\n Das Unterformular sfmBankverbindungen<\/b><\/p>\n Dieses Unterformular zeigt die beiden Felder Geldinstitut <\/b>und Kontonummer <\/b>der Tabelle tblBankverbindungen <\/b>an (s. Bild 13). Es soll die Daten in einer Liste anzeigen, also stellen Sie seine Eigenschaft Standardansicht<\/b> auf Datenblatt <\/b>ein.<\/p>\n Bild 13: Entwurf des Unterformulars sfmBankverbindungen<\/span><\/b><\/p>\n Damit es nur die Bankverbindungen anzeigt, die über das Feld KundeID <\/b>mit dem aktuell im Hauptformular angezeigten Kunden verknüpft sind, stellen Sie die beiden Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformularsteuerelements jeweils auf den Wert KundeID <\/b>ein (s. Bild 14).<\/p>\n Bild 14: Synchronisierung von Haupt- und Unterformular<\/span><\/b><\/p>\n Ein Doppelklick auf das Kombinationsfeld cboGeldinstitutID <\/b>soll das Formular frmGeldinstitute <\/b>öffnen, damit der Benutzer die Einträge der Tabelle tblGeldinstitute <\/b>bearbeiten kann. Dies löst die Prozedur aus Listing 6<\/a><\/span> aus. Die Prozedur öffnet das Formular frmGeldinstitute<\/b> als modalen Dialog und füllt die wie folgt deklarierte Variable mit einem Verweis auf dieses Formular:<\/p>\n Listing 6: Öffnen der Liste der Geldinstitute per Doppelklick<\/p>\n Desweiteren stellt die Prozedur die Eigenschaft Modal <\/b>auf True <\/b>ein und legt für die Eigenschaft OnUnload <\/b>den Wert [Event Procedure] <\/b>fest. <\/p>\n Damit wollen wir sicherstellen, dass beim Schließen dieses Formulars das dort aktuell ausgewählte Geldinstitut als Auswahl in das Kombinationsfeld cboGeldinstitute <\/b>übernommen wird.<\/p>\n Dies erledigt die folgende Ereignisprozedur, die Sie wie folgt im Klassenmodul Form_sfmBankverbindungen <\/b>implementieren:<\/p>\n Das Formular frmGeldinstitute<\/b><\/p>\n Das Formular zur Verwaltung der Geldinstitute sieht im Entwurf wie in Bild 15 aus. Das Formular zeigt in einem Listenfeld namens lst <\/b>die Daten der Tabelle tblGeldinstitute <\/b>an – und zwar so, dass das Feld GeldinstitutID <\/b>in der unsichtbaren ersten Spalte und das zweite, aus den Feldern Geldinstitut <\/b>und Bankleitzahl <\/b>zusammengesetzte Feld in der zweiten, sichtbaren Spalte erscheint.<\/p>\n Bild 15: Das Formular frmGeldinstitute in der Entwurfsansicht<\/span><\/b><\/p>\n Dazu verwendet das Listenfeld die folgende Datensatzherkunft<\/b>, die auch noch nach der Bankleitzahl sortiert wird:<\/p>\n Damit die erste Spalte ausgeblendet wird und nur die zweite Spalte angezeigt wird, stellen Sie die beiden Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>auf die Werte 2 <\/b>und 0cm <\/b>ein.<\/p>\n Geldinstitut vorauswählen<\/b><\/p>\n Wenn beim Öffnen des Formulars über das Kombinationsfeld cboGeldinstitutID <\/b>des Unterformulars sfmGeldinstitute <\/b>bereits ein Eintrag im Kombinationsfeld ausgewählt war, soll dieser gleich im Listenfeld markiert werden.<\/p>\n Dies erledigt die folgende Prozedur, die beim Laden des Formulars ausgelöst wird und nicht nur die Hintergrundfarbe des Formularkopfes einstellt, sondern auch noch das Listenfeld auf den betreffenden Geldinstitut-Datensatz.<\/p>\n Dieser wurde beim Öffnen mit der OpenForm<\/b>-Methode gegebenenfalls als Öffnungsargument übergeben:<\/p>\n Löschen eines Geldinstituts<\/b><\/p>\n Wenn Sie einen der Einträge löschen möchten, verwenden Sie die Schaltfläche cmdLoeschen<\/b>. Diese löst die Ereignisprozedur aus Listing 7<\/a><\/span> aus, die vor dem Löschen noch eine Rückfrage an den Benutzer richtet, ob dieser den Datensatz wirklich löschen möchte.<\/p>\n Listing 7: Löschen eines Geldinstituts<\/p>\n Bearbeiten eines Geldinstituts<\/b><\/p>\n Auch das Bearbeiten eines Datensatzes der Tabelle tblGeldinstitute <\/b>ist möglich (gelegentlich ändern Banken ja mal ihren Namen).<\/p>\n Dazu klicken Sie doppelt auf den zu ändernden Eintrag im Listenfeld und lösen damit die Prozedur aus Listing 8<\/a><\/span> aus.<\/p>\n Listing 8: Bearbeiten eines Geldinstituts<\/p>\n Formular frmGeldinstitute schließen<\/b><\/p>\n Mit einem Klick auf die Schaltfläche cmdOK <\/b>schließt der Benutzer das Formular frmGeldinstitute <\/b>schließlich wieder:<\/p>\n Dadurch wird die im Unterformular sfmBankverbindungen<\/b> definierte Ereignisprozedur objFrmGeldinstitute_Unload <\/b>ausgelöst (s. Listing 9<\/a><\/span>), was dazu führt, dass der aktuell markierte Datensatz in der Liste der Geldinstitute in das Kombinationsfeld übernommen wird, mit dem der Benutzer das Formular frmGeldinstitute <\/b>per Doppelklick geöffnet hat.<\/p>\n Listing 9: Aktualisieren der Geldinstitute im Kombinationsfeld<\/p>\n Das Formular frmGeldinstitutDetails<\/b><\/p>\n Das Anlegen und Bearbeiten der Datensätze der Tabelle tblGeldinstitute <\/b>erfolgt im Formular frmGeldinstitutDetails<\/b>, das im Entwurf wie in Bild 16 aussieht.<\/p>\n Bild 16: Entwurf des Formulars frmGeldinstitutDetails<\/span><\/b><\/p>\n Es verwendet die Tabelle tblGeldinstitute <\/b>als Datenherkunft. Sie können den angezeigten Datensatz damit ändern oder einen neuen Datensatz eingeben.<\/p>\n Ein Klick auf die Schaltfläche cmdOK <\/b>schließt das Formular wieder:<\/p>\n Das Unterformular sfmVertraege<\/b><\/p>\n Damit verlassen wir das Unterformular sfmBankverbindungen<\/b> und widmen uns dem Unterformular sfmVertraege<\/b>.<\/p>\n Dieses sieht im Entwurf wie in Bild 17 aus und bezieht seine Daten aus der Tabelle tblVertraege<\/b>. Es soll genau wie das Unterformular sfmBankverbindungen <\/b>nur solche Datensätze anzeigen, die mit dem aktuell im Hauptformular enthaltenen Datensatz der Datenherkunft tblKunden <\/b>verknüpft sind.<\/p>\n Bild 17: Entwurf des Unterformulars sfmVertraege<\/span><\/b><\/p>\n Stellen Sie also auch hier die Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements auf den Wert KundeID <\/b>ein.<\/p>\n Über dieses Unterformular können Sie, jeweils per Doppelklick, Formulare zum Verwalten der Werte der Kombinationsfelder cboGesellschaftID<\/b> und cboVertragsartID <\/b>öffnen. Bei den Gesellschaften löst ein Doppelklick auf das Kombinationsfeld die Prozedur aus Listing 10<\/a><\/span> aus. Dies öffnet das Formular frmGesellschaften <\/b>und übergibt als Öffnungsargument die GesellschaftID <\/b>des aktuell im Kombinationsfeld ausgewählten Eintrags.<\/p>\n Listing 10: Öffnen des Dialogs zum Bearbeiten der Gesellschaften<\/p>\n Neues Geldinstitut anlegen<\/b><\/p>\n Einen neuen Datensatz können Sie der Tabelle tblGeldinstitute <\/b>hinzufügen, indem Sie auf die Schaltfläche cmdNeu <\/b>klicken. Dies löst die folgende Prozedur aus, die das Formular frmGeldinstitutDetails <\/b>öffnet – und zwar im Anfügemodus:<\/p>\n Ohne auf dieses Formular einzugehen, schauen wir uns noch an, was geschieht, wenn der Benutzer dieses wieder schließt: Dies löst nämlich die im Klassenmodul Form_sfmVertraege <\/b>implementierte Ereignisprozedur objFrmGesellschaften_Unload <\/b>aus, die Sie in Listing 11<\/a><\/span> finden.<\/p>\n Listing 11: Aktionen nach dem Schließen des Formulars frmGesellschaften<\/p>\n Dies übernimmt den aktuell im Listenfeld des Formulars frmGesellschaften <\/b>ausgewählten Eintrag in das Kombinationsfeld cboGesellschaftID<\/b>.<\/p>\n Das durch den Doppelklick auf das Kombinationsfeld geöffnete Formular frmGesellschaften<\/b> (s. Bild 18) ist genau so aufgebaut wie das Formular frmGeldinstitute <\/b>und hat auch genau die gleichen Funktionen – bis hin zum ebenfalls ähnlich gestalteten Formular frmGesellschaftDetails <\/b>zum Anlegen neuer und Bearbeiten vorhandener Gesellschaften.<\/p>\n Bild 18: Entwurf des Formulars frmGesellschaften<\/span><\/b><\/p>\n Nur Bankverbindungen des aktuellen Kunden anzeigen<\/b><\/p>\n Das Kombinationsfeld cboBankverbindungen <\/b>im Unterformular sfmVertraege <\/b>soll nur die Bankverbindungen anzeigen, die zum aktuell im Hauptformular angezeigten Kunden gehören. Dazu wird diese Datensatzherkunft bei jedem Datensatzwechsel im Hauptformular aktualisiert, und zwar durch eine Ereignisprozedur, die durch das Ereignis Beim Anzeigen <\/b>des Hauptformulars ausgelöst wird (s. Listing 12<\/a><\/span>). Anschließend aktualisiert diese Prozedur durch einen Aufruf der Routine SchaltflaechenAktualisieren <\/b>auch noch den Aktiviert-Status der Schaltflächen – immerhin kann es ja sein, dass ein neuer Kunde noch keine Verträge aufweist und die Schaltfläche cmdNeuesVertragsdokument <\/b>deaktiviert werden muss oder umgekehrt.<\/p>\n Listing 12: Aktualisieren der Datensatzherkunft des Kombinationsfeldes cboBankverbindung<\/p>\n Doppelklick auf Kombinationsfeld publik machen<\/b><\/p>\n So praktisch es ist, mit einem Doppelklick auf ein Kombinationsfeld ein Formular zum Bearbeiten der enthaltenen Daten zu öffnen, so gering ist die Wahrscheinlichkeit, dass Otto Normalverbraucher direkt auf diese Möglichkeit kommt. Also sollten wir ihn mit der Nase darauf stoßen – am besten durch einen entsprechenden Hinweistext, der erscheint, wenn die betroffenen Kombinationsfelder den Fokus erhalten.<\/p>\n Wie Ihnen sicher schon aufgefallen ist, verfolgen wir bei dieser Lösung den Ansatz, dass Abhängigkeiten zwischen Formularen nur in eine Richtung gehen. Das heißt, dass ein Hauptformular natürlich von der Existenz des als Unterformular eingesetzten Formulars weiß und auch auf dessen Steuerelemente und Eigenschaften zugreifen kann. Andersherum soll dies aber nicht der Fall sein.<\/p>\n Nun möchten wir im Hauptformular frmKundendetails <\/b>einen Hinweistext in einem Steuerelement namens lblHinweis <\/b>einblenden, wenn der Benutzer ein Steuerelement im Unterformular sfmVertraege <\/b>anklickt (s. Bild 19). <\/p>\n Bild 19: Anzeige von Hilfetexten im Hauptformular<\/span><\/b><\/p>\n Normalerweise würden Sie nun entsprechende Ereignisse für die Kombinationsfelder im Unterformular anlegen, die sich auf das Bezeichnungsfeld im Hauptformular beziehen und dieses mit den entsprechenden Hinweistexten versehen.<\/p>\n Genau dies soll aber nach der verfolgten Philosophie nicht geschehen, sondern das Hauptformular soll es erkennen, wenn der Benutzer das Steuerelement im Unterformular anklickt.<\/p>\n Das ist kein Problem: Genau wie bei den Unterformularen können wir auch für im Unterformular enthaltene Steuerelemente Objektvariablen mit dem Schlüsselwort WithEvents <\/b>deklarieren und die benötigten Ereignisprozeduren im Klassenmodul des Hauptformulars, hier Form_frmKundendetails<\/b>, implementieren.<\/p>\n Die beiden Deklarationszeilen sehen so aus:<\/p>\n Die Ereignisprozedur Form_Load <\/b>des Formulars frmKundendetails <\/b>erweitern Sie um die folgenden Anweisungen:<\/p>\n Die vier Ereignisprozeduren für diese beiden Objekte sehen wie in Listing 13<\/a><\/span> aus. Sie weisen der Eigenschaft Caption <\/b>des Bezeichnungsfeldes lblHinweis <\/b>einen Text zu und blenden es ein beziehungsweise aus, wenn das jeweilige Steuerelement den Fokus verliert. Dies geschieht beispielsweise, wenn der Benutzer ein anderes Steuerelement anklickt.<\/p>\n Listing 13: Ein- und Ausblenden eines Hinweises beim Aktivieren von Kombinationsfeldern<\/p>\n Für den Fall, dass das Unterformular den Fokus verliert, während eines der Kombinationsfelder den Fokus hat, müssen wir noch die folgende Ereignisprozedur anlegen:<\/p>\n Anderenfalls wird das Bezeichnungsfeld nicht ausgeblendet.<\/p>\n Schnellsuche im Formular frmKundendetails<\/b><\/p>\n Neben der Suchfunktion im Übersichtsformular der Anwendung soll auch das Detailformular noch mit einer pfiffigen Suchfunktion ausgestattet werden. Diese soll es ermöglichen, schnell ein paar Buchstaben in ein Suchfeld einzugeben, wobei bestimmte, fest definierte Felder der Tabelle tblKundenBase <\/b>durchsucht und in einem dann erscheinenden Listenfeld angezeigt werden. Der Benutzer soll dann den gewünschten Eintrag auswählen und diesen per Doppelklick im Detailformular anzeigen können.<\/p>\n Kern dieser Suchfunktion sind das Textfeld txtSuche <\/b>zur Eingabe des Suchbegriffs und das Listenfeld lstSuchergebnis <\/b>zur Anzeige und Auswahl der Suchergebnisse (s. Bild 20).<\/p>\n Bild 20: Suchsteuerelemente im Formular frmKundendetails<\/span><\/b><\/p>\n Den Start macht die Prozedur, die beim Eingeben eines Zeichens in das Such-Textfeld txtSuche <\/b>ausgelöst wird. Wir verwenden wieder das Ereignis Bei Ónderung<\/b>, weil dieses bei der Eingabe eines jeden Zeichens ausgelöst wird.<\/p>\n Die entsprechende Prozedur finden Sie in Listing 14<\/a><\/span>. Die Prozedur prüft, ob überhaupt eine Zeichenkette im Textfeld vorliegt. Falls nicht, wird das Listenfeld geleert und ausgeblendet. Falls der Benutzer jedoch mindestens einen Buchstaben eingegeben hat, stellt die Prozedur einen SQL-Ausdruck zusammen, der die Tabelle beziehungsweise Abfrage tblKunden <\/b>als Datenherkunft verwendet und alle Datensätze liefert, deren Felder Vorname<\/b>, Nachname<\/b>, Strasse<\/b>, PLZ <\/b>oder Ort <\/b>den Suchbegriff enthalten.<\/p>\n Listing 14: Ein- und Ausblenden eines Hinweises beim Aktivieren von Kombinationsfeldern<\/p>\n Die Abfrage liefert zwei Felder zurück: den in KundeID <\/b>gespeicherten Primärschlüsselwert und einen aus den wichtigsten Feldern zusammengesetzten Ausdruck mit Vorname, Nachname, Straße und so weiter.<\/p>\n Dies sind die Daten, die im Listenfeld lstSuchergebnis <\/b>angezeigt werden, das Feld KundeID <\/b>dient als unsichtbares Feld zur späteren Auswahl des gesuchten Datensatzes im Formular frmKundendetails<\/b>.<\/p>\n Das Listenfeld erhält für die Eigenschaften Spaltenanzahl <\/b>und Spaltenbreiten <\/b>die Werte 2 <\/b>und 0cm<\/b>, damit nur die wichtigen Informationen angezeigt werden.<\/p>\n Wenn diese SQL-Anweisung mindestens einen Datensatz zurückliefert, wird das Listenfeld durch Einstellen der Eigenschaft Visible <\/b>auf den Wert True <\/b>sichtbar gemacht, anderenfalls blendet die Prozedur das Steuerelement aus.<\/p>\n Liegen Suchergebnisse vor, möchte der Benutzer diese schnell anwählen. Das geht am schnellsten per Nach unten<\/b>-Taste, wenn der Benutzer ohnehin gerade einen Suchbegriff eingetippt hat. Die Ereignisprozedur Bei Taste ab <\/b>(implementiert wie in Listing 15<\/a><\/span>) springt auf solche Eingaben an und verschiebt den Fokus auf das Listenfeld, wenn der Benutzer die Nach unten<\/b>-, die Nach rechts<\/b>– oder die Tabulator<\/b>-Taste betätigt.<\/p>\n Listing 15: Nach unten- und Nach rechts-Taste im Suchfeld<\/p>\n Von dort geht es wie in Listing 16<\/a><\/span> definiert weiter.<\/p>\n Listing 16: Tastenanschläge im Suchergebnis-Listenfeld<\/p>\n Klickt der Benutzer im Listenfeld auf Escape<\/b>, landet der Fokus wieder im Suchfeld txtSuche<\/b> und die Ergebnisliste wird ausgeblendet. Betätigt er die Eingabetaste, wird der aktuell im Suchergebnis markierte Datensatz im Formular frmKundendetails <\/b>angezeigt – dies erledigt die Prozedur aus Listing 17<\/a><\/span>.<\/p>\n Listing 17: Auswahl eines Suchergebnisses<\/p>\n Fehlt noch eine Prozedur, die beim Mausklick auf einen der Einträge den gewünschten Datensatz anzeigt:<\/p>\n Und schließlich soll der Benutzer auch noch per Tastenkombination Strg + F <\/b>zum Suchfenster gelangen, um dort direkt den Suchbegriff eingeben zu können.<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic004.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic006.png\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic008.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic005.png\")
<\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic001.png\")
<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic009.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic010.png\")
<\/p>\nPrivate Sub cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic011.png\")
<\/p>\nPrivate Sub SchaltflaechenAktivieren()\r\n Dim bolNotNull As Boolean\r\n bolNotNull = Not (objSfmKundenuebersicht.Recordset.RecordCount = 0)\r\n Me!cmdBearbeiten.Enabled = bolNotNull\r\n Me!cmdLoeschen.Enabled = bolNotNull\r\nEnd Sub<\/pre>\n
Dim WithEvents objSfmKundenuebersicht As Form<\/pre>\n
Private Sub Form_Load()\r\n Set objSfmKundenuebersicht = Me!sfmKundenuebersicht.Form\r\n With objSfmKundenuebersicht\r\n .OnCurrent = "[Event Procedure]"\r\n End With\r\n Set objColumnWidths = New clsColumnWidths\r\n With objColumnWidths\r\n Set .DataSheetForm = objSfmKundenuebersicht\r\n .OptimizeColumnWidths\r\n End With\r\n Set objDatasheetSelector = New clsDatasheetSelector\r\n Set objDatasheetSelector.DataSheetForm = objSfmKundenuebersicht\r\n SchaltflaechenAktivieren\r\nEnd Sub<\/pre>\n
\n
Private Sub objsfmKundenuebersicht_Current()\r\n SchaltflaechenAktivieren\r\nEnd Sub<\/pre>\n
Dim objColumnWidths As clsColumnWidths<\/pre>\n
Set objColumnWidths = New clsColumnWidths\r\nWith objColumnWidths\r\n Set .DataSheetForm = objSfmKundenuebersicht\r\n .OptimizeColumnWidths\r\nEnd With<\/pre>\n
Dim WithEvents objDatasheetSelector As clsDatasheetSelector<\/pre>\n
Set objDatasheetSelector = New clsDatasheetSelector\r\nSet objDatasheetSelector.DataSheetForm = objSfmKundenuebersicht<\/pre>\n
Private Sub objDatasheetSelector_DblClick()\r\n KundeBearbeiten objSfmKundenuebersicht!txtKundeID\r\nEnd Sub<\/pre>\n
Private Sub cmdLoeschen_Click()\r\n Dim db As DAO.Database\r\n Dim lngKundeID As Long\r\n Dim strSQL As String\r\n lngKundeID = objSfmKundenuebersicht!KundeID\r\n Set db = CurrentDb\r\n strSQL = "UPDATE tblKundenBase SET GeloeschtAm = " & ISODatum(Now) & " WHERE KundeID = " _\r\n & lngKundeID\r\n db.Execute strSQL, dbFailOnError\r\n objSfmKundenuebersicht.Requery\r\n SchaltflaechenAktivieren\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n
Private Sub cmdBearbeiten_Click()\r\n KundeBearbeiten objSfmKundenuebersicht!txtKundeID\r\nEnd Sub<\/pre>\n
Private Sub KundeBearbeiten(lngKundeID As Long)\r\n Dim strWhereCondition As String\r\n strWhereCondition = "KundeID = " & lngKundeID\r\n DoCmd.OpenForm "frmKundenDetails", DataMode:=acFormEdit, WhereCondition:=strWhereCondition\r\n Set objFrmKundenDetails = Forms!frmKundenDetails\r\n With objFrmKundenDetails\r\n .OnClose = "[Event Procedure]"\r\n .AfterUpdate = "[Event Procedure]"\r\n End With\r\nEnd Sub<\/pre>\n
KundeID = 123<\/pre>\n
Dim WithEvents objFrmKundenDetails As Form<\/pre>\n
Private Sub frmKundenDetails_AfterUpdate()\r\n SilentRequery objSfmKundenuebersicht, "KundeID"\r\nEnd Sub\r\nPrivate Sub frmKundenDetails_Close()\r\n SilentRequery objSfmKundenuebersicht, "KundeID"\r\nEnd Sub<\/pre>\n
Private Sub cmdNeu_Click()\r\n DoCmd.OpenForm "frmKundenDetails", DataMode:=acFormAdd\r\n Set objFrmKundenDetails = Forms!frmKundenDetails\r\n With objFrmKundenDetails\r\n .OnClose = "[Event Procedure]"\r\n .AfterUpdate = "[Event Procedure]"\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub cmdSuche_Click()\r\n DoCmd.OpenForm "frmKundensuche", OpenArgs:="sfmKundenuebersicht"\r\nEnd Sub<\/pre>\n
![\"pic019.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic019.png\")
<\/p>\nDim WithEvents objsfmVertraege As Form\r\nDim WithEvents objsfmBankverbindungen As Form<\/pre>\n
Private Sub Form_Load()\r\n Set objsfmVertraege = Me!sfmVertraege.Form\r\n With objsfmVertraege\r\n .OnCurrent = "[Event Procedure]"\r\n End With\r\n Set objsfmBankverbindungen = Me!sfmBankverbindungen.Form\r\n With objsfmBankverbindungen\r\n .OnCurrent = "[Event Procedure]"\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub objsfmBankverbindungen_Current()\r\n objsfmVertraege!cboBankverbindungID.Requery\r\nEnd Sub<\/pre>\n
Private Sub objsfmVertraege_Current()\r\n SchaltflaechenAktivieren\r\nEnd Sub<\/pre>\n
Private Sub SchaltflaechenAktivieren()\r\n Dim bolKundeNichtNull As Boolean\r\n Dim bolVertragNichtNull As Boolean\r\n bolKundeNichtNull = Not IsNull(Me!KundeID)\r\n bolVertragNichtNull = Not IsNull(objsfmVertraege!VertragID)\r\n Me!cmdAdressetikett.Enabled = bolKundeNichtNull\r\n Me!cmdAdressetikettVorschau.Enabled = bolKundeNichtNull\r\n Me!cmdNeuesDokument.Enabled = bolKundeNichtNull\r\n Me!cmdNeuesVertragsdokument.Enabled = bolKundeNichtNull And bolVertragNichtNull\r\nEnd Sub<\/pre>\n
![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic014.png\")
<\/p>\n![\"pic018.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic018.png\")
<\/p>\nPrivate Sub cboGeldinstitutID_DblClick(Cancel As Integer)\r\n DoCmd.OpenForm "frmGeldinstitute", OpenArgs:=Nz(Me!cboGeldinstitutID)\r\n Set objFrmGeldinstitute = Forms!frmGeldinstitute\r\n With objFrmGeldinstitute\r\n .Modal = True\r\n .OnUnload = "[Event Procedure]"\r\n End With\r\nEnd Sub\r\nDim WithEvents objFrmGeldinstitute As Form<\/pre>\n
Private Sub objFrmGeldinstitute_Unload(Cancel As Integer)\r\n If Not IsNull(Forms!frmGeldinstitute!lst) Then\r\n Me!cboGeldinstitutID.Requery\r\n Me!cboGeldinstitutID = Forms!frmGeldinstitute!lst\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic016.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic016.png\")
<\/p>\nSELECT GeldinstitutID, Geldinstitut & " (" & Bankleitzahl & ")" AS Geldinstitutname FROM tblGeldinstitute ORDER BY Bankleitzahl;<\/pre>\nPrivate Sub Form_Load()\r\n Me.Formularkopf.BackColor = Kopffarbe\r\n If Not IsNull(Me.OpenArgs) Then\r\n Me!lst = Me.OpenArgs\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdLoeschen_Click()\r\n Dim db As DAO.Database\r\n If Not IsNull(Me!lst) Then\r\n If MsgBox("Soll das Gelsinstitut ''''" & Me!lst.Column(1) & "'''' wirklich gelöscht werden", _\r\n vbYesNo + vbExclamation, "Geldinstitut löschen") = vbYes Then\r\n Set db = CurrentDb\r\n db.Execute "DELETE FROM tblGeldinstitute WHERE GeldinstitutID = " & Me!lst\r\n Set db = Nothing\r\n Me!lst.Requery\r\n End If\r\n End If\r\nEnd Sub<\/pre>\nPrivate Sub lst_DblClick(Cancel As Integer)\r\n If Not IsNull(Me!lst) Then\r\n DoCmd.OpenForm "frmGeldinstitutdetails", WindowMode:=acDialog, _\r\n WhereCondition:="GeldinstitutID = " & Me!lst, DataMode:=acFormEdit\r\n Me!lst.Requery\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub cmdOK_Click()\r\n DoCmd.Close\r\nEnd Sub<\/pre>\n
Private Sub objFrmGeldinstitute_Unload(Cancel As Integer)\r\n If Not IsNull(Forms!frmGeldinstitute!lst) Then\r\n Me!cboGeldinstitutID.Requery\r\n Me!cboGeldinstitutID = Forms!frmGeldinstitute!lst\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic017.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic017.png\")
<\/p>\nPrivate Sub cmdOK_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/pre>\n
![\"pic015.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic015.png\")
<\/p>\nPrivate Sub cboGesellschaftID_DblClick(Cancel As Integer)\r\n DoCmd.OpenForm "frmGesellschaften", OpenArgs:=Nz(Me!cboGesellschaftID)\r\n Set objFrmGesellschaften = Forms!frmGesellschaften\r\n With objFrmGesellschaften\r\n .PopUp = True\r\n .OnUnload = "[Event Procedure]"\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub cmdNeu_Click()\r\n DoCmd.OpenForm "frmGeldinstitutdetails", WindowMode:=acDialog, DataMode:=acFormAdd\r\n Me!lst.Requery\r\nEnd Sub<\/pre>\n
Private Sub objFrmGesellschaften_Unload(Cancel As Integer)\r\n If Not IsNull(Forms!frmGesellschaften!lst) Then\r\n Me!cboGesellschaftID.Requery\r\n Me!cboGesellschaftID = Forms!frmGesellschaften!lst\r\n End If\r\nEnd Sub<\/pre>\n
![\"pic019.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic0191.png\")
<\/p>\nPrivate Sub Form_Current()\r\n objsfmVertraege!cboBankverbindungID.RowSource = _\r\n "SELECT [tblBankverbindungen].[BankverbindungID], ''''Konto '''' & " _\r\n & "[tblBankverbindungen].[Kontonummer] & '''' bei '''' & tblGeldinstitute.Geldinstitut " _\r\n & "FROM tblBankverbindungen INNER JOIN tblGeldinstitute " _\r\n & "ON tblBankverbindungen.GeldinstitutID = tblGeldinstitute.GeldinstitutID " _\r\n & "WHERE BankverbindungID IN (SELECT BankverbindungID FROM tblBankverbindungen " _\r\n & "WHERE KundeID = " & Me!KundeID & ")"\r\n SchaltflaechenAktivieren\r\n End Sub<\/pre>\n
![\"pic020.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic020.png\")
<\/p>\nDim WithEvents objCboGesellschaftID As ComboBox\r\nDim WithEvents objCboVertragsartID As ComboBox<\/pre>\n
Private Sub Form_Load()\r\n ...\r\n Set objCboGesellschaftID = Me!sfmVertraege.Form!cboGesellschaftID\r\n With objCboGesellschaftID\r\n .OnGotFocus = "[Event Procedure]"\r\n .OnLostFocus = "[Event Procedure]"\r\n End With\r\n Set objCboVertragsartID = Me!sfmVertraege.Form!cboVertragsartID\r\n With objCboVertragsartID\r\n .OnGotFocus = "[Event Procedure]"\r\n .OnLostFocus = "[Event Procedure]"\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub objCboGesellschaftID_GotFocus()\r\n Me!lblHinweis.Caption = "Klicken Sie doppelt auf die Gesellschaft, um diese zu bearbeiten."\r\n Me!lblHinweis.Visible = True\r\nEnd Sub\r\nPrivate Sub objCboGesellschaftID_LostFocus()\r\n Me!lblHinweis.Visible = False\r\nEnd Sub\r\nPrivate Sub objcboVertragsartID_GotFocus()\r\n Me!lblHinweis.Caption = "Klicken Sie doppelt auf die Vertragsart, um diese zu bearbeiten."\r\n Me!lblHinweis.Visible = True\r\nEnd Sub\r\nPrivate Sub objcboVertragsartID_LostFocus()\r\n Me!lblHinweis.Visible = False\r\nEnd Sub<\/pre>\n
Private Sub sfmVertraege_Exit(Cancel As Integer)\r\n Me!lblHinweis.Visible = False\r\nEnd Sub<\/pre>\n
![\"pic021.png\"](\"..\/fileadmin\/_temp_\/2012_05\/KVAEntwicklung-web-images\/pic021.png\")
<\/p>\nPrivate Sub txtSuche_Change()\r\n Dim strSQL As String\r\n If Len(Me!txtSuche.Text) > 0 Then\r\n strSQL = "SELECT KundeID, Vorname & '''' '''' & Nachname & ''''|'''' & Strasse & ''''|'''' & PLZ & '''' '''' " _\r\n & "& Ort FROM tblKunden WHERE Vorname & '''' '''' & Nachname & ''''|'''' & Strasse & ''''|'''' & PLZ " _\r\n & "& '''' '''' & Ort LIKE ''''*" & Me!txtSuche.Text & "*''''"\r\n Me!lstSuchergebnis.RowSource = strSQL\r\n If Me!lstSuchergebnis.ListCount > 0 Then\r\n Me!lstSuchergebnis.Visible = True\r\n Else\r\n Me!lstSuchergebnis.Visible = False\r\n End If\r\n Else\r\n Me!lstSuchergebnis.RowSource = ""\r\n Me!lstSuchergebnis.Visible = False\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub txtSuche_KeyDown(KeyCode As Integer, Shift As Integer)\r\n If Me!lstSuchergebnis.Visible = False Then\r\n Exit Sub\r\n End If\r\n Select Case KeyCode\r\n Case vbKeyTab, vbKeyRight, vbKeyDown\r\n Me!lstSuchergebnis.SetFocus\r\n Me!lstSuchergebnis = Me!lstSuchergebnis.ItemData(0)\r\n KeyCode = 0\r\n Case Else\r\n Debug.Print KeyCode\r\n End Select\r\nEnd Sub<\/pre>\n
Private Sub lstSuchergebnis_KeyDown(KeyCode As Integer, Shift As Integer)\r\n Dim bolZurueck As Boolean\r\n Select Case KeyCode\r\n Case vbKeyEscape\r\n Me!txtSuche.SetFocus\r\n Me!txtSuche.SelStart = Me!txtSuche.SelLength\r\n Me!lstSuchergebnis.Visible = False\r\n Me!lstSuchergebnis = Null\r\n KeyCode = 0\r\n Case 13\r\n DatensatzAnzeigen\r\n KeyCode = 0\r\n Exit Sub\r\n Case vbKeyUp, vbKeyLeft\r\n bolZurueck = True\r\n Case vbKeyTab\r\n If Shift = acShiftMask Then\r\n bolZurueck = True\r\n End If\r\n Case Else\r\n Debug.Print KeyCode\r\n End Select\r\n If bolZurueck And Me!lstSuchergebnis.ListIndex = 0 Then\r\n Me!txtSuche.SetFocus\r\n Me!txtSuche.SelStart = Me!txtSuche.SelLength\r\n Me!lstSuchergebnis = Null\r\n KeyCode = 0\r\n End If\r\nEnd Sub<\/pre>\n
Private Sub DatensatzAnzeigen()\r\n Me.Recordset.FindFirst "KundeID = " & Me!lstSuchergebnis\r\n Me!lstSuchergebnis = Null\r\n Me!txtSuche = Null\r\n Me!txtSuche.SetFocus\r\n Me!lstSuchergebnis.Visible = False\r\nEnd Sub<\/pre>\n
Private Sub lstSuchergebnis_Click()\r\n DatensatzAnzeigen\r\nEnd Sub<\/pre>\n