{"id":55000279,"date":"2005-06-01T00:00:00","date_gmt":"2023-11-04T20:26:03","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=279"},"modified":"2024-02-19T08:21:36","modified_gmt":"2024-02-19T08:21:36","slug":"belegverwaltung","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/","title":{"rendered":"Belegverwaltung"},"content":{"rendered":"

\"\"<\/p>\n

Christoph Spielmann, Düsseldorf<\/b><\/p>\n

Fast jede monetäre Transaktion zieht heutzutage ein entsprechendes Stück Papier nach sich, sei es beim Kauf einer Digitalkamera oder beim Mittagessen bei Ihrem Lieblingsitaliener. Die hier vorgestellte Musterlösung stellt Ihnen eine Möglichkeit zur Verfügung, diese Belege zu verwalten und schnell wieder aufzufinden – falls beispielsweise die Digitalkamera einmal einen Defekt aufweist und Sie die Garantie in Anspruch nehmen möchten.<\/b><\/p>\n

Hinweis<\/h3>\n

Die Musterlösung zu diesem Beitrag heißt Belegverwaltung00.mdb und funktioniert mit Access 2000 und höher. Sie finden die Datenbank und die benötigte Schriftart Barcode.ttf auf der Heft-CD oder im Internet unter http:\/\/www.access-im-unternehmen.de (Shortlink 279). <\/p>\n

Die hier vorgestellte Lösung verfolgt das Prinzip „Chaos mit Ordnung“. Jedes Dokument erhält eine eindeutige Nummer und wird danach auf einen Stapel gelegt. Die einzelnen Dokumente sind innerhalb des Stapels also in der Reihe des Eingangs abgelegt. Um nun schnell ein bestimmtes Dokument auffinden zu können, werden die einzelnen Dokumente mit einer Datenbank verwaltet, deren Aufbau Sie in diesem Artikel kennen lernen werden.<\/p>\n

Die Datenstruktur der vorgestellten Lösung besteht aus den vier Tabellen tblBelege, tblKategorien, tblAdressen und tblSeiten. Die Tabelle tblBelege speichert die einzelnen Dokumente. Sie enthält die Felder aus Tab. 1.<\/p>\n

Falls Sie Besitzer eines Scanners sind, können Sie das komplette Dokument als Anlage in dem Feld Anlage als OLE-Objekt hinterlegen.<\/p>\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n
\n

Feldname<\/b><\/p>\n<\/td>\n

\n

Beschreibung<\/b><\/p>\n<\/td>\n<\/tr>\n

\n

BelegNr<\/p>\n<\/td>\n

\n

AutoWert-Primärschlüssel<\/p>\n<\/td>\n<\/tr>\n

\n

AdresseNr<\/p>\n<\/td>\n

\n

Long Integer-Fremdschlüssel zur Tabelle tblAdressen<\/p>\n<\/td>\n<\/tr>\n

\n

KategorieNr<\/p>\n<\/td>\n

\n

Long Integer-Fremdschlüssel zur Tabelle tblAdressen<\/p>\n<\/td>\n<\/tr>\n

\n

Anlagedatum<\/p>\n<\/td>\n

\n

Datum, an dem der Datensatz angelegt wurde<\/p>\n<\/td>\n<\/tr>\n

\n

Belegdatum<\/p>\n<\/td>\n

\n

Datum des Belegs (zum Beispiel das Rechnungsdatum)<\/p>\n<\/td>\n<\/tr>\n

\n

Kurzbezeichnung<\/p>\n<\/td>\n

\n

Kurze Beschreibung zum Beleg (etwa „Digitalkamera“)<\/p>\n<\/td>\n<\/tr>\n

\n

Beschreibung<\/p>\n<\/td>\n

\n

Ausführliche Beschreibung, falls erforderlich<\/p>\n<\/td>\n<\/tr>\n

\n

Seitenanzahl<\/p>\n<\/td>\n

\n

Anzahl der Seiten<\/p>\n<\/td>\n<\/tr>\n

\n

IstSteuerrelevant<\/p>\n<\/td>\n

\n

Information darüber, ob der Beleg steuerlich geltend gemacht werden soll\/muss<\/p>\n<\/td>\n<\/tr>\n

\n

Anlage<\/p>\n<\/td>\n

\n

Dokument als OLE-Objekt<\/p>\n<\/td>\n<\/tr>\n

\n

Endbetrag<\/p>\n<\/td>\n

\n

Endbetrag des Belegs<\/p>\n<\/td>\n<\/tr>\n

\n

MwStSatz<\/p>\n<\/td>\n

\n

Zugrunde liegender Mehrwertsteuersatz<\/p>\n<\/td>\n<\/tr>\n<\/table>\n

Tab. 1: Felder der Tabelle tblBelege<\/b><\/p>\n

Um auch den Empfänger und den Absender eines Belegs hinterlegen zu können und nicht jedes Mal die Adresse erfassen zu müssen, stellt die Tabelle tblAdressen die Informationen über Name, Straße, PLZ, Ort und Telefon zur Verfügung. Um auch den Empfänger und den Absender eines Belegs hinterlegen zu können und nicht jedes Mal die Adresse erfassen zu müssen, stellt die Tabelle tblAdressen die Informationen über Name, Straße, PLZ, Ort und Telefon zur Verfügung.<\/p>\n

Ordnung in die einzelnen Dokumente bringt die Tabelle tblKategorien, die lediglich die zwei Felder KategorieNr und Kategorie enthält. Durch die Verknüpfung zur Tabelle tblBelege kann jedes Dokument auf einen virtuellen Stapel wie beispielsweise „Handy-Abrechnung“, „Bewirtung“ oder „Kreditkartenabrechnung“ gelegt werden. Die Verknüpfung der Tabellen entnehmen Sie Abb. 1.<\/p>\n

<\/p>\n

<\/b><\/p>\n

Abb. 1: Das ER-Diagramm<\/b><\/p>\n

Um die spätere Erstellung von Formularen zu vereinfachen, sind die beiden Felder AdresseNr und KategorieNr der Tabelle tblBelege als Nachschlagefelder definiert. Hierzu gehen Sie wie folgt vor:<\/p>\n

  • öffnen Sie die Tabelle tblBelege in der Entwurfsansicht und positionieren Sie die Einfügemarke auf das Feld AdresseNr.<\/li>\n
  • Wechseln Sie unterhalb der Tabelle zum Register Nachschlagen.<\/li>\n
  • Wählen Sie unter Steuerelement anzeigen die Einstellung Kombinationsfeld aus.<\/li>\n
  • Geben Sie unter Datensatzherkunft die folgende Abfrage an: SELECT Name, AdresseNr FROM tblAdressen ORDER BY Name;<\/li>\n
  • ändern Sie die Eigenschaften Gebundene Spalte und Spaltenanzahl auf den Wert 2.<\/li>\n
  • Geben Sie als Spaltenbreite den Wert 5cm;0cm ein. (<\/li>\n

    Auf die gleiche Weise definieren Sie für das Feld KategorieNr ein Nachschlagefeld. Verwenden Sie in diesem Fall jedoch die folgende Abfrage:<\/p>\n

    SELECT Kategorie, KategorieNr FROM tblKategorien ORDER BY Kategorie;<\/pre>\n
    Speichern Sie anschließend die fertige Tabelle.<\/p>\n
    Ein wesentlicher Bestandteil der hier vorgestellten Lösung ist, dass alle Dokumente mit einer eindeutigen Nummer versehen werden. Um die Nummer nicht von Hand auf das Dokument schreiben zu müssen, soll diese Aufgabe von Ihrem Drucker erledigt werden. Hierzu werden die Belege einfach in den Papiereinzug gelegt und der Drucker versieht diese mit der Nummer.<\/p>\n
    Damit die Nummer immer sichtbar ist, wird sie in jeder Ecke und zudem noch invertiert ausgegeben. Zusätzlich zu der Nummer soll ein Barcode mit ausgegeben werden. Falls Sie also einen Barcode-Scanner haben sollten, können Sie einzelne Dokumente sehr schnell durch einfaches Scannen des Barcodes zuordnen.<\/p>\n
    Den Ausdruck der Nummer und des Barcodes erledigt ein Berichts namens rptIndex. Der Bericht enthält im Seitenkopf und im Seitenfuß jeweils links und rechts zwei Text-Steuerelemente zur Ausgabe der Nummer und des Barcodes (s. Abb. 2).<\/p>\n
    Falls Sie einen mehrseitigen Beleg haben, sollte die Nummer auf jeder Seite ausgegeben werden und idealerweise noch mit einer fortlaufenden Seitennummer versehen werden. Um diese zu realisieren, ist der Bericht an die Tabelle tblSeiten geknüpft. Diese Tabelle enthält nur eine einzelne Spalte namens SeiteNr. Damit für jeden Datensatz in der Tabelle tblSeiten eine Berichtsseite gedruckt wird, ist die Eigenschaft Neue Seite des Detailbereichs auf Vor Bereich eingestellt. Um nun eine bestimmte Anzahl Seiten zu drucken, muss die Tabelle tblSeiten zunächst mit der erforderlichen Anzahl Datensätze gefüllt werden. Dies erledigt die VBA-Prozedur SeitenErstellen (s. Quellcode 1).<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 2: Der Bericht rptIndex in der Entwurfsansicht.<\/b><\/p>\n
    Die Prozedur erwartet als Parameter die Anzahl der gewünschten Seiten. Sie prüft zunächst, ob die Tabelle bereits mindestens die angegebene Anzahl an Datensätzen enthält. Sollte dies nicht der Fall sein, fügt sie die fehlenden Seiten hinzu. Der Bericht wird später mit einem Filterkriterium wie beispielsweise <\/p>\n
    SeiteNr <= 10\nSub SeitenErstellen(Anzahl As Integer)\n    Dim i As Integer\n    Dim MyRecordset As New ADODB.Recordset\n    Dim AnzahlExistierendeSeiten As Long\n    AnzahlExistierendeSeiten = DCount(\"SeiteNr\", _        \"tblSeiten\")\n    If AnzahlExistierendeSeiten < Anzahl Then\n        With MyRecordset\n            .ActiveConnection = _                CurrentProject.Connection\n            .LockType = adLockOptimistic\n            .CursorLocation = adUseClient\n            .Source = \"tblSeiten\"\n            .Open\n            For i = 1 To _                Anzahl - AnzahlExistierendeSeiten\n                .AddNew\n                !SeiteNr = AnzahlExistierendeSeiten + i\n                .Update\n            Next i\n        End With\n    End If\nEnd Sub<\/pre>\n
    Quellcode 1<\/b><\/p>\n
    geöffnet. Hierdurch stellt es kein Problem dar, wenn die Tabelle mehr Datensätze enthält, als für den Ausdruck erforderlich sind. Sie finden die fertige Prozedur im Modul modTools der Beispieldatenbank zu diesem Artikel. Wie bereits erwähnt, erfolgt der Ausdruck der Nummer und des Barcodes in allen vier Ecken jeder Seite. Um dies zu erreichen, platzieren Sie jeweils im Seitenkopf und im Seitenfuß insgesamt acht Textfelder. Vier davon sind für die Nummer, die anderen vier für die Barcodes reserviert.<\/p>\n
    Damit die korrekte Nummer ausgegeben werden kann, muss der Bericht an die Tabelle tblBelege gebunden sein. Zusätzlich ist aber auch eine Bindung an die Tabelle tblSeiten erforderlich, um den Ausdruck mehrerer Seiten zu ermöglichen.<\/p>\n
    Um dieses Problem zu lösen, fügen Sie der Datenquelle des Berichts einfach beide Tabellen hinzu, ohne diese zu verknüpfen (s. Abb. 3).<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 3: Die Datenquelle des Berichts besteht aus zwei nicht verknüpften Tabellen.<\/b><\/p>\n
    Durch die fehlende Verknüpfung bildet Access einen „Cross-Join“. Dies bedeutet, dass zu jedem Datensatz aus der Tabelle tblSeiten alle Datensätze aus der Tabelle tblBelege ausgegeben werden. Wenn jede Tabelle beispielsweise zehn Datensätze enthält, würde das Abfrageergebnis aus insgesamt 100 Datensätzen bestehen.<\/p>\n
    Als Ergebnis der Abfrage reichen die beiden Felder SeiteNr und BelegNr aus. Beim öffnen des Berichts muss nun lediglich noch die BelegNr entsprechend gefiltert werden.<\/p>\n
    Ausgabe der Nummer<\/h2>\n
    Da zusätzlich zur Beleg-Nummer auch die Seitennummer ausgegeben werden soll, bietet sich die Definition eines Formats an. In dieser Lösung ist die Entscheidung auf das Format<\/p>\n
    00000-0000<\/pre>\n
    gefallen, wobei der erste Teil vor dem Bindestrich die Belegnummer und der zweite Teil die Seitennummer darstellt. Die Formatierung übernimmt die VBA-Prozedur GetPageID, die Sie ebenfalls im Modul modTools der Beispieldatenbank finden:<\/p>\n
    Public Function GetPageID(BelegNr As _    Variant, SeiteNr As Variant) _    As String\n    GetPageID = Format(BelegNr, _    \"00000\") + \"-\" + Format(SeiteNr, _    \"0000\")\nEnd Function<\/pre>\n
    Die Prozedur erwartet als Parameter die Belegnummer und die aktuelle Seitennummer. Daraus bildet sie dann das vorgestellte Format.<\/p>\n
    Zum Einsatz kommt die Prozedur in den vier Text-Steuerelementen, die zur Anzeige der Nummer reserviert sind. Hierzu tragen Sie den folgenden Ausdruck in die Steuerelementinhalt-Eigenschaft des Textfeldes ein:<\/p>\n
    =GetPageID([BelegNr];[SeiteNr])<\/pre>\n
    Zusätzlich sollten Sie das Textfeld noch mit einer weißen Schriftfarbe und einem schwarzen Hintergrund formatieren. Durch diese invertierte Darstellung kann der Text später besser entziffert werden (s. Abb. 4).<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 4: Invertierte Formatierung des Textfeldes<\/b><\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 5: Das Barcode-Textfeld<\/b><\/p>\n
    Das Eintragen des Ausdrucks und die Formatierung wiederholen Sie für alle vier Textfelder.<\/p>\n
    Ausgabe des Barcodes<\/h2>\n
    Die Ausgabe des Barcodes erfolgt direkt unterhalb der Belegnummer in einem weiteren Textfeld. Zur Darstellung des Barcodes kommt ein spezieller Font namens Barcode Universal zum Einsatz. Sie finden diesen Font auf der CD. Zur Installation des Fonts gehen Sie wie folgt vor:<\/p>\n
  • öffnen Sie die Systemsteuerung von Windows.<\/li>\n
  • öffnen Sie von hier aus den Ordner Schriftarten.<\/li>\n
  • Ziehen Sie die Datei Barcode.tft von der CD in den Ordner Schriftarten. (<\/li>\n
    Der Font enthält lediglich drei Zeichen: Einen langen Strich, einen kurzen Strich sowie einen weißen Strich als Leerzeichen. Die drei Zeichen werden durch die Ziffern 0, 1 und 2 repräsentiert.<\/p>\n
    Durch entsprechende Kombination dieser drei Zeichen lassen sich fast alle eindimensionalen Barcodes wie etwa Code39 oder EAN darstellen.<\/p>\n
    Da die Seitennummer in unserem Fall einen Bindestrich – also ein Sonderzeichen – enthält, fällt die Wahl auf den Code39.<\/p>\n
    Um den Barcode innerhalb des Textfeldes darzustellen, wählen Sie über die Schriftart-Eigenschaft des Textfeldes den Font Barcode Universal aus. Als Steuerelementinhalt-Eigenschaft geben Sie den folgenden Ausdruck ein (s. Abb. 5):<\/p>\n
    =Barcode_Code39(GetPageID([BelegNr];[SeiteNr]))<\/pre>\n
    Die Ihnen bereits bekannte Funktion GetPageID erzeugt die fertig formatierte Seitennummer und gibt diese anschließend an die Funktion Barcode_Code39. Diese erzeugt daraus eine Folge von Nullen und Einsen, die bei Formatierung mit dem Font Barcode Universal einen Barcode ergeben.<\/p>\n
    Sie finden die Prozedur im Modul Code39 der Beispieldatenbank.<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 6: Ein fertiger Barcode<\/b><\/p>\n
    Damit der Barcode nicht zu klein dargestellt wird, erhöhen Sie die Schriftgröße abschließend mit Hilfe der Schriftgrad-Eigenschaft auf einen Wert von 35 (s. Abb. 6). Alle Einstellungen nehmen Sie wieder viermal vor.<\/p>\n
    Um nun einen Beleg mit der Seitenindizierung zu versehen, müssen folgende Schritte durchgeführt werden:<\/p>\n
    Anlegen eines neuen Datensatzes in der Tabelle tblBelege<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 7: Das Formular frmNeuerBeleg<\/b><\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 8: Der Bericht in der Seitenvorschau<\/b><\/p>\n
    Anlegen der erforderlichen Datensatzanzahl in der Tabelle tblSeiten<\/p>\n
    öffnen des Berichts rptIndex zum Ausdruck der Beleg- und Seitennummern<\/p>\n
    Diese Aufgaben werden von dem Formular frmNeuerBeleg übernommen (s. Abb. 7). Das Formular basiert auf der Tabelle tblBelge. Damit nur die Erfassung neuer Datensätze möglich ist, ist die Eigenschaft Daten eingeben auf Ja eingestellt.<\/p>\n
    Die OK-Schaltfläche löst die Ereignisprozedur aus Quellcode 2 aus.<\/p>\n
    Zunächst wird die Anzahl der eingegebenen Seiten ermittelt und in der Variablen Anzahl zwischengespeichert. Anschließend wird der Datensatz gespeichert und die Tabelle tblSeiten mit der erforderlichen Anzahl an Datensätzen aufgefüllt.<\/p>\n
    Die letzte Anweisung öffnet schließlich den Bericht in der Seitenvorschau. Mit einem Filter wird hierbei sowohl die Belegnummer als auch die Seitenanzahl eingeschränkt.<\/p>\n
    Nachdem der Bericht in der Seitenvorschau (s. Abb. 8) angezeigt wird, kann der Benutzer den Beleg in den Drucker einlegen und den Ausdruck starten.<\/p>\n
    Um ein Dokument schnell wieder auffinden zu können, ist ein entsprechendes Suchformular erforderlich.<\/p>\n
    Dieses trägt den Namen frmBelegsuche (s. Abb. 9).<\/p>\n
    Private Sub btnOK_Click()\n    On Error Resume Next\n    Dim Anzahl As Integer\n    Anzahl = CInt(Me!Seitenanzahl)\n    DoCmd.RunCommand acCmdSaveRecord\n    SeitenErstellen (Anzahl)\n    DoCmd.OpenReport \"rptIndex\", acViewPreview, , \"SeiteNr<=\" & CStr(Anzahl) _        & \" AND DokumentNr=\" + CStr(Me!DokumentNr)\nEnd Sub<\/pre>\n
    Quellcode 2<\/b><\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 9: Das Formular zur Suche nach Belegen<\/b><\/p>\n
    Das Formular besteht aus einem Haupt- und einem Unterformular. Im Hauptformular können über vier Felder Suchkriterien eingegeben werden. Nach einem Klick auch Suchen wird das Ergebnis im Unterformular angezeigt.<\/p>\n
    Die vier Felder zur Eingabe der Suchkriterien tragen die Namen txtSuchBelegNr, cmbSuchAdresseNr, cmbSuchKategorieNr und txtSuchKurzbezeichnung. Die beiden Kombinationsfelder zur Auswahl der Kategorie und der Adresse sind zur Anzeige der Daten aus der jeweiligen Tabelle konfiguriert. <\/p>\n
    Die Einstellungen entsprechen denen, die Sie bereits bei der Konfiguration der Nachschlagefelder zu Beginn dieses Artikels kennen gelernt haben.<\/p>\n
    Die Schaltfläche Suchen ist mit der folgenden Ereignisprozedur aus Quellcode 3 verknüpft. Im ersten Schritt wird die eingegebene Belegnummer ermittelt und in der Variablen BelegNr zwischengespeichert. Die Funktion GetBelegNr (s. Quellcode 4) lernen Sie gleich noch kennen.<\/p>\n
    Private Sub btnSuchen_Click()\n    Dim BelegNr As Long\n    BelegNr = GetBelegNr(Me.txtSuchBelegNr)\n    Dim SQL As String\n    SQL = \"SELECT * FROM tblBelege WHERE 1=1\"\n    If BelegNr <> 0 Then SQL = SQL & \" AND BelegNr=\" & BelegNr\n    If Not IsNull(Me.cmbSuchAdresseNr) Then _        SQL = SQL & \" AND AdresseNr=\" & Me.cmbSuchAdresseNr\n    If Not IsNull(Me.cmbSuchKategorieNr) Then _        SQL = SQL & \" AND KategorieNr=\" & Me.cmbSuchKategorieNr\n    If Not IsNull(Me.txtSuchKurzbezeichnung) Then _        SQL = SQL & \" AND Kurzbezeichnung LIKE ''*\" & Me.txtSuchKurzbezeichnung & \"*''\"\n    SQL = SQL & \" ORDER BY Belegdatum\"\n    Me.Sub.Form.RecordSource = SQL\n    Me.Sub.Form.Requery\nEnd Sub<\/pre>\n
    Quellcode 3<\/b><\/p>\n
    Public Function GetBelegNr(Eingabe As Variant) As Long\n    On Error GoTo Fehler\n    If IsNull(Eingabe) Then\n        GetBelegNr = 0\n    Else\n        Dim pos As Integer\n        pos = InStr(1, Eingabe, \"-\")\n        If pos = 0 Then\n            GetBelegNr = CInt(Eingabe)\n        Else\n            GetBelegNr = CInt(Left(Eingabe, pos - 1))\n        End If\n    End If\n    Exit Function\nFehler:\n        GetBelegNr = 0\n        Exit Function\nEnd Function<\/pre>\n
    Quellcode 4<\/b><\/p>\n
    Anschließend wird eine SQL-Abfrage zusammengestellt. Hierbei wird pro Kriterium geprüft, ob ein Wert vorhanden ist. Sollte dies der Fall sein, wird der entsprechende Filter-Ausdruck mittels AND-Schlüsselwort hinzugefügt. Abschließend erfolgt noch eine Sortierung nach dem Belegdatum.<\/p>\n
    Die fertige SQL-Anweisung wird schließlich dem Unterformular als Datensatzherkunft übergeben.<\/p>\n
    Falls Ihnen ein Barcode-Lesegerät zur Verfügung steht und Sie den Barcode eines Belegs scannen, wird dieser inklusive Seitennummer eingelesen.<\/p>\n
    Die Funktion GetBelegNr trennt die beiden Teile voneinander, sodass eine Suche nach der Belegnummer erfolgen kann. Sie hat den Aufbau aus Quellcode 4.<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Abb. 10: Das Formular frmBelege<\/b><\/p>\n
    Zuerst wird geprüft, ob überhaupt eine Eingabe vom Benutzer gemacht wurde; wenn nicht, gibt die Funktion den Wert 0 zurück und beendet die Abarbeitung.<\/p>\n
    Anschließend ermittelt die InStr-Funktion die Position des Bindestrichs. Falls die Positionsermittlung erfolgreich ist, wird der erste Teil abgeschnitten und als Funktionsergebnis zurückgegeben. Wenn kein Bindestrich vorhanden ist, wird die komplette Eingabe in eine Zahl umgewandelt und zurückgegeben. Zu guter Letzt sorgt noch eine Fehlerbehandlungsroutine dafür, dass bei unsinnigen Eingaben wie zum Beispiel Texten der Wert 0 zurückgegeben wird.<\/p>\n
    Detailansicht von Dokumenten<\/h2>\n
    In der Ergebnisliste werden nicht alle Informationen zu den einzelnen Dokumenten dargestellt. Um alle Details zu einem bestimmten Dokument anzuzeigen, steht das Formular frmBelege zur Verfügung. Hierbei handelt es sich um ein einfaches Formular, das mit dem Formular-Assistenten erstellt wurde (s. Abb. 10).<\/p>\n
    Das öffnen des Formulars erfolgt von dem Formular frmBelegsuche-Sub aus, das als Unterformular in dem Suchformular platziert ist. Die Beim Doppelklicken-Ereigniseigenschaft ist hierbei mit der folgenden VBA-Prozedur verknüpft: <\/p>\n
    Private Sub BelegNr_DblClick(Cancel _    As Integer)\n    DoCmd.OpenForm \"frmBelege\", _    acNormal, , \"BelegNr=\" _    & CStr(Me!BelegNr)\nEnd Sub<\/pre>\n
    Die Prozedur öffnet das Formular frmBelege und filtert hierbei den gewünschten Datensatz heraus.<\/p>\n
    Die hier vorgestellte Lösung kann noch weiter optimiert werden, indem beispielsweise ein Scanner eingesetzt wird, der automatisch PDF-Dateien erzeugt und diese auch gleich per OCR in Text umwandelt. Idealerweise wird hierbei auch die Indexnummer in Text umgewandelt, sodass Sie diese beispielsweise im Rahmen der Volltextsuche verwenden können.<\/p>\n
    Wenn Ihnen der Aufdruck der Nummern mit Hilfe des Druckers zu umständlich ist, können Sie alternativ auch einen Paginierstempel einsetzen. Dieser hat ein Zählwerk, womit bei jedem Stempelvorgang weitergezählt wird. <\/p>\n
    Downloads zu diesem Beitrag<\/h2>\n
    Enthaltene Beispieldateien:<\/p>\n
    Belegverwaltung00.mdb<\/p>\n
    BARCODE.TTF<\/p>\n
    Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
    Fast jede monetäre Transaktion zieht heutzutage ein entsprechendes Stück Papier nach sich, sei es beim Kauf einer Digitalkamera oder beim Mittagessen bei Ihrem Lieblingsitaliener. Die hier vorgestellte Musterlösung stellt Ihnen eine Möglichkeit zur Verfügung, diese Belege zu verwalten und schnell wieder aufzufinden – falls beispielsweise die Digitalkamera einmal einen Defekt aufweist und Sie die Garantie in Anspruch nehmen möchten.<\/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":[662005,66032005,44000028],"tags":[],"class_list":["post-55000279","post","type-post","status-publish","format-standard","hentry","category-662005","category-66032005","category-Ergonomie_und_Benutzeroberflaeche"],"yoast_head":"\nBelegverwaltung - 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\/belegverwaltung\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Belegverwaltung\" \/>\n<meta property=\"og:description\" content=\"Fast jede monetäre Transaktion zieht heutzutage ein entsprechendes Stück Papier nach sich, sei es beim Kauf einer Digitalkamera oder beim Mittagessen bei Ihrem Lieblingsitaliener. Die hier vorgestellte Musterlösung stellt Ihnen eine Möglichkeit zur Verfügung, diese Belege zu verwalten und schnell wieder aufzufinden - falls beispielsweise die Digitalkamera einmal einen Defekt aufweist und Sie die Garantie in Anspruch nehmen möchten.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/belegverwaltung\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2023-11-04T20:26:03+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2024-02-19T08:21:36+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg07.met.vgwort.de\/na\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3\" \/>\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=\"14\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Belegverwaltung\",\"datePublished\":\"2023-11-04T20:26:03+00:00\",\"dateModified\":\"2024-02-19T08:21:36+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/\"},\"wordCount\":2376,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3\",\"articleSection\":[\"2005\",\"3\\\/2005\",\"Ergonomie und Benutzeroberfl\u00e4che\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/\",\"name\":\"Belegverwaltung - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3\",\"datePublished\":\"2023-11-04T20:26:03+00:00\",\"dateModified\":\"2024-02-19T08:21:36+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3\",\"contentUrl\":\"http:\\\/\\\/vg07.met.vgwort.de\\\/na\\\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/belegverwaltung\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Belegverwaltung\"}]},{\"@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":"Belegverwaltung - 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\/belegverwaltung\/","og_locale":"de_DE","og_type":"article","og_title":"Belegverwaltung","og_description":"Fast jede monetäre Transaktion zieht heutzutage ein entsprechendes Stück Papier nach sich, sei es beim Kauf einer Digitalkamera oder beim Mittagessen bei Ihrem Lieblingsitaliener. Die hier vorgestellte Musterlösung stellt Ihnen eine Möglichkeit zur Verfügung, diese Belege zu verwalten und schnell wieder aufzufinden - falls beispielsweise die Digitalkamera einmal einen Defekt aufweist und Sie die Garantie in Anspruch nehmen möchten.","og_url":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/","og_site_name":"Access im Unternehmen","article_published_time":"2023-11-04T20:26:03+00:00","article_modified_time":"2024-02-19T08:21:36+00:00","og_image":[{"url":"http:\/\/vg07.met.vgwort.de\/na\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"14\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Belegverwaltung","datePublished":"2023-11-04T20:26:03+00:00","dateModified":"2024-02-19T08:21:36+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/"},"wordCount":2376,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/#primaryimage"},"thumbnailUrl":"http:\/\/vg07.met.vgwort.de\/na\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3","articleSection":["2005","3\/2005","Ergonomie und Benutzeroberfl\u00e4che"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/belegverwaltung\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/","url":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/","name":"Belegverwaltung - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/#primaryimage"},"thumbnailUrl":"http:\/\/vg07.met.vgwort.de\/na\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3","datePublished":"2023-11-04T20:26:03+00:00","dateModified":"2024-02-19T08:21:36+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/belegverwaltung\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/#primaryimage","url":"http:\/\/vg07.met.vgwort.de\/na\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3","contentUrl":"http:\/\/vg07.met.vgwort.de\/na\/a6b88d7ddeaf42d9ab095b3a5d0b3bc3"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/belegverwaltung\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Belegverwaltung"}]},{"@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\/55000279","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=55000279"}],"version-history":[{"count":1,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000279\/revisions"}],"predecessor-version":[{"id":88075298,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000279\/revisions\/88075298"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000279"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000279"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000279"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}