<\/p>\n
Autor: Christoph Spielmann, Düsseldorf und Klaus Giesen, Wuppertal<\/p>\n
<\/b><\/p>\n
Es ist eine Binsenweisheit, dass große Entscheidungen einen Rattenschwanz von Konsequenzen auch im Kleinen nach sich ziehen können. Bezogen auf die Einführung des Euro und Microsoft Access bedeutet das beispielsweise, dass mit Sicherheit eine Unmenge von Währungsfeldern in Access-Tabellen auf die neue Währung umgestellt werden müssen. Schließlich muss in vielen Datenbankanwendungen mit diesen Feldern genau gerechnet werden. Im folgenden Beitrag lernen Sie einen Assistenten kennen, der Ihnen bei der Währungsumstellung Ihrer Access-Datenbanken behilflich ist.<\/b><\/p>\n
Der Begriff „Währungsumstellung“ bedeutet in diesem Zusammenhang zunächst einmal eine mathematische Umrechnung der DM-Werte mit einem konstanten und obendrein hinlänglich bekannten Quotienten (1,95583).<\/p>\n
Etwas genauer betrachtet, bedeutet die Umstellung allerdings noch eine ganze Menge mehr:<\/p>\n
Bei einer Währungsumstellung in Datenbanktabellen muss in der Regel sichergestellt sein, dass alle Währungsfelder in einer Datenbank auch korrekt umgerechnet werden. Anderenfalls wird beispielsweise bei einer Fakturierung ganz schnell das große Chaos ausbrechen.<\/p>\n
Wie ist eine solche Aufgabe am besten zu erledigen<\/p>\n
Die richtige Antwort hängt – wie so oft im Leben – von den vorliegenden Umständen ab.<\/p>\n
Bei nur einer oder zwei Tabellen ist ohne weiteres der Einsatz einer kleinen Aktualisierungsabfrage zu empfehlen, um die entsprechenden Felder umrechnen zu lassen. Anders ausgedrückt: Das kann manuell erledigt werden.<\/p>\n
Ab einer bestimmten Größenordnung wird jedoch das Aufspüren und Umrechnen der entsprechenden Tabellenfelder mühsam bis unmöglich. Ganz abgesehen davon, besteht dann – wie bei jeder manuellen Methode – die Gefahr, etwas zu übersehen oder zu vergessen. Das kann gerade bei Währungsfeldern unangenehme Konsequenzen haben.<\/p>\n
An dieser Stelle bietet sich der Einsatz eines Tools an, mit dem das Aufspüren und Umrechnen der infrage kommenden Tabellenfelder in jedem Fall sichergestellt werden kann. Obendrein sollte ein solches Tool auch einfach zu bedienen sein.<\/p>\n
Installation bedeutet in diesem Fall lediglich:<\/p>\n
Datenbankobjekte importieren<\/b><\/p>\n
Der Euro-Assistent besteht aus der Tabelle tblEuroFields und den Formularen frmEuroAssistent und frmEuroAssistentSub. Als Arbeitsdatenbank wird bei diesem Beitrag die zusammen mit Access ausgelieferte Beispieldatenbank Nordwind benutzt.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Das Dialogfenster Objekte importieren<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: Das Dialogfenster Verweise<\/span><\/b><\/p>\n Die beim Klick auf die Schaltfläche Optionen sichtbaren Einstellungsmöglichkeiten beim Import von Tabellen (Nur Definition oder Definition und Daten) haben bei diesem Import keine Bedeutung. <\/p>\n Verweise einstellen<\/b><\/p>\n Der VBA-Code des Euro-Assistenten benötigt zur Lauffähigkeit den Zugriff auf ganz bestimmte Programmbibliotheken. Die Einstellung erfolgtim Visual Basic-Fenster von Access.<\/p>\n Falls kein Modul in Ihrer Datenbank vorhanden sein sollte, klicken Sie stattdessen auf die Schaltfläche Neu. <\/p>\n <\/b><\/p>\n Bild 3: Markierte Verweise<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 4: Der Menübefehl Kompilieren<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 5: Die Tabellenentwurf<\/span><\/b><\/p>\n Sie können – falls vorhanden – auch die Versionen 2.1, 2.6 oder 2.7 dieser beiden Programmbibliotheken verwenden. <\/p>\n Abschließend sollte die Datenbank kompiliert werden, um etwaige Fehlerquellen zu erkennen bzw. auszuschließen (siehe Bild 4).<\/p>\n Jetzt sollte der Euro-Assistent problemlos funktionieren. Außerdem können Sie nun einen Blick auf seine Bestandteile werfen und ihn anschließend ausprobieren.<\/p>\n Wie schon oben erwähnt besteht der Euro-Assistent aus der Tabelle tblEuroFields und den Formularen frmEuroAssistent und frmEuroAssistentSub.<\/p>\n <\/p>\n Die Tabelle tblEuroFields<\/b><\/p>\n In der Tabelle tblEuroFields werden die Informationen über die numerischen Felder Ihrer Datenbank gespeichert (siehe Bild 5).<\/p>\n Die Tabelle besteht lediglich aus vier Spalten, ist also keinesfalls kompliziert zu nennen.<\/p>\n Neben dem Primärschlüsselfeld gibt es je ein Feld, in dem später Tabellen- und Feldnamen gespeichert werden.<\/p>\n <\/b><\/p>\n Bild 6: Das Formular in der Entwurfsansicht<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 7: Das Unterformular als Datenblatt<\/span><\/b><\/p>\n Ein Ja\/Nein-Feld wird durch ein Kontrollkästchen mit dem entsprechenden Wert versehen.<\/p>\n Eine Besonderheit ist beim Primärschlüsselfeld zu finden. Hier ist beim Felddatentyp AutoWert die Feldgröße ReplikationsID eingestellt. Eine andere und gebräuchlichere Bezeichnung dafür ist GUID, was für Globally Unique Identifier steht. Dies ist eine 16 Byte große Zahl, die weltweit einmalig sein soll.<\/p>\n Auf die Funktionalität des Euro-Assistenten hat die Einstellung der Feldgröße auf Long Integer oder ReplikationsID allerdings keinen Einfluss.<\/p>\n Das FormularfrmEuroAssistent<\/b><\/p>\n Auch das Formular frmEuroAssistent ist sehr einfach aufgebaut (siehe Bild 6).<\/p>\n Hauptbestandteil des Formulars ist das Unterformular-Steuerelement, in dem das Unterformular frmEuroAssistent Sub angezeigt wird. Es besteht keine Verknüpfung.<\/p>\n Daneben sind noch ein Feld zur Anzeige von Statusmeldungen, ein Bezeichnungsfeld zur Information und eine einzelne Schaltfläche vorhanden.<\/p>\n Das Unterformular frmEuroAssistentSub<\/b><\/p>\n Das Unterformular frmEuroFieldsSub ist an die Tabelle tblEuroFields (siehe Bild 7) gebunden. Seine einzige Funktionalität ist die Anzeige der Tabelle tblEuroFields im Formular frmEuroFields.<\/p>\n Die Datenherkunft des Unterformulars ist auf die SQL-Anweisung<\/p>\n eingestellt. Die Tabellenfelder werden – wie schon die Bild 7 zeigt – aufsteigend nach Tabellennamen und innerhalb der Tabellen nach Feldnamen sortiert.<\/p>\n Die Standardansicht für das Unterformular ist Datenblatt.<\/p>\n <\/b><\/p>\n Bild 8: Das Klassenmodul im Visual Basic Editor<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 9: Der Euro-Assistent<\/span><\/b><\/p>\n Das Klassenmodul Form_frmEuroAssistent<\/b><\/p>\n Das Klassenmodul Form_frmEuroAssistent enthält die gesamte Programmlogik.<\/p>\n Dieses Klassenmodul ist Bestandteil des Formulars frmEuroAssistent, das beim Import des Formulars automatisch mit importiert wurde (siehe Bild 8). <\/p>\n Der genaue Programmablauf wird im übernächsten Abschnitt detailliert vorgestellt.<\/p>\n Die Umrechnung von Währungsfeldern mit dem Euro-Assistenten läuft praktisch in drei Schritten ab.<\/p>\n Start des Euro-Assistenten<\/b><\/p>\n Gestartet wird der Euro-Assistent durch den Aufruf des Formulars frmEuroAssistent im Datenbankfenster Ihrer Arbeits-datenbank.<\/p>\n Im Unterformular werden alle Tabellen der Datenbank, die Felder mit numerischen Felddatentypen enthalten, zusammen mit diesen Feldern angezeigt (siehe Bild 9). Auf diese Weise können Sie leicht erkennen, zu welcher Tabelle die entsprechenden Felder gehören.<\/p>\n <\/b><\/p>\n Bild 10: Zur Umrechnung markierte Felder<\/span><\/b><\/p>\n Auswahl und Markierung derWährungsfelder<\/b><\/p>\n Währungsbeträge sollten eigentlich immer in Feldern mit dem Felddatentyp Währung erfasst werden.<\/p>\n In der Praxis kommt es aber häufig vor, dass Währungsbeträge auch in Feldern mit einem anderen numerischen Felddatentyp zu finden sind: Single, Double oder bei ganzzahligen Beträgen auch Integer bzw. Long Integer. Es kommen sogar Datenbanken mit Währungsbeträgen in Textfeldern vor.<\/p>\n Da dies die Realität darstellt, muss sich auch der Euro-Assistent daran orientieren. Keine noch so ausgefeilte Programmierlogik vermag herauszufinden, ob beispielsweise die Zahl 1024 in einem Long Integer-Feld einen Währungsbetrag oder eine Entfernung in Metern darstellen soll.<\/p>\n <\/b><\/p>\n Bild 11: Fehlermeldung bei fehlgeschlagener Umrechnung<\/span><\/b><\/p>\n Aus diesen Gründen ist nun der Anwender gefordert, nur die Kontrollkästchen derjenigen Felder zu markieren, die Währungsbeträge enthalten (siehe Bild 10). Das dürfte eigentlich – vor allem bei sprechenden Feldnamen – kein Problem sein.<\/p>\n Sie sollten trotzdem Acht geben, da es Ihnen sonst passieren kann, dass Sie Ihren Kunden faktisch den Rabatt halbieren.<\/p>\n Schlimmeres kann kaum geschehen. Beim Versuch, Primär- oder Sekundärschlüsselfelder umzurechnen, bricht der Euro-Assistent mit einer Fehlermeldung ab (siehe Bild 11).<\/p>\n Umrechnung durchführen<\/b><\/p>\n Die Umrechnung wird mit einem Klick auf die Schaltfläche Start ausgelöst. Nach einer Sicherheitsabfrage (siehe Bild 12) erfolgt die Verarbeitung.<\/p>\n <\/b><\/p>\n Bild 12: Sicherheitsabfrage<\/span><\/b><\/p>\n Der Status der Verarbeitung wird in dem gelben Statusfenster unterhalb der Tabelle mit der Auflistung der Felder angezeigt.<\/p>\n <\/b><\/p>\n Bild 13: Meldung nach erfolgreicher Verarbeitung<\/span><\/b><\/p>\n Nach erfolgreicher Verarbeitung wird der Anwender durch ein Meldungsfenster informiert (siehe Bild 13).<\/p>\n Abschließend braucht nur noch das Formular frmEuroAssistent geschlossen zu werden.<\/p>\n Abschließende Bemerkungen<\/b><\/p>\n Nach einem Blick in die Datenblattansicht einer der ausgewählten Tabellen können Sie sich von der erfolgreichen Umrechnung überzeugen.<\/p>\n Dabei sind allerdings noch zwei Dinge zu beachten, die in den folgenden beiden Abschnitten beschrieben werden.<\/p>\n <\/b><\/p>\n Bild 14: Umgerechnetes Währungsfeld in einer Tabelle<\/span><\/b><\/p>\n Es ist ohne weiteres möglich, den Euro-Assistenten auf einem Währungsfeld mehrfach auszuführen. Dabei wird dann natürlich auch der angezeigte Betrag jedes Mal fast halbiert.<\/p>\n Sie sollten also irgendwie sicher stellen, dass dies nicht geschehen kann.<\/p>\n Die Wirkung des Euro-Assistenten ist lediglich auf die änderung der reinen Daten fokussiert. Demnach werden auch eventuell vorhandene Währungseinheiten nicht geändert.<\/p>\n Formulare und Berichte müssen also vom Anwender selbst umgestellt werden. Dies könnte beispielsweise komfortabel mit Hilfe eines globalen Tools Suchen & Ersetzen erfolgen.<\/p>\n Nun wird es aber langsam Zeit für einen Blick hinter die Kulissen des Euro-Assistenten.<\/p>\n Der VBA-Code und damit die gesamt Programmlogik befindet sich, wie schon erwähnt, im Klassenmodul Form_frmEuroAssistent.<\/p>\n Der VBA-Code wird hier nur auszugsweise abgedruckt. Den vollständigen Code können Sie der Beispieldatenbank der Heft-CD entnehmen.<\/p>\n Auslesen von Tabellen und Feldern der Datenbank<\/b><\/p>\n Beim öffnen des Formulars frmEuroFields wird eine Ereignisprozedur ausgeführt (s. Quellcode 1).<\/p>\n Die entscheidende Aktion ist der Aufruf der Sub Prozedur LoadTables.<\/p>\n Nach den obligatorischen Variablendeklarationen (s. Quellcode 2) werden alle Datensätze in der Tabelle tblEuroFields gelöscht. <\/p>\n Damit ist sichergestellt, dass sich in der Tabelle keine Angaben zu Objekten aus anderen Datenbanken befinden können. Stichwort: Import des Euro-Assistenten aus einer anderen Datenbank (unter Pkt. 3.1).<\/p>\n Nach der Erstellung eines Recordsets wird in zwei verschachtelten For Each-Schleifen jede Tabelle der Datenbank mit den dazugehörigen Feldern durchlaufen, auf Felder mit numerischen Felddatentypen überprüft und ausgelesen (s. Quellcode 3).<\/p>\n Diese Werte werden dann in die Tabelle tblEuroFields übertragen.<\/p>\n Abschließend wird mit der Codezeile<\/p>\n die Datenherkunft oder Recordsource des Unterformularsteuerelements aktualisiert, damit dort auch die aktuellen Datensätze der Tabelle tblEuroFields angezeigt werden.<\/p>\n Die Umrechnung<\/b><\/p>\n Durch einen Klick auf die Schaltfläche Start im Formular wird – das wird Sie nicht sonderlich überraschen – eine Funktion aufgerufen.<\/p>\n In der Funktion StartCalculation werden die Transaktionsmethoden BeginTrans, CommitTrans und RollBackTrans verwendet (s. Quellcode 4).<\/p>\n Der Hintergrund dafür wird hoffentlich durch folgendes Beispiel deutlich:<\/p>\n Es ist durchaus denkbar, dass die Verarbeitung nach zwei aktualisierten Tabellen aufgrund eines Fehlers abbricht. Die restlichen fünf Tabellen werden dann nicht mehr aktualisiert. Dadurch würde ein unmöglicher Datenzustand auftreten, der für jeden Anwender unzumutbar ist.<\/p>\n Durch die Verwendung der Transaktionsmethoden wird genau dies verhindert. Bei einem Fehler erfolgt ein so genanntes RollBack, das alle bisherigen änderungen rückgängig macht.<\/p>\n Dadurch ist also in jedem Fall sichergestellt, dass entweder alle Tabellen aktualisiert werden oder überhaupt keine Tabelle aktualisiert wird.<\/p>\n Anders ausgedrückt: Der Anwender braucht sich um derartige Dinge überhaupt nicht zu kümmern, geschweige denn darüber einen Gedanken zu verschwenden.<\/p>\n Die eigentliche Aktualisierung der Tabellenfelder erfolgt dann nach dem öffnen des obligatorischen Recordsets innerhalb einer While-Schleife (s. Quellcode 5).<\/p>\n An dieser Stelle können Sie auch den Code anpassen, falls Sie eine finanzbuchhalterische Umrechnung wünschen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n Euro-Assistent00.mdb<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic002.png\")
<\/p>\nHinweis<\/h3>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic003.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic005.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic007.png\")
<\/p>\nSELECT * FROM tblEuroFields ORDER BY TableName, FieldName;<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic009.png\")
<\/p>\nHinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic010.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic011.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic013.png\")
<\/p>\nMehrfachumrechnung<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{E40D12FE-689D-4C8F-BF1D-98EF1425CA9B}\/pic014.png\")
<\/p>\nWährungseinheiten<\/h3>\n
Private Sub Form_Open(Cancel As Integer)\r\n LoadTables\r\n Me.Sub.Requery\r\nEnd Sub\r\nDim MyCatalog As ADOX.Catalog\r\nDim MyTable As ADOX.Table\r\nDim MyColumn As ADOX.Column\r\nDim MyEuroFields As ADODB.Recordset\r\n SetStatus \"Lade Tabellen\"\r\n CurrentProject.Connection.Execute \"DELETE * FROM tblEuroFields\"\r\nFor Each MyTable In .Tables\r\n If MyTable.Type = \"TABLE\" Then\r\n For Each MyColumn In MyTable.Columns\r\n Select Case MyColumn.Type\r\n Case DataTypeEnum.adDouble, _\r\n DataTypeEnum.adCurrency, _\r\n DataTypeEnum.adInteger, _\r\n DataTypeEnum.adDecimal, _\r\n DataTypeEnum.adSingle, _\r\n DataTypeEnum.adNumeric\r\n With MyEuroFields\r\n .AddNew\r\n !TableName = MyTable.Name\r\n !FieldName = MyColumn.Name\r\n !Selected = False\r\n .Update\r\n End With\r\n End Select\r\n Next MyColumn\r\n End If\r\nNext MyTable<\/pre>\n
...\r\nMyConnection.BeginTrans\r\n InTrans = True\r\n...\r\nMyConnection.CommitTrans\r\n InTrans = False\r\n...\r\nFehler:\r\n If InTrans Then MyConnection.RollbackTrans\r\n MsgBox \"Es ist ein Fehler aufgetreten: \" & _ Err.Description\r\n StartCalculation = False\r\n Exit Function\r\nQuellcode 4\r\nWhile Not .EOF\r\n SQL = \"UPDATE [\" & !TableName & \"]\"\r\n SQL = SQL & \" SET [\" & !FieldName & \"] = \"\r\n SQL = SQL & \"[\" & !FieldName & \"] \/ 1.95583\"\r\n SetStatus \"Bearbeite \" & !TableName & \".\" _ & !FieldName\r\n CurrentProject.Connection.Execute SQL\r\n .MoveNext\r\nWend\r\nQuellcode 5<\/pre>\n
Me.Sub Requery<\/pre>\n
Safety First<\/h3>\n
Die Aktualisierung<\/h3>\n
Downloads zu diesem Beitrag<\/h3>\n