<\/p>\n
Autor: Christoph Spielmann, Düsseldorf<\/p>\n
<\/b>!<\/p>\n
Was Access von anderen Entwicklungsumgebungen unterscheidet, ist insbesondere die einfache und schnelle Entwicklung kompletter Anwendungen ohne viel Programmcode. Eine einfache Datenbank ist so in vielen Fällen bereits nach wenigen Stunden in den Grundzügen fertig gestellt. Sobald die Datenbank aber wächst, werden die ersten Schwächen und Probleme deutlich. Dieser Artikel zeigt Ihnen anhand eines Beispiels für Access 2000, wie Sie diese Schwächen vermeiden.<\/b><\/p>\n
Der typische Aufbau einer Access-Anwendung sieht folgendermaßen aus: Sie haben verschiedene Tabellen, die – teils mit oder teils ohne Abfragen – an Formulare gebunden sind. <\/p>\n
Innerhalb der Formulare werden die Daten angezeigt, verändert und neu hinzugefügt. Beim Verändern und Hinzufügen prüft ein Makro oder eine VBA-Prozedur, ob die Eingaben bestimmten Plausibilitätsregeln entsprechen. <\/p>\n
Teilweise wird hierzu auf Werte anderer Formulare zugegriffen und teilweise findet eine Validierung auch innerhalb der Gültigkeitsregel-Eigenschaft von Tabellen oder Formularfeldern statt. <\/p>\n
Wenn Ihre Datenbank ein zweites Formular enthält, in dem Sie die gleichen Daten evtl. tabellarisch bearbeiten, dann bringen Sie hier einen Großteil der Logik nochmals unter. Bei änderungen passen Sie dann notwendigerweise beide Formulare an.<\/p>\n
Diese Art der Anwendungsentwicklung funktioniert bis zu einem bestimmten Punkt sehr gut, da Ergebnisse relativ zügig erzielt werden können.<\/p>\n
Wächst die Datenbank aber weiter, zeigen sich sehr schnell die Schwächen:<\/p>\n
Eine solche Software-Architektur wird als monolithisch bezeichnet, da sich alle Funktionen durcheinander in einem Klotz befinden.<\/p>\n
Die Lösung des Problems besteht darin, die Anwendung nach dem Schichtenmodell aufzubauen. Hierbei werden häufig drei Schichten verwendet: Datenschicht, Business-Schicht und Präsentationsschicht.<\/p>\n
In der Datenschicht sind Funktionen untergebracht, die lesend oder schreibend auf die Tabellen zugreifen. Jeglicher Datenzugriff muss über diese Schicht erfolgen.<\/p>\n
In der Business-Schicht werden Plausibilitäten geprüft. Dazu gehört beispielsweise die Prüfung, ob der aktuelle Benutzer die betreffende Funktion ausführen darf oder ob alle Datenfelder korrekte Werte beinhalten. Die Business-Schicht greift zur Prüfung ausschließlich auf die Datenschicht zu.<\/p>\n
An oberster Stelle liegt die Präsentationsschicht. Hier werden Daten erfasst oder angezeigt. Die Präsentationsschicht darf nur auf die Business-Schicht, nicht jedoch auf die Datenschicht zugreifen.<\/p>\n
Die Vorteile liegen auf der Hand: Wenn Sie in der Business-Schicht eine Prüfung eines Schreibvorgangs unterbringen und alle Formulare dieses Funktion nutzen, brauchen Sie auch nur eine zentrale Funktion anpassen bzw. korrigieren.<\/p>\n
Ein anderer Vorteil besteht darin, dass Sie beim Umstieg z. B. auf den SQL-Server lediglich die Datenschicht anpassen müssen. Die Business-Schicht, in der das eigentliche Know-how Ihrer Anwendung liegt, kann dagegen unverändert bleiben.<\/p>\n
Das hier vorgestellte Beispiel besteht aus nur einer einzelnen Tabelle, die Adressdaten zusammen mit einem Anlage- und einem änderungsdatum speichert. <\/p>\n
Die Beispieldatenbank finden Sie auf der Heft-CD unter dem Dateinamen Klassen2000.mdb. <\/p>\n
Die Tabelle tblAdressen besteht aus den folgenden Feldern (siehe Bild 1):<\/p>\n
![](\"..\/fileadmin\/_temp_\/{120694B0-9B4D-4ACF-96DA-4A3B38A5E84E}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Die Tabelle tblAdressen in der Entwurfsansicht.<\/span><\/b><\/p>\n Standardwerte oder Gültigkeitsregeln sind nicht definiert, da diese Aufgaben von der Business-Schicht erledigt werden.<\/p>\n Parallel zu der Beispieldatenbank Klassen2000.mdb finden Sie noch eine weitere Datenbank namens KlassenXP.mdb, die die Vorgehensweise beim Einsatz von XP beschreibt. Access 2000 enthält einige Fehler die bei der Bindung von Recordsets an Formulare zutage treten. Bei Access XP sind diese Probleme behoben, sodass hier einige Prozeduren einen einfacheren und eleganteren Aufbau haben. <\/p>\n Zum Zugriff auf die Tabellen ist nun zunächst einmal die Anlage der Datenschicht erforderlich.<\/p>\n Um eine gute übersicht zu gewährleisten, sollte pro Tabelle ein entsprechendes Klassenmodul angelegt werden, in dem alle Funktionen untergebracht sind, die sich mit dieser Tabelle beschäftigen.<\/p>\n Quellcode 1<\/b><\/p>\n <\/b><\/p>\n Bild 2: Der Zugriff auf die Tabellen erfolgt ausschließlich über das Klassenmodul AdressenD.<\/span><\/b><\/p>\n Da in diesem Beispiel nur eine Tabelle zum Einsatz kommt, existiert auch nur ein Klassenmodul. Dies trägt den Namen AdressenD. Das D steht hierbei für Datenschicht (siehe Bild 2).<\/p>\n Einzelne Adresse abrufen<\/b><\/p>\n Die erste Prozedur dieses Klassenmoduls trägt den Namen GetAdresse. Ihre Aufgabe ist es, eine einzelne Adresse aus der Tabelle abzurufen und die Daten in Form eines Recordsets zurück zu liefern. Als Parameter erwartet die Prozedur die Primärschlüsselnummer der Adresse (s. Quell-code 1).<\/p>\n Innerhalb der Prozedur wird ein SQL-Text zusammengestellt mit dessen Hilfe danach ein Recordset gefüllt wird. Dieses wird dann als Ergebnis der Funktion zurückgegeben. Damit sich änderungen am Recordset, die in einer höheren Schicht durchgeführt werden, nicht auf die Datenbank auswirken, sollte das Recordset vor der übergabe an die höhere Schicht noch entbunden (disconnected) werden:<\/p>\n Schließlich sollen Schreibzugriffe kontrolliert über eine andere Datenschicht-Funktion durchgeführt werden.<\/p>\n Aufgrund eines Fehlers in Access 2000 lässt sich ein solches Recordset jedoch nicht an ein Formular binden, weshalb auf diese Anweisung in dieser Beispieldatenbank generell verzichtet werden muss. Beim Einsatz von Access XP tritt das Problem allerdings nicht mehr auf.<\/p>\n Um direkte Schreibzugriffe zu verhindern, wird die LockType-Eigenschaft auf ReadOnly gestellt.<\/p>\n Der LockType wird bewusst nicht auf ReadOnly gesetzt. Dies hat den folgenden Grund:<\/p>\n Quellcode 2<\/b><\/p>\n Quellcode 3 (Fortsetzung nächste Seite)<\/b><\/p>\n Das Recordset wird später auch in der Präsentationsschicht verwendet und hier an das entsprechende Access-Formular gebunden.<\/p>\n Wäre hier ReadOnly eingestellt, könnte man die Daten des Formulars nicht bearbeiten (und dann letztendlich auch nicht an die entsprechende Speicher-Funktion weiterleiten).<\/p>\n Abfragen eines Suchergebnisses<\/b><\/p>\n <\/p>\n Da die Anwendung auch eine Suchfunktion zur Verfügung stellt, liefert die Funktion GetAdressenSuchergebnis mehrere Adressen zurück, die einem Suchkriterium entsprechen (s. Quellcode 2). Auch in dieser Funktion wird wieder ein SQL-Text zusammengestellt und ein entsprechendes Recordset gefüllt. Um unbeabsichtigte änderungen am Recordset zu vermeiden, wird der LockType auf adLockReadOnly und der CursorType auf adOpenStatic gesetzt.<\/p>\n Die Quote-Funktion hat die Aufgabe, evtl. vorhandene Anführungszeichen im Suchtext zu doppeln, sodass Access kein Problem bei der Auswertung der Abfrage hat. Sie finden die Prozedur im Modul modTools der Beispieldatenbank.<\/p>\n Adresse hinzufügen<\/b><\/p>\n Die beiden vorgestellten Prozeduren dienen lediglich dem Einlesen, aber nicht dem Speichern von Daten.<\/p>\n Quellcode 3 (Fortsetzung)<\/b><\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Die Prozedur SaveAdresse hat dagegen die Aufgabe, eine Adresse in die Tabelle zu schreiben (s. Quellcode 3). Die Prozedur hat für jedes Feld der Tabelle einen entsprechenden Parameter. Ausnahme ist der Primärschlüssel. Dieser wird nach Anlage als Ergebnis der Prozedur zurück geliefert.<\/p>\n Die ZN-Funktion wandelt einen Leerstring in den Wert Null um. Dies ist erforderlich, da als Parameter der Datentyp String und nicht Variant verwendet wird.<\/p>\n Vorhandene Adresse aktualisieren<\/b><\/p>\n Die Update-Prozedur hat einen ähnlichen Aufbau (s. Quellcode 4). Im Unterscheid zur Anlage einer neuen Adresse wird bei dieser Prozedur kein Wert zurückgegeben. <\/p>\n Die ID muss stattdessen als Parameter übergeben werden, sodass die Prozedur weiß, welche Adresse sie aktualisieren soll.<\/p>\n Adresse löschen<\/b><\/p>\n Zu guter Letzt fehlt noch eine Prozedur zum Löschen einer Adresse (s. Quellcode 5)<\/p>\n Die Aufgabe der Business-Schicht ist es, den Aufruf der entsprechenden Datenschicht-Prozeduren zu koordinieren und die Datenbank vor unsinnigen Speichervorgängen zu schützen.<\/p>\n Quellcode 6<\/b><\/p>\n Quellcode 7<\/b><\/p>\n Quellcode 8<\/b><\/p>\n In diesem Beispiel trägt das entsprechende Klassenmodul den Namen AdressenB. Das B steht hierbei für Business-Schicht.<\/p>\n Bei den öffentlichen Prozeduren der Business-Schicht bietet es sich an, wenn möglich die Namen der Datenschicht zu übernehmen. Dementsprechend trägt die erste Prozedur den Namen GetAdresse (s. Quellcode 6). Diese Prozedur macht nichts weiter, als eine neue Instanz der Datenschicht-Klasse AdressenD zu erzeugen und hier die gleichnamige Prozedur GetAdresse aufzurufen.<\/p>\n Die Prozedur GetAdressenSuchergebnis hat einen ähnlich einfachen Aufbau (s. Quellcode 7). Hier wird jedoch bereits geprüft, ob entweder ein Firmenname oder ein Nachname angegeben ist. Dies soll vermeiden, dass der Benutzer zu viele Datensätze abfragt und die Performance der Datenbank darunter leiden würde.<\/p>\n Sollten beiden Parameter Leerstrings enthalten, löst die Prozedur einen Laufzeitfehler mit einem entsprechenden Fehlertext aus. Als Fehlernummer wird hierbei der Wert 2000 zuzüglich dem Wert der Access-Konstanten vbObjectError verwendet.<\/p>\n Der Wert 2000 könnte innerhalb Ihrer Anwendung als genereller Fehler der Business-Schicht interpretiert werden.<\/p>\n Zusätzlich könnten Sie weitere Fehlernummern reservieren, um genauere Informationen über die Art des Fehlers an die höhere Schicht zu liefern.<\/p>\n <\/b><\/p>\n Bild 3: Das Suchformular in der Entwurfsansicht<\/span><\/b><\/p>\n Quellcode 9<\/b><\/p>\n Quellcode 10<\/b><\/p>\n Quellcode 11<\/b><\/p>\n Die folgende Auflistung gibt Ihnen einige Anregungen:<\/p>\n Eine wichtige Besonderheit ist noch zu beachten: Standardmäßig unterbricht Access die Programmcode-Ausführung, wenn in einem Klassenmodul ein Fehler auftritt. Um Fehler an die höhere Schicht zu melden, darf dies jedoch nicht der Fall sein. Die entsprechende Einstellung nehmen Sie wie folgt vor:<\/p>\n Prüfung beiSpeichervorgängen<\/b><\/p>\n Eine etwas ausführlichere Prüfung wird von der Prozedur SaveAdresse vorgenommen (s. Quellcode 8).<\/p>\n Hier wird beispielsweise geprüft, ob entweder ein Firmenname oder ein Nachname vorhanden ist.<\/p>\n Sollte dies nicht der Fall sein, darf der Datensatz nicht gespeichert werden. Auch das Vorhandensein einer Postleitzahl und einer Ortsangabe wird geprüft.<\/p>\n <\/b><\/p>\n Bild 4: Da die Datenbindung erst nach Ausführung der ersten Suche erfolgt, wird der Detailbereich vorher ausgeblendet. Ansonsten wäre hier der Text #Name# sichtbar, da Access die Felder nicht an eine Datenquelle binden kann.<\/span><\/b><\/p>\n Quellcode 12<\/b><\/p>\n Quellcode 13<\/b><\/p>\n Die Meldung von Plausibilitätsverletzungen an die höhere Schicht wird wieder mit Hilfe von Laufzeitfehlern bewerkstelligt.<\/p>\n Einen fast identischen Aufbau hat die Prozedur UpdateAdresse, deren Aufbau Sie in der Beispieldatenbank finden.<\/p>\n Löschen einerAdresse<\/b><\/p>\n Die Funktion DeleteAdresse ruft die gleichnamige Prozedur der Datenschicht auf, um einen Datensatz zu löschen (s. Quellcode 9). Sollte Ihre Datenbank mit Benutzerrechten arbeiten, könnte die Prozedur noch um eine entsprechende Prüfung erweitert werden.<\/p>\n Die Präsentationsschicht besteht in diesem Beispiel aus einem Suchformular sowie einem Formular zur Bearbeitung und Neuanlage von Adressen.<\/p>\n Das Suchformular<\/b><\/p>\n Das Suchformular ist ein einfaches Endlosformular (siehe Bild 3). <\/p>\n Im Kopf befinden sich die zwei Textfelder txtFindFirmenname und txtFindNachname zur Eingabe der Suchkriterien.<\/p>\n Mit der Schaltfläche btnSuchen wird die Suche gestartet. Die Schaltfläche btnNeu legt eine neue Adresse an.<\/p>\n Im Detailbereich sind die Felder Firmenname, Nachname, Vorname und PLZ als Suchergebnis aufgelistet. Die einzelnen Steuerelemente sind über die Steuerelementinhalt-Eigenschaft an die betreffenden Felder gebunden.<\/p>\n Diese Bindung muss jedoch von Hand erfolgen, da unter der Datenherkunft-Eigenschaft des Formulars weder eine Abfrage noch eine Tabelle eingetragen ist und damit die automatischen Access-Funktionen nicht zum Zuge kommen. Rechts neben den Feldern ist eine Schaltfläche namens btnDetails platziert. Hiermit kann in die Bearbeitungsmaske gesprungen werden.<\/p>\n Funktionsweise des Suchformulars<\/b><\/p>\n Beim öffnen des Formulars wird zunächst einmal der Detailbereich unsichtbar gemacht (s. Quellcode 10). Dies ist erforderlich, da hier aufgrund der fehlenden Datenbindung der Text #Name# angezeigt wird (siehe Bild 4).<\/p>\n Klickt der Benutzer auf die Suchen-Schaltfläche, wird der Suchvorgang gestartet (s. Quellcode 11). Die Unterprozedur RefreshSuchergebnis hat den Aufbau aus Quellcode 12.<\/p>\n Zunächst wird ein neues Recordset dimensioniert und mittels GetAdressenSuchergebnis-Funktion der Business-Schicht mit Daten gefüllt. Die Eingaben der beiden Suchfelder werden hierbei als Parameter übergeben, wobei die Nz-Funktion NULL-Werte in Leerstrings umwandelt.<\/p>\n Anschließend wird dieses Recordset der Recordset-Eigenschaft des Formulars zugewiesen, wodurch letztendlich die Datenbindung erfolgt.<\/p>\n Wchtig ist hierbei, dass dies nur mit Access 2000 oder Access XP möglich ist. Bei früheren Versionen von Access ist diese Eigenschaft schreibgeschützt. <\/p>\n Zuletzt wird noch der Detailbereich eingeblendet, damit die Daten sichtbar werden.<\/p>\n <\/b><\/p>\n Bild 5: Das Formular zur Bearbeitung von Daten.<\/span><\/b><\/p>\n Die komplette Prozedur ist in eine Fehlerbehandlungsroutine eingerahmt. Zur Erinnerung: Die Business-Schicht meldet einen Fehler, falls weder ein Firmenname noch ein Nachname angegeben ist. Da dies verhältnismäßig häufig auftreten dürfte, ist eine Fehlerbehandlung insbesondere bei dieser Prozedur und generell bei allen Aufrufen der Business-Schicht sehr wichtig.<\/p>\n öffnen von Details und Neuanlage<\/b><\/p>\n Bei einem Klick auf die Detail-Schaltfläche wird die Prozedur aus Quellcode 13 ausgeführt.<\/p>\n Zunächst wird die AdresseID aus dem aktuellen Datensatz ausgelesen. Diese wird anschließend als öffnungsargument an das Formular frmAdresseBearbeiten übergeben.<\/p>\n Da das Bearbeitungsformular als Dialog geöffnet wird, kann anschließend noch das Suchergebnis aktualisiert werden.<\/p>\n Beim Klick auf die Neu-Schaltfläche wird als AdresseID der Wert 0 übergeben (s. Quellcode 14).<\/p>\n Quellcode 14<\/b><\/p>\n Das Formular frmAdresseBearbeiten<\/b><\/p>\n Das Formular frmAdresseBearbeiten (siehe Bild 5) enthält zu jedem Feld der Tabelle ein entsprechendes Eingabefeld. Hier erfolgt jedoch keine Feldbindung mittels Steuerelementinhalt-Eigenschaft.<\/p>\n Darüber hinaus stehen drei Schaltflächen mit den Namen btnOK, btnAbbrechen und btnLöschen zur Verfügung.<\/p>\n Beim Laden des Formulars wird das öffnungsargument überprüft, der Wert in der privaten Variablen m_AdresseID abgelegt und der entsprechende Datensatz von der Business-Schicht angefordert (s. Quellcode 15). Sollte die übergebene AdressenID einen Wert ungleich 0 haben, werden die Inhalte des Recordsets in die einzelnen Textfelder geschrieben. <\/p>\n Leider ist hierbei keine Datenbindung über die Recordset-Eigenschaft möglich, da Access 2000 keine Aktualisierungen zulässt. Hierbei handelt es sich ebenfalls um eine Unzulänglichkeit, die Microsoft bei Access XP behoben hat.<\/p>\n Quellcode 15<\/b><\/p>\n Quellcode 16<\/b><\/p>\n Sollte der Wert dagegen gleich 0 sein, werden lediglich leere Textfelder zur Erfassung der neuen Adresse angezeigt. Zusätzlich wird noch die Löschen-Schaltfläche deaktiviert.<\/p>\n Speichern der Adressdaten über das Formular<\/b><\/p>\n Die Speicherfunktion des Formulars liegt hinter der OK-Schaltfläche (s. Quellcode 16).<\/p>\n Die Prozedur prüft anhand der Variablen m_AdresseID, ob der Datensatz neu angelegt oder lediglich aktualisiert werden soll. Dementsprechend ruft sie die passende Prozedur der Business-Schicht auf.<\/p>\n Anschließend wird das Formular geschlossen.<\/p>\n Löschen einer Adresse<\/b><\/p>\n Zum Löschen einer Adresse wird ebenfalls die passende Prozedur der Business-Schicht aufgerufen (s. Quellcode 17).<\/p>\n Vorher erfolgt noch eine entsprechende Sicherheitsabfrage.<\/p>\nHinweis<\/h3>\n
Public Function GetAdresse(AdresseID As Long) _ As Recordset\r\n Dim SQL As String\r\n Dim Data As New ADODB.Recordset\r\n SQL = \"SELECT * FROM tblAdressen\"\r\n SQL = SQL & \" WHERE AdresseID=\" & CStr(AdresseID)\r\n With Data\r\n .ActiveConnection = CurrentProject.Connection\r\n .Source = SQL\r\n .LockType = adLockReadOnly\r\n .CursorType = adOpenStatic\r\n .CursorLocation = adUseClient\r\n .Open\r\n End With\r\n Set GetAdresse = Data\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{120694B0-9B4D-4ACF-96DA-4A3B38A5E84E}\/pic002.png\")
<\/p>\n\r\nSet .ActiveConnection = Nothing<\/pre>\n
Public Function GetAdressenSuchergebnis(Firmenname As _ String, Nachname As String) As Recordset\r\n Dim SQL As String\r\n SQL = \"SELECT AdresseID, Firmenname, Nachname, \" _ SQL = SQL & \"Vorname, PLZ FROM tblAdressen\"\r\n SQL = SQL + \" WHERE True\"\r\n If Firmenname <> \"\" Then\r\n SQL = SQL + \" AND Firmenname LIKE \" + _ Quote(\"%\" + Firmenname + \"%\")\r\n End If\r\n If Nachname <> \"\" Then\r\n SQL = SQL + \" AND Nachname LIKE \" + _ Quote(\"%\" + Nachname + \"%\")\r\n End If\r\n Dim Data As New ADODB.Recordset\r\n With Data\r\n .ActiveConnection = CurrentProject.Connection\r\n .Source = SQL\r\n .LockType = adLockReadOnly\r\n .CursorType = adOpenStatic\r\n .CursorLocation = adUseClient\r\n .Open\r\n End With\r\n Set GetAdressenSuchergebnis = Data\r\nEnd Function<\/pre>\n
Public Function SaveAdresse(Firmenname As String, _\r\n Nachname As String, Vorname As String, _\r\n Strasse As String, PLZ As String, Ort As String, _\r\n Anlagedatum As Date, änderungsdatum As Date) As Long\r\n Dim SQL As String\r\n SQL = \"SELECT * FROM tblAdressen WHERE False\"\r\n Dim Data As New ADODB.Recordset\r\n With Data\r\n .ActiveConnection = CurrentProject.Connection\r\n .Source = SQL\r\n .LockType = adLockOptimistic\r\n .CursorType = adOpenDynamic\r\n .MaxRecords = 1\r\n .Open\r\n .AddNew\r\n !Firmenname = ZN(Firmenname)\r\n !Nachname = ZN(Nachname)\r\n !Vorname = ZN(Vorname)\r\n !Strasse = ZN(Strasse)<\/pre>\n
!PLZ = ZN(PLZ)\r\n !Ort = ZN(Ort)\r\n !Anlagedatum = Anlagedatum\r\n !änderungsdatum = änderungsdatum\r\n SaveAdresse = !AdresseID\r\n .Update\r\n .Close\r\n End With\r\nEnd Function<\/pre>\n
Public Sub UpdateAdresse(AdresseID As Long, Firmenname _ As String, Nachname As String, Vorname As String, _ Strasse As String, PLZ As String, Ort As String, _ änderungsdatum As Date)\r\n Dim SQL As String\r\n SQL = \"SELECT * FROM tblAdressen\"\r\n SQL = SQL + \" WHERE AdresseID=\" + CStr(AdresseID)\r\n Dim Data As New ADODB.Recordset\r\n With Data\r\n .ActiveConnection = CurrentProject.Connection\r\n .Source = SQL\r\n .LockType = adLockOptimistic\r\n .CursorType = adOpenDynamic\r\n .Open\r\n !Firmenname = ZN(Firmenname)\r\n !Nachname = ZN(Nachname)\r\n !Vorname = ZN(Vorname)\r\n !Strasse = ZN(Strasse)\r\n !PLZ = ZN(PLZ)\r\n !Ort = ZN(Ort)\r\n !änderungsdatum = änderungsdatum\r\n .Update\r\n .Close\r\n End With\r\nEnd Sub<\/pre>\n
Public Sub DeleteAdresse(AdresseID As Long)\r\n Dim SQL As String\r\n SQL = \"DELETE * FROM tblAdressen\"\r\n SQL = SQL + \" WHERE AdresseID=\" + CStr(AdresseID)\r\n CurrentProject.Connection.Execute SQL\r\nEnd Sub<\/pre>\n
Public Function GetAdresse(AdresseID As Long) As _ Recordset\r\n With New AdressenD\r\n Set GetAdresse = .GetAdresse(AdresseID)\r\n End With\r\nEnd Function<\/pre>\n
Public Function GetAdressenSuchergebnis(Firmenname As _ String, Nachname As String) As Recordset\r\n If Firmenname = \"\" And Nachname = \"\" Then\r\n Err.Raise vbObjectError + 2000, _ \"UpdateAdresse\", _ \"Firmenname oder Nachname erforderlich\"\r\n End If\r\n With New AdressenD\r\n Set GetAdressenSuchergebnis = _ .GetAdressenSuchergebnis(Firmenname, _ Nachname)\r\n End With\r\nEnd Function<\/pre>\n
Public Function SaveAdresse(Firmenname As String, _ Nachname As String, Vorname As String, Strasse As _ String, PLZ As String, Ort As String) As Long\r\n If Firmenname = \"\" And Nachname = \"\" Then\r\n Err.Raise vbObjectError + 2000, _ \"UpdateAdresse\", \"Firmenname oder Nachname erforderlich\"\r\n End If\r\n If PLZ = \"\" Then\r\n Err.Raise vbObjectError + 2000, _\"UpdateAdresse\", \"Postleitzahl erforderlich\"\r\n End If\r\n If Ort = \"\" Then\r\n Err.Raise vbObjectError + 2000, _\"UpdateAdresse\", \"Ort erforderlich\"\r\n End If\r\n With New AdressenD\r\n SaveAdresse = .SaveAdresse(Firmenname, _\r\n Nachname, Vorname, Strasse, PLZ, Ort, _ Now, Now)\r\n End With\r\nEnd Function<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{120694B0-9B4D-4ACF-96DA-4A3B38A5E84E}\/pic003.png\")
<\/p>\nPublic Sub DeleteAdresse(AdresseID As Long)\r\n With New AdressenD\r\n .DeleteAdresse AdresseID\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub Form_Open(Cancel As Integer)\r\n Me.Section(0).Visible = False\r\nEnd Sub<\/pre>\n
Private Sub btnSuchen_Click()\r\n RefreshSuchergebnis\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{120694B0-9B4D-4ACF-96DA-4A3B38A5E84E}\/pic004.png\")
<\/p>\nPrivate Sub RefreshSuchergebnis()\r\n On Error GoTo Fehler\r\n Dim Data As ADODB.Recordset\r\n With New AdressenB\r\n Set Data = .GetAdressenSuchergebnis _ (Nz(Me.txtFindFirmenname.Value, \"\"), _ Nz(Me.txtFindNachname.Value, \"\"))\r\n End With\r\n Set Me.Recordset = Data\r\n Me.Section(0).Visible = True\r\n Exit Sub\r\nFehler:\r\n MsgBox Err.Description\r\n Exit Sub\r\nEnd Sub<\/pre>\n
Private Sub btnDetails_Click()\r\n Dim AdresseID As Long\r\n AdresseID = Me.Recordset.Fields(\"AdresseID\").Value\r\n DoCmd.OpenForm \"frmAdresseBearbeiten\", acNormal, , , , acDialog, AdresseID\r\n RefreshSuchergebnis\r\nEnd Sub<\/pre>\n
Hinweis<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{120694B0-9B4D-4ACF-96DA-4A3B38A5E84E}\/pic005.png\")
<\/p>\nPrivate Sub btnNeu_Click()\r\n DoCmd.OpenForm _ \"frmAdresseBearbeiten\", _ acNormal, , , , acDialog, 0\r\nEnd Sub<\/pre>\n
Private m_AdresseID As Long \r\n. . .\r\nPrivate Sub Form_Load()\r\n On Error GoTo Fehler\r\n m_AdresseID = Val(Me.OpenArgs)\r\n With New AdressenB\r\n If m_AdresseID = 0 Then\r\n Me.btnLöschen.Enabled = False\r\n Else\r\n Dim Data As ADODB.Recordset\r\n Set Data = .GetAdresse(m_AdresseID)\r\n Me.txtFirmenname = Data!Firmenname\r\n Me.txtNachname = Data!Nachname\r\n Me.txtVorname = Data!Vorname\r\n Me.txtStrasse = Data!Strasse\r\n Me.txtPLZ = Data!PLZ\r\n Me.txtOrt = Data!Ort\r\n End If\r\n End With\r\n Exit Sub\r\nFehler:\r\n MsgBox Err.Description\r\n Exit Sub\r\nEnd Sub<\/pre>\n
Private Sub btnOK_Click()\r\n On Error GoTo Fehler\r\n If m_AdresseID = 0 Then\r\n ''Neu\r\n With New AdressenB\r\n .SaveAdresse Nz(Me.txtFirmenname), _ Nz(Me.txtNachname), _ Nz(Me.txtVorname), Nz(Me.txtStrasse), _ Nz(Me.txtPLZ), Nz(Me.txtOrt)\r\n End With\r\n Else<\/pre>\n
''Update\r\n With New AdressenB\r\n .UpdateAdresse m_AdresseID, Nz(Me.txtFirmenname), _ Nz(Me.txtNachname), Nz(Me.txtVorname), _ Nz(Me.txtStrasse), Nz(Me.txtPLZ), Nz(Me.txtOrt)\r\n End With\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\n Exit Sub\r\nFehler:\r\n MsgBox Err.Description\r\n Exit Sub\r\nEnd Sub<\/pre>\n