<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Bei der Arbeit mit Computeranwendungen treten zwangsläufig Eingabefehler auf und es gibt keine Validierung, die hundertprozentig vor nicht gewünschten Eingaben schützt. So auch beim Fahrtenbuch, das in Ausgabe 2\/2003 von Access im Unternehmen vorgestellt wurde: Man kann einmal eingegebene Fahrten nicht mehr stornieren, und somit mussten die Daten noch einmal neu eingegeben werden. Um dieses Manko zu beheben, lernen Sie im vorliegenden Beitrag einige Erweiterungen für das Fahrtenbuch kennen.<\/b><\/p>\n
Die neue Version des Fahrtenbuchs enthält einige änderungen. Die wichtigste änderung ist, dass es von nun an die Möglichkeit gibt, den letzten eingegebenen Datensatz zu stornieren und noch einmal an der Stelle vor Eingabe des letzten Datensatzes zu beginnen.<\/p>\n
Außerdem gibt es zwei kleinere änderungen: Wenn man mit der bisherigen Version des Fahrtenbuchs die Fahrten, den Verbrauchsbericht oder die Ausgaben ausgeben wollte, wurde die Berichtsvorschau nur in verkleinerter Ansicht angezeigt. Nun können Sie alle Berichte in beliebiger Größe anzeigen, bevor Sie den Druckvorgang mit der entsprechenden Schaltfläche initiieren. Außerdem zeigte die Verbrauchsübersicht bisher in manchen Fällen den Wert #Fehler an. Auch dieser Fehler ist behoben. Und wenn Sie schon mit der Vorgängerversion des Fahrtenbuchs gearbeitet haben, möchten Sie vermutlich nicht alle Daten erneut mit der neuen Version eingeben. In dem Fall finden Sie eine Import-Funktion für die einfache und schnelle übernahme Ihrer bestehenden Daten.<\/p>\n
Die erste Version des Fahrtenbuchs, das Sie im Beitrag Fahrtenbuch in Ausgabe 2\/2003 kennen lernen konnten und das auch unter www.access-im-unternehmen.de als Businesslösung zum Download bereitsteht, enthält keine Möglichkeit, einmal getätigte Eingaben zu redigieren. Diese Einstellung hat den Sinn, die Anwendung „finanzamttauglich“ zu machen.<\/p>\n
Damit das Fahrtenbuch in elektronischer Form dort anerkannt wird, darf es entweder gar keine Möglichkeit geben, einmal eingegebene Fahrten nachträglich zu manipulieren, oder die änderungen müssen als solche gekennzeichnet werden. Unter der Prämisse, dass eine auffällig gestaltete Sicherheitsabfrage bezüglich der Richtigkeit der Daten ausreichen würde, um Fehleingaben zu vermeiden, wurde damals erstere Variante aufgegriffen.<\/p>\n
Im Laufe der Zeit wandelt sich jedoch auch das Bestätigen der Rückfrage vor dem Speichern von Daten in das nervige Wegklicken einer nicht mehr gelesenen Meldung; die erste Eingabe einer Fahrt mit 1000 statt 100 gefahrenen Kilometern lässt nicht mehr lange auf sich warten.<\/p>\n
Die erste in Access im Unternehmen 2\/2003 vorgestellte Version des Fahrtenbuchs und die unter der Rubrik Businesslösungen auf www.access-im-unternehmen.de veröffentlichte Version unterscheiden sich bereits enorm voneinander. Der vorliegende Beitrag beschreibt die änderungen, die an der letzten Version der Businesslösung vorgenommen werden, um den in diesem Beitrag beschriebenen Stand zu erreichen. Auch die Beschreibung der Routine zum Import bestehender Daten bezieht sich auf den Import von der Fahrtenbuch-Businesslösung. Diese kann aber leicht der Version aus Heft 2\/2003 angepasst werden. <\/p>\n
Damit man die Daten nicht nach jedem Eingabefehler erneut in eine blanko Fahrtenbuchdatenbank eingeben muss, enthält die nachfolgend vorgestellte neue Version des Fahrtenbuchs zwei änderungen:<\/p>\n
Die Finanzamttauglichkeit der Anwendung lassen Sie sich am besten vor der Benutzung von Ihrem Finanzamt bestätigen. <\/p>\n
Da der letzte eingegebene Datensatz für jedes Fahrzeug storniert werden kann, bedingt dies natürlich eine nachträgliche änderung dieses Datensatzes.<\/p>\n
Um den Anforderungen einer finanzamttauglichen Fahrtenbuchanwendung gerecht zu werden und stornierte Datensätze nach wie vor auszugeben und noch dazu als storniert zu kennzeichnen, gehen Sie folgendermaßen vor:<\/p>\n
Möglicherweise fragen Sie sich, warum eine neue Tabelle für das Speichern der letzten Fahrt für jedes Fahrzeug herhalten muss und diese nicht direkt in die Tabelle tblFahrten eingetragen wird.<\/p>\n
Der Grund ist, dass einmal in die Tabelle tblFahrten eingetragene Fahrten nicht mehr geändert oder gelöscht werden können. Da aber die letzte Fahrt eines jeden Fahrzeugs noch als „Storniert“ gekennzeichnet werden können soll, wird diese in einer separaten Tabelle gespeichert. <\/p>\n
Erst wenn der nächste Fahrtdatensatz für ein Fahrzeug eingegeben wurde, wird der aktuelle letzte Datensatz in die Tabelle tblFahrten geschrieben. <\/p>\n
Und wenn der letzte Datensatz storniert werden soll, wird zunächst dessen Feld Storniert auf den Wert Ja gesetzt, der Datensatz in die Tabelle tblFahrten kopiert und aus der Tabelle tblLetzteFahrt gelöscht.<\/p>\n
Beginnen Sie mit dem ersten Schritt, der Anpassung der Tabelle tblFahrten. Das Hinzufügen des zusätzlichen Feldes stellt keine sonderlich große Hürde dar. Der Entwurf der Tabelle sieht anschließend wie in Bild 1 aus.<\/p>\n
Private Sub Form_Open(Cancel As Integer)\r\n If IstFormularGeoeffnet(\"frmFahrten\") = 0 Or IsNull(Me.OpenArgs) Then\r\n MsgBox \"Dieses Formular kann nur vom Hauptformular aus geöffnet werden.\", _ vbExclamation + vbOKOnly, \"Fahrtenbuch\"\r\n Cancel = True\r\n End If\r\n Me.txtFahrzeug = Forms!frmFahrten!txtFahrzeug\r\n Me.txtStartDatum = Date\r\n Me.txtZielDatum = Date\r\n If DCount(\"FahrtID\", \"qryFahrten\", \"Kennzeichen = ''\" & Me.txtFahrzeug & \"''\") = 0 _ Then\r\n Me.txtStartkmStand = DLookup(\"Startkilometerstand\", \"tblFahrzeuge\", _ \"Kennzeichen = ''\" & Me.txtFahrzeug & \"''\")\r\n Else\r\n Me.txtStartkmStand = DMax(\"ZielkmStand\", \"qryFahrten\", \"Kennzeichen = ''\" _ & Me.txtFahrzeug & \"'' AND Storniert = False\")\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 1<\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 1: Angepasstes Datenmodell der Tabelle tblFahrten<\/span><\/b><\/p>\n
Tabelle zum Speichern der letzten Fahrt<\/h2>\n
Die Tabelle tblLetzteFahrt hat die gleichen Felder wie die Tabelle tblFahrten. Der einzige Unterschied ist, dass die Daten der Tabelle nicht vor dem Bearbeiten und Löschen geschützt sind.<\/p>\n
Anpassen des Vorgangs zumAnlegen neuer Fahrten<\/h2>\n
Neue Fahrten werden in der neuen Fassung des Fahrtenbuchs nicht mehr direkt in die Tabelle tblFahrten geschrieben, sondern zunächst in der Tabelle tblLetzteFahrt gespeichert. Dementsprechend muss das Formular zum Anlegen neuer Fahrten angepasst werden.<\/p>\n
Das beginnt mit der Prozedur, die beim öffnen des Formulars gestartet wird und die zur Ermittlung des Zielkilometerstands der alten und damit des Startkilometerstands der neuen Fahrt dient. Die Prozedur sieht nun wie in Quellcode 1 aus. Nach dem Eintragen des aktuellen Fahrzeugs sowie des Start- und Enddatums in das Formular überprüft die Prozedur, ob bereits eine Fahrt für das aktuelle Fahrzeug vorhanden ist. Falls nein, wird der Kilometerstand aus der Tabelle tblFahrzeuge bei Aufnahme des Fahrzeugs in das Fahrtenbuch als Startkilometerstand ermittelt. Falls ja, wird der aktuell höchste Kilometerstand für das aktuelle Fahrzeug aus der Abfrage qryFahrten ermittelt. Diese Abfrage ist eine Union-Abfrage und enthält alle Datensätze der Tabelle tblLetzteFahrt und der Tabelle tblFahrten, deren Feld Storniert den Wert False hat.<\/p>\n
Speichern einer neuen Fahrt<\/h2>\n
Die Prozedur zum Speichern kann aus Platzgründen an dieser Stelle nicht abgedruckt werden. Die dortigen änderungen beziehen sich auf den Teil, der den neuen Datensatz speichert. In der neuen Version besteht dieser Speichervorgang aus mehreren Schritten:<\/p>\n
Kopieren des zuletzt angelegten Datensatzes für dieses Fahrzeug von der Tabelle tblLetzteFahrt in die Tabelle tblFahrten<\/li>\n Löschen dieses Datensatzes aus der Tabelle tblLetzteFahrt<\/li>\n Anlegen des neuen Datensatzes in der Tabelle tblLetzteFahrt<\/li>\n Private Sub Form_Open(Cancel As Integer)<\/pre>\nDatensatzherkunft des Listenfeldes anpassen<\/h2>\n
Da die Daten für das Listenfeld zur Anzeige der Fahrten eines Fahrzeuges nunmehr aus zwei Tabellen kommen, müssen Sie natürlich auch die Datensatzherkunft des Listenfeldes anpassen. Da diese per Code beim öffnen des Formulars festgelegt wird, setzen Sie den Hebel in der Prozedur an, die beim öffnen des Formulars frmFahrten ausgelöst wird (s. Quellcode 2). Die Datensatzherkunft besteht nicht mehr nur aus Daten der Tabelle tblFahrten. Zusätzlich kommt noch der Datensatz hinzu, der für das aktuelle Fahrzeug in der Tabelle tblLetzteFahrt gespeichert ist. Dort ist nicht zwangsläufig ein Datensatz für das aktuelle Fahrzeug gespeichert, da beispielsweise entweder noch gar kein Datensatz für dieses Fahrzeug angelegt wurde oder der letzte Datensatz dieser Tabelle storniert und damit in die Tabelle tblFahrten verschoben wurde.<\/p>\n
Dim Kennzeichen As String\r\n Dim AktuelleFahrtID As Integer\r\n Dim IstStorno As Boolean\r\n Kennzeichen = AktuellesFahrzeug\r\n Me.txtFahrzeug = Kennzeichen\r\n If DCount(\"FahrzeugID\", \"tblFahrzeuge\") = 0 Then\r\n Me.cmdNeueFahrt.Enabled = False\r\n End If\r\n Me.lstFahrten.RowSource = \"SELECT Kennzeichen, Fahrer, StartDatum, \" _\r\n & \"StartkmStand, StartOrt, ZielDatum, ZielkmStand, ZielOrt, \" _ & \"[ZielkmStand]-[StartkmStand] AS Strecke, Nutzungsart, Fahrtzweck \" _\r\n & \"FROM tblFahrten WHERE Kennzeichen = ''\" & Kennzeichen _ & \"'' AND Storniert = False \" _\r\n & \"UNION \" _\r\n & \"SELECT Kennzeichen, Fahrer, StartDAtum, StartkmStand, StartOrt, Zieldatum, \" _ & \"ZielkmStand, ZielOrt, [ZielkmStand] - [StartkmStand] AS Strecke, \" _ & \"Nutzungsart, Fahrtzweck FROM tblLetzteFahrt WHERE Kennzeichen = ''\" _ & Kennzeichen & \"''\"\r\n IstStorno = Nz(DCount(\"FahrtID\", \"tblLetzteFahrt\", \"Kennzeichen = ''\" _ & Kennzeichen & \"''\"), 0)\r\n Me.cmdStornieren.Enabled = IstStorno\r\nEnd Sub<\/pre>\nQuellcode 2<\/b><\/p>\n
Außerdem enthält der erste Teil der UNION-Abfrage, der die Daten der Tabelle tblFahrten enthält, nun eine Bedingung, die alle Datensätze ausschließt, deren Feld Storniert den Wert True enthält. Auf diese Weise zeigt das Listenfeld keine stornierten Fahrten an.<\/p>\n
Schaltfläche zum Stornieren von Fahrten<\/h2>\n
<\/p>\n
Zum Stornieren von Fahrten legen Sie im Formular frmFahrten eine neue Schaltfläche mit
\nder Beschriftung Letzte Fahrt stornieren an (siehe Bild 2).<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 2: übersicht der Fahrten mit neuer „Stornieren“-Schaltfläche<\/span><\/b><\/p>\n
Die Schaltfläche löst die Prozedur aus Quellcode 3 aus. Die Prozedur fragt zunächst den Benutzer, ob er den Datensatz wirklich stornieren möchte. Falls ja, führt die Prozedur folgende Schritte durch:<\/p>\n
Ermitteln des letzten Datensatzes für das aktuelle Fahrzeug aus der Tabelle tblLetzteFahrt<\/li>\n ändern des Feldwertes des Feldes Storniert auf True<\/li>\n Kopieren des Inhalts des kompletten Datensatzes von der Tabelle tblLetzteFahrt in die Tabelle tblFahrten<\/li>\n Löschen des Datensatzes aus der Tabelle tblLetzteFahrt<\/li>\n Deaktivieren der Schaltfläche zum Stornieren von Fahrten<\/li>\n Private Sub cmdStornieren_Click()\r\n If MsgBox(\"Möchten Sie die letzte in der Liste angezeigt Fahrt wirklich \" _ & \"stornieren\", vbYesNo + vbExclamation, \"Fahrt stornieren\") = vbYes Then\r\n Dim strSQL As String\r\n Dim db As Database\r\n Dim rst As Recordset\r\n Dim AktuelleFahrtID As Integer\r\n Dim IstStorno As Boolean\r\n Dim Kennzeichen As String\r\n On Error GoTo cmdStornieren_Click_Err\r\n Kennzeichen = AktuellesFahrzeug\r\n Set db = CurrentDb\r\n Set rst = db.OpenRecordset(\"SELECT TOP 1 * FROM tblLetzteFahrt WHERE \" _ & \"Kennzeichen = ''\" & Kennzeichen & \"'' ORDER BY FahrtID DESC\", dbOpenDynaset)\r\n strSQL = \"UPDATE tblLetzteFahrt SET Storniert = TRUE WHERE FahrtID = \" _ & rst!FahrtID\r\n db.Execute strSQL, dbFailOnError\r\n strSQL = \"INSERT INTO tblFahrten(Kennzeichen, StartDatum, StartkmStand, \" _ & \"StartOrt, ZielDatum, ZielkmStand, ZielOrt, Fahrer, Nutzungsart, \" _ & \"Fahrtzweck, Bemerkungen, Storniert) SELECT Kennzeichen, StartDatum, \" _ & \"StartkmStand, StartOrt, ZielDatum, ZielkmStand, ZielOrt, Fahrer, \" _ & \"Nutzungsart, Fahrtzweck, Bemerkungen, Storniert FROM tblLetzteFahrt \" _ & \"WHERE FahrtID = \" & rst!FahrtID\r\n db.Execute strSQL, dbFailOnError\r\n strSQL = \"DELETE FROM tblLetzteFahrt WHERE FahrtID = \" & rst!FahrtID\r\n db.Execute strSQL, dbFailOnError\r\n Me.lstFahrten.Requery\r\n Me.cmdNeueFahrt.SetFocus\r\n IstStorno = DCount(\"FahrtID\", \"tblLetzteFahrt\", \"Kennzeichen = ''\" & Kennzeichen _ & \"''\") > 0\r\n Me.cmdStornieren.Enabled = IstStorno\r\n End If\r\ncmdStornieren_Click_Exit:\r\n rst.Close\r\n Set rst = Nothing\r\n Set db = Nothing\r\n Exit Sub\r\ncmdStornieren_Click_Err:\r\n Debug.Print Err.Number, Err.Description\r\n GoTo cmdStornieren_Click_Exit\r\nEnd Sub<\/pre>\nQuellcode 3<\/b><\/p>\n
Aktualisieren des Listenfeldes zur Anzeige von Fahrten<\/li>\n Private Sub Detailbereich_Print(Cancel As Integer, _ PrintCount As Integer)\r\n If Me!Storniert = True Then\r\n If Not Nz(Me.Bemerkungen, \"\") = \"\" Then\r\n Me.Line (0, 415)-(Me.Width, 415), 0\r\n End If\r\n Me.Line (0, 125)-(Me.Width, 125), 0\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 4<\/b><\/p>\n
Ausgabe des Fahrtenbuchs mit Stornierungen<\/h2>\n
Nachdem die Stornierungen in den Formularen sauber eingegeben und angezeigt werden, fehlt noch deren Anzeige im Bericht und damit der für das Finanzamt relevante Ausdruck.<\/p>\n
Sie könnten nun natürlich einfach das Feld Storniert hinzufügen, sodass stornierte Datensätze einfach durch ein Häkchen in diesem Feld als solche markiert werden. Das wäre aber ein wenig zu trivial. Statt dessen werden Sie den Bericht so anpassen, dass die stornierten Fahrten durchgestrichen angezeigt werden (siehe Bild 3).<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 3: Das Fahrtenbuch mit einem stornierten Eintrag<\/span><\/b><\/p>\n
Um diese Anpassung vorzunehmen, müssen Sie noch nicht einmal in das Layout des Berichts eingreifen. Die Linie zum Durchstreichen des Fahrtenbucheintrags können Sie nämlich ganz einfach mit der Line-Methode in der Prozedur erstellen, die durch die Ereigniseigenschaft Beim Drucken ausgelöst wird.<\/p>\n
Hinweis<\/h3>\n
Die Line-Methode und verschiedene Möglichkeiten zur Verwendung von Linien und Rechtecken in Berichten finden Sie im Beitrag Malen nach Zahlen in der vorliegenden Ausgabe von Access im Unternehmen.<\/p>\n
Genaugenommen benötigen Sie für das Fahrtenbuch unter Umständen zwei Linien – eine zum Durchstreichen der Zeile mit den Fahrtinformationen und eine, falls zu der Fahrt noch eine Bemerkung hinzugefügt wurde, die in der Berichtsausgabe unterhalb des entsprechenden Fahrtenbucheintrags erfolgt. Beides erledigt die Prozedur aus Quellcode 4.<\/p>\n
Private Sub cmdImportieren_Click()\r\n Dim strFehler As String\r\n If Nz(Dir(Me.txtDatei), \"\") <> \"\" Then\r\n strFehler = ImportFahrtenbuch(Me.txtDatei)\r\n MenueleisteAktualisieren\r\n If Len(strFehler) > 0 Then\r\n MsgBox strFehler\r\n Else\r\n MsgBox \"Der Import war erfolgreich.\"\r\n End If\r\n DoCmd.Close acForm, Me.Name\r\n Else\r\n MsgBox \"Die angegebene Datei kann nicht \" _ & \"gefunden werden.\"\r\n End If\r\nEnd Sub<\/pre>\nQuellcode 4<\/b><\/p>\n
Schließlich müssen Sie noch die Prozedur anpassen, die beim öffnen des Berichts ausgelöst wird.<\/p>\n
Hier sind jedoch nur zwei Felder zu der SQL-Anweisung hinzuzufügen, die der Bericht als Datenherkunft verwendet. Für weitere Einzelheiten konsultieren Sie einfach das entsprechende Klassenmodul des Berichts rptFahrtenbuch.<\/p>\n
Anpassen der Summen im Berichtsfuß<\/h2>\n
Der Bericht enthält neben der Auflistung der Fahrten noch die Summe der privaten und beruflichen Fahrten sowie der Fahrten von und zur Arbeitsstätte. Da der Bericht die stornierten Fahrten immer noch anzeigt, werden diese natürlich auch noch berechnet.<\/p>\n
Dadurch enthalten die Summen sowohl die stornierten als auch die nicht stornierten Fahrten. Damit nur die nicht stornierten Fahrten addiert werden, verwenden Sie die folgenden drei Ausdrücke für die drei Felder:<\/p>\n
\n
\n \n Feldname<\/b><\/p>\n<\/td>\n
\n Steuerelementinhalt<\/b><\/p>\n<\/td>\n<\/tr>\n
\n \n txtStreckePrivatSumme<\/p>\n<\/td>\n
\n =Summe(Wenn([Nutzungsart]=“Privat“;Wenn([Storniert]=Falsch;[Strecke];0);0))<\/p>\n<\/td>\n<\/tr>\n
\n \n txtStreckeDienstlichSumme<\/p>\n<\/td>\n
\n =Summe(Wenn([Nutzungsart]=“dienstlich“;Wenn([Storniert]=Falsch;[Strecke];0);0))<\/p>\n<\/td>\n<\/tr>\n
\n \n txtSummeStreckeNichtPrivat<\/p>\n<\/td>\n
\n =Summe(Wenn([Nutzungsart]=“Fahrt von und zur Arbeit“;Wenn(Storniert=Falsch;[Strecke];0);0))<\/p>\n<\/td>\n<\/tr>\n<\/table>\n
Tab. 1: Summenfelder im Bericht zur Anzeige des Fahrtenbuchs<\/b><\/p>\n
Wenn Sie nun schon eine neue Version des elektronischen Fahrtenbuchs mit überarbeiteten und erweiterten Funktionen besitzen, möchten Sie vermutlich auch die bestehenden Daten aus der vorherigen Version weiterverwenden.<\/p>\n
Um das zu tun, gibt es grob zwei Möglichkeiten: Bei der ersten nehmen Sie einfach die bestehende Datenbankanwendung und pflegen die hier beschriebenen änderungen unter Beibehaltung des Datenbestandes ein.<\/p>\n
Da aber gegebenenfalls auch Leute mit der Anwendung arbeiten, die zufälligerweise kein Access-Entwickler sind, lernen Sie hier einen Weg kennen, über den Sie einfach die vorherige Version des Fahrtenbuchs per Datei öffnen-Dialog auswählen und deren Daten automatisch importieren können.<\/p>\n
Analyse des Datenmodells<\/h2>\n
Vor der Erstellung der Importroutine ist ein Blick auf das Datenmodell des Fahrtenbuchs notwendig. Das Datenmodell sieht ja im Vergleich zu dem herkömmlicher relationaler Datenbanken teilweise etwas ungewöhnlich aus, da beispielsweise die Tabelle tblFahrten in keiner Weise mit anderen Tabellen wie tblFahrer oder tblFahrzeuge verknüpft ist. Der Grund liegt – wer den ersten Beitrag zum Thema Fahrtenbuch kennt, erinnert sich vielleicht – darin, dass die zu den einzelnen Fahrten gespeicherten Informationen nach dem Anlegen nicht mehr geändert werden dürfen.<\/p>\n
Eine relationale Beziehung der Fahrtentabelle zur Verknüpfung mit anderen Tabellen wie beispielsweise der Fahrer- oder Fahrzeugtabelle würde mit sich bringen, dass sich beispielsweise die Namensänderung eines Fahrers auch auf die bestehenden Fahrtdaten auswirkt.<\/p>\n
Daher werden alle Daten zu einer Fahrt zu dem Zeitpunkt, an dem die Fahrt angelegt wird, komplett in der Tabelle tblFahrten gespeichert und auch nicht mehr verändert.<\/p>\n
Die Daten der nicht mit anderen Tabellen verknüpften Tabellen können ohne Weiteres direkt in die neue Datenbank importiert werden. Bei den verknüpften Tabellen ist Vorsicht geboten, da die Primärschlüsselfelder ihren Wert meistens durch die Einstellung des Felddatentyps Autowert erhalten.<\/p>\n
Damit die Verknüpfungen nach dem Import noch stimmen, müssen Sie also zunächst die 1-Seite einer 1:n-Beziehung importieren. Erst danach importieren Sie die Daten der n-Seite der Beziehung und verwenden dabei in Fremdschlüsselfeldern, die auf die zuvor importierten Tabellen verweisen, die beim Import neu angelegten Primärschlüsselwerte.<\/p>\n
Beim Datenmodell aus Bild 4 müssen Sie also zunächst die beiden Tabellen tblTreibstoffarten und tblFahrzeuge und erst anschließend die Tabellen tblTankvorgaenge und tblAusgaben importieren. Die anderen, nicht verknüpften Tabellen können Sie in beliebiger Reihenfolge importieren.<\/p>\n
<\/p>\n
<\/b>Abb. 4: Datenmodell des Fahrtenbuchs<\/b><\/p>\n
Hinweis<\/h3>\n
Im Beitrag Von Datenbank zu Datenbank der vorliegenden Ausgabe von Access im Unternehmen finden Sie eine detaillierte Beschreibung des Imports verknüpfter Tabellen in eine neue Datenbank. Nachfolgend finden Sie daher nur eine Beschreibung der Aufrufe der in diesem Beitrag vorgestellten Funktionen und der dabei auftretenden Besonderheiten.<\/p>\n
Der Import der Daten aus einem anderen Fahrtenbuch wird vom Formular frmImport aus gesteuert. Dieses Formular kann der Benutzer über den Menüeintrag Datei\/Import öffnen.<\/p>\n
Dieser Eintrag ist aber deaktiviert, sobald die Datenbank auch nur einen Fahrt-Datensatz enthält. Der Grund ist, dass die Integrität der Daten nicht mehr gewährleistet ist, wenn Sie beispielsweise zweimal die gleichen Daten aus einer anderen Datenbank importieren.<\/p>\n
Der Import erfordert lediglich die Angabe des Dateinamens des Fahrtenbuchs, aus dem die Daten importiert werden sollen.<\/p>\n
Mit einem Klick auf die Schaltfläche Import starten Sie schließlich die Prozedur aus Quellcode 4. Die Prozedur überprüft zunächst, ob die angegebene Datei überhaupt existiert. Anschließend ruft sie die Funktion ImportFahrtenbuch auf, die den eigentlichen Import durchführt. Die Funktion gibt gegebenenfalls eine Fehlermeldung zurück, die dann in einem Meldungsfenster ausgegeben wird.<\/p>\n
Import des Fahrtenbuchs<\/h2>\n
Der eigentliche Import findet in der Funktion ImportFahrtenbuch statt (s. Quellcode 5). Die Funktion ruft für jede zu importierende Tabelle je einmal die Funktion ImportTable auf, deren Ablauf im Beitrag Von Datenbank zu Datenbank in der vorliegenden Ausgabe von Access im Unternehmen genau erläutert wird.<\/p>\n
Die einzelnen Funktionsaufrufe werden zu einer Transaktion zusammengefasst. Das bedeutet, dass vor der ersten Aktionsabfrage mit der Methode BeginTrans des aktuellen Workspace eine Transaktion gestartet wird, die in Abhängigkeit davon, ob alle sechs Aktionsabfragen fehlerfrei durchgeführt werden konnten, nach der letzten Aktionsabfrage entweder mit der Methode CommitTrans abgeschlossen oder mit der Methode Rollback rückgängig gemacht wird.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 5: Import der Daten aus einer älteren Version des Fahrtenbuchs<\/span><\/b><\/p>\n
Das bedeutet, dass der komplette Import rückgängig gemacht wird, wenn in einer der enthaltenen Aktionen ein Fehler auftritt.<\/p>\n
Die einzelnen Aufrufe der Funktion ImportTable bedürfen noch der einen oder anderen Erläuterung. Der erste Aufruf importiert die in der Tabelle tblFahrten enthaltenen Daten.<\/p>\n
Public Function ImportFahrtenbuch(strDatei As String)\r\n Dim strFehler As String\r\n Dim wrk As Workspace\r\n Set wrk = DBEngine.Workspaces(0)\r\n wrk.BeginTrans\r\n If ImportTable(strDatei, \"tblFahrten\", \"tblFahrten\", \"tblFahrtenTemp\", _ & \"INSERT INTO tblFahrten(Kennzeichen, StartDatum, StartKmStand, StartOrt, \" _ & \"ZielDatum, ZielkmStand, ZielOrt, Fahrer, Nutzungsart, Fahrtzweck, \" _ & \"Bemerkungen) SELECT Kennzeichen, StartDatum, StartKmStand, StartOrt, \" _ & \"ZielDatum, ZielkmStand, ZielOrt, Fahrer, Nutzungsart, Fahrtzweck, \" _ & \"Bemerkungen FROM tblFahrtenTemp\") = -1 Then\r\n strFehler = strFehler & \"-Fahrten\" & vbCrLf\r\n End If\r\n If ImportTable(strDatei, \"tblFahrer\", \"tblFahrer\", \"tblFahrerTemp\", \"INSERT INTO \" _ & \" tblFahrer(Vorname, Nachname) SELECT Vorname, Nachname FROM tblFahrerTemp \" _ & \"WHERE Vorname & Nachname NOT IN (SELECT Vorname & Nachname FROM tblFahrer)\") _ = -1 Then\r\n strFehler = strFehler & \"-Fahrer\" & vbCrLf\r\n End If\r\n If ImportTable(strDatei, \"tblTreibstoffarten\", \"tblTreibstoffarten\", _ & \"tblTreibstoffartenTemp\", \"INSERT INTO tblTreibstoffarten(Treibstoffart, \" _ & \" TreibstoffartIDTemp) SELECT Treibstoffart, TreibstoffartID FROM \" _ & \"tblTreibstoffartenTemp WHERE Treibstoffart NOT IN (SELECT Treibstoffart \" _ & \"FROM tblTreibstoffarten)\") = -1 Then\r\n strFehler = strFehler & \"-Treibstoffarten\" & vbCrLf\r\n End If\r\n If ImportTable(strDatei, \"tblTreibstoffarten\", \"tblTreibstoffarten\", _ & \"tblTreibstoffartenTemp\", \"UPDATE tblTreibstoffarten AS t1, \" _ & \"tblTreibstoffartenTemp AS t2 SET t1.TreibstoffartIDTemp = \" _ & \"t2.TreibstoffartID WHERE t2.Treibstoffart = t1.Treibstoffart\") Then\r\n strFehler = strFehler & \"-Treibstoffarten\" & vbCrLf\r\n End If\r\n If ImportTable(strDatei, \"tblFahrzeuge\", \"tblFahrzeuge\", \"tblFahrzeugeTemp\", _ & \"INSERT INTO tblFahrzeuge(Kennzeichen, Fahrzeug, StartKilometerstand, \" _ & \"FahrzeugIDTemp) SELECT Kennzeichen, Fahrzeug, StartKilometerstand, \" _ & \"FahrzeugID FROM tblFahrzeugeTemp WHERE Kennzeichen NOT IN (SELECT \" _ & \"Kennzeichen FROM tblFahrzeuge)\") = -1 Then\r\n strFehler = strFehler & \"-Fahrzeuge\" & vbCrLf\r\n End If\r\n If ImportTable(strDatei, \"tblFahrzeuge\", \"tblFahrzeuge\", \"tblFahrzeugeTemp\", _ \"UPDATE tblFahrzeuge AS t1, tblFahrzeugeTemp AS t2 SET t1.FahrzeugIDTemp = \" _ & \"t2.FahrzeugID WHERE t1.Kennzeichen = t2.Kennzeichen\") = -1 Then\r\n strFehler = strFehler & \"-Fahrzeuge\" & vbCrLf\r\n End If<\/pre>\nQuellcode 5 (Teil 1)<\/b><\/p>\n
Da die Tabelle nicht mit anderen Tabellen verknüpft ist, können die Daten einfach von der Quell- in die Zieltabelle kopiert werden. Weil der gesamte Importvorgang nur gestartet werden kann, wenn die Tabelle tblFahrten in der Zieldatenbank leer ist, können hier bei konsistenter Quelltabelle keine Fehler auftreten. Der zweite Aufruf importiert die Fahrer in die Datenbank. Dabei können durchaus bereits Fahrer eingegeben worden sein und Fahrer aus einem bestehenden Fahrtenbuch hinzugefügt werden. Die INSERT-Abfrage fügt nämlich nur solche Datensätze ein, die noch nicht in der Zieldatenbank vorhanden sind. Dazu setzt sie Vor- und Nachnamen der Fahrer der Datenbanken zusammen und vergleicht sie miteinander. Bereits vorhandene Fahrer werden einfach nicht importiert.<\/p>\n
Auch die Treibstoffarten werden importiert, da ja durchaus in einer älteren Fahrtenbuchversion seltene Treibstoffarten zur Anwendung gekommen sein können. Diese Tabelle ist mit anderen Tabellen verknüpft, daher muss hier die TreibstoffartID aus dem alten Fahrtenbuch mitkopiert und in dem Feld TreibstoffartIDTemp gespeichert werden. Nähere Informationen hierzu finden Sie in oben genanntem Beitrag Von Datenbank zu Datenbank.<\/p>\n
If ImportTable(strDatei, \"tblAusgaben\", \"tblAusgaben\", \"tblAusgabenTemp\", _ & \"INSERT INTO tblAusgaben(Ausgabe, Datum, Preis, Bemerkung, FahrzeugID) \" _ & \"SELECT Ausgabe, Datum, Preis, Bemerkung, (SELECT FahrzeugID FROM \" _ & \"tblFahrzeuge AS t2 WHERE t2.FahrzeugIDTemp = t1.FahrzeugID) FROM \" _ & \"tblAusgabenTemp AS t1\") = -1 Then\r\n strFehler = strFehler & \"-Ausgaben\" & vbCrLf\r\n End If\r\n If ImportTable(strDatei, \"tblTankvorgaenge\", \"tblTankvorgaenge\", _ \"tblTankvorgaengeTemp\", \"INSERT INTO tblTankvorgaenge(TreibstoffartID, \" _ & \"Datum, kmStand, FahrzeugID, PreisJeLiter, Liter, Vollgetankt) SELECT \" _ & \"(SELECT TreibstoffartID FROM tblTreibstoffarten AS t2 WHERE \" _ & \"t2.TreibstoffartIDTemp = t1.TreibstoffartID), Datum, kmStand, (SELECT \" _ & \"FahrzeugID FROM tblFahrzeuge AS t3 WHERE t3.FahrzeugIDTemp = \" _ & \"t1.FahrzeugID), PreisJeLiter, Liter, Vollgetankt FROM tblTankvorgaengeTemp \" _ & \"AS t1\") = -1 Then\r\n strFehler = strFehler & \"-Tankvorgänge\" & vbCrLf\r\n End If\r\n If Len(strFehler) > 0 Then\r\n ImportFahrtenbuch = \"Beim Import folgender Daten sind Fehler aufgetreten:\" _ & vbCrLf & strFehler & vbCrLf & \"Der Import wurde nicht durchgeführt.\"\r\n wrk.Rollback\r\n Else\r\n ImportFahrtenbuch = \"\"\r\n wrk.CommitTrans\r\n End If\r\nEnd Function<\/pre>\nQuellcode 5 (Fortsetzung)<\/b><\/p>\n
Nun kann es vorkommen, dass zwar alle Treibstoffarten des alten Fahrtenbuchs schon in der neuen Datenbank enthalten sind.<\/p>\n
Da deren Primärindexfeld aber unter Umständen andere Werte enthält als das Primärindexfeld des alten Fahrtenbuchs, müssen die Werte des Primärindexfeldes des alten Fahrtenbuchs dennoch in das Feld TreibstoffartIDTemp der Tabelle tblTreibstoffarten des neuen Fahrtenbuchs eingefügt werden, damit nachfolgend importierte Datensätze der Tabelle tblTankvorgaenge auch anhand der im Feld TreibstoffartIDTemp gespeicherten Werte an die Primärindexwerte der neuen Tabelle angepasst werden können. Das hört sich kompliziert an, deshalb noch einmal in Einzelschritten:<\/p>\n
Sie importieren Daten der Tabellen tblTankvorgaenge und tblTreibstoffarten. Die Daten der beiden Tabellen sind über das Fremdschlüsselfeld TreibstoffartID der Tabelle tblTankvorgaenge miteinander verknüpft.<\/p>\n
Die Treibstoffarten haben in der neuen Datenbank unter Umständen andere Werte für das Feld TreibstoffartID als in der alten Datenbank.<\/p>\n
Daher müssen beim Import der Tankvorgänge die Werte des Fremdschlüsselfeldes TreibstoffartID der Tabelle tblTankvorgaenge an die nun anders lautenden Werte der Tabelle tblTreibstoffarten angepasst werden.<\/p>\n
Dazu speichern Sie beim Import der Tabelle tblTreibstoffarten die Werte des Feldes TreibstoffartID aus der alten Tabelle in dem Feld TreibstoffartIDTemp der entsprechenden Datensätze der neuen Tabelle.<\/p>\n
Beim Importieren schauen Sie dann, dass der Wert des Fremdschlüsselfeldes TreibstoffartID der Tabelle tblTankvorgaenge auf den Wert des gleichnamigen Feldes der Tabelle tblTreibstoffarten eingestellt wird, dessen Feld TreibstoffartIDTemp den Wert des Fremdschlüsselfeldes des gleichen Datensatzes in der Herkunftstabelle hat.<\/p>\n
Wenn Sie das verstanden haben, durchschauen Sie auch die nachfolgenden Aktionsabfragen der Prozedur ImportFahrtenbuch.<\/p>\n
Falls nicht, schicken Sie eine E-Mail an info@access-im-unternehmen.de, dort wird dann bei ausreichendem Interesse eine ausführlichere Erläuterung dieser nicht ganz einfachen Vorgehensweise veröffentlicht.<\/p>\n
Nachfolgend finden Sie zwei weitere kleinere Anpassungen des Fahrtenbuchs.<\/p>\n
Drucken-Dialog unterbinden<\/h2>\n
Der beim Anzeigen der Berichtsvorschau angezeigte Drucken-Dialog sollte dem Anwender eigentlich einen Schritt abnehmen. Access zeigt diesen Dialog allerdings immer so an, dass der Benutzer zur gleichen Zeit keine anderen Aktionen durchführen kann – der Benutzer kann also beispielsweise nicht die Größe der Berichtsvorschau anpassen, um einen genaueren Blick darauf zu werfen. Damit Access den Drucken-Dialog nicht mehr anzeigt, entfernen Sie einfach die folgende Anweisung aus den drei Prozeduren, die beim Anzeigen der Berichtsvorschau ausgelöst werden:<\/p>\n
RunCommand acCmdPrint<\/pre>\nKorrekte Anzeige derVerbrauchsdaten<\/h2>\n
Die Anzeige der Tankvorgänge enthält unter anderem die Anzeige von Verbrauchsdaten zwischen zwei Vollbetankungen. Wenn die erste Vollbetankung nicht im ersten Tankvorgang-Datensatz erfolgte, zeigen das Formular frmVerbrauchsdaten und auch der Bericht repTankinformationen den Ausdruck #Fehler an. Um die Anzeige dieses Ausdrucks zu umgehen, sind lediglich zwei kleine änderungen an dem Steuerelementinhalt der jeweiligen Felder erforderlich. Der bisher im Formular frmVerbrauchsdaten angegebene Ausdruck für den Steuerelementeninhalt lautete folgendermaßen:<\/p>\n
=Wenn([kmstand] Ist Null;Null;[Verbrauch])<\/pre>\nErsetzen Sie diesen Ausdruck durch den folgenden:<\/p>\n
=Wenn([kmstand] Ist Null;Null;Wenn(IsError([Verbrauch]);Null;[Verbrauch]))<\/pre>\nDie IsError-Funktion überprüft, ob der als Parameter angegebene Ausdruck einen fehlerhaften Wert enthält und zeigt in dem Fall den im zweiten Parameter der Wenn-Funktion angegebenen Wert an.<\/p>\n","protected":false},"excerpt":{"rendered":"
Bei der Arbeit mit Computeranwendungen treten zwangsläufig Eingabefehler auf und es gibt keine Validierung, die hundertprozentig vor nicht gewünschten Eingaben schützt. So auch beim Fahrtenbuch, das in Ausgabe 2\/2003 von Access im Unternehmen vorgestellt wurde: Man kann einmal eingegebene Fahrten nicht mehr stornieren, und somit mussten die Daten noch einmal neu eingegeben werden. Um dieses Manko zu beheben, lernen Sie im vorliegenden Beitrag einige Erweiterungen für das Fahrtenbuch kennen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662004,66032004,44000027],"tags":[],"class_list":["post-55000219","post","type-post","status-publish","format-standard","hentry","category-662004","category-66032004","category-Loesungen"],"yoast_head":"\n
Fahrtenbuch mit Import- und Stornierungsfunktion - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Fahrtenbuch mit Import- und Stornierungsfunktion\" \/>\n<meta property=\"og:description\" content=\"Bei der Arbeit mit Computeranwendungen treten zwangsläufig Eingabefehler auf und es gibt keine Validierung, die hundertprozentig vor nicht gewünschten Eingaben schützt. So auch beim Fahrtenbuch, das in Ausgabe 2\/2003 von Access im Unternehmen vorgestellt wurde: Man kann einmal eingegebene Fahrten nicht mehr stornieren, und somit mussten die Daten noch einmal neu eingegeben werden. Um dieses Manko zu beheben, lernen Sie im vorliegenden Beitrag einige Erweiterungen für das Fahrtenbuch kennen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:17:45+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg09.met.vgwort.de\/na\/57f66908c2d14dfca8aa63234a2f2670\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"22\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Fahrtenbuch mit Import- und Stornierungsfunktion\",\"datePublished\":\"2020-05-06T15:17:45+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/\"},\"wordCount\":3560,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/57f66908c2d14dfca8aa63234a2f2670\",\"articleSection\":[\"2004\",\"3\\\/2004\",\"L\u00f6sungen\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/\",\"name\":\"Fahrtenbuch mit Import- und Stornierungsfunktion - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/57f66908c2d14dfca8aa63234a2f2670\",\"datePublished\":\"2020-05-06T15:17:45+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/57f66908c2d14dfca8aa63234a2f2670\",\"contentUrl\":\"http:\\\/\\\/vg09.met.vgwort.de\\\/na\\\/57f66908c2d14dfca8aa63234a2f2670\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Fahrtenbuch mit Import- und Stornierungsfunktion\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"Fahrtenbuch mit Import- und Stornierungsfunktion - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/","og_locale":"de_DE","og_type":"article","og_title":"Fahrtenbuch mit Import- und Stornierungsfunktion","og_description":"Bei der Arbeit mit Computeranwendungen treten zwangsläufig Eingabefehler auf und es gibt keine Validierung, die hundertprozentig vor nicht gewünschten Eingaben schützt. So auch beim Fahrtenbuch, das in Ausgabe 2\/2003 von Access im Unternehmen vorgestellt wurde: Man kann einmal eingegebene Fahrten nicht mehr stornieren, und somit mussten die Daten noch einmal neu eingegeben werden. Um dieses Manko zu beheben, lernen Sie im vorliegenden Beitrag einige Erweiterungen für das Fahrtenbuch kennen.","og_url":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:17:45+00:00","og_image":[{"url":"http:\/\/vg09.met.vgwort.de\/na\/57f66908c2d14dfca8aa63234a2f2670","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"22\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Fahrtenbuch mit Import- und Stornierungsfunktion","datePublished":"2020-05-06T15:17:45+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/"},"wordCount":3560,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/57f66908c2d14dfca8aa63234a2f2670","articleSection":["2004","3\/2004","L\u00f6sungen"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/","url":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/","name":"Fahrtenbuch mit Import- und Stornierungsfunktion - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#primaryimage"},"thumbnailUrl":"http:\/\/vg09.met.vgwort.de\/na\/57f66908c2d14dfca8aa63234a2f2670","datePublished":"2020-05-06T15:17:45+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#primaryimage","url":"http:\/\/vg09.met.vgwort.de\/na\/57f66908c2d14dfca8aa63234a2f2670","contentUrl":"http:\/\/vg09.met.vgwort.de\/na\/57f66908c2d14dfca8aa63234a2f2670"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Fahrtenbuch_mit_Import_und_Stornierungsfunktion\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Fahrtenbuch mit Import- und Stornierungsfunktion"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000219","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000219"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000219\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000219"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000219"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000219"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}