<\/p>\n
Verträge verwalten – das ist was für größere Unternehmen, aber doch nicht für mich! Oder doch überlegen Sie einmal, wieviele Verträge Sie derzeit haben: Da kommt selbst ohne geschäftliche Verträge einiges zusammen: Mietverträge, Leasingverträge, Versicherungsverträge, Mitgliedschaften in Sportvereinen und viele mehr. Dazu vielleicht noch ein paar Wartungsverträge, Verträge mit Internet-Providern, … – da wäre es doch gar nicht schlecht, sich mal einen vernünftigen überblick zu verschaffen.<\/b><\/p>\n<\/p><\/div>\n Funktionen der Lösung<\/p>\n Wenn Sie einmal durch Ihre Aktenordner stöbern, werden Sie eine Reihe von Verträgen finden, die eine Vertragsverwaltung rechtfertigen. Allein, um einen überblick über Laufzeiten, Kündigungsfristen, Verlängerungszeiträume oder auch die Vertragsinhalte zu haben. Das wäre doch toll, wenn man schnell mal die eingescannte Version eines Vertrags hervorzaubern könnte oder dieses Jahr nicht die Frist zur Kündigung der Mitgliedschaft in einem Verein verstreichen lässt.<\/p>\n Datenmodell<\/b><\/p>\n Das Verwalten von Verträgen ist – zumindest, was das Datenmodell angeht – eine echte Herausforderung. Der Grund ist, dass Verträge sehr unterschiedliche Eigenschaften aufweisen können, was etwa Informationen wie Laufzeit und Kündigungsfristen angeht. Versuchen wir doch, ein passendes Datenmodell herzuleiten.<\/p>\n Verträge<\/b><\/p>\n Ein Vertrag ist jeweils eine Einheit, also benötigen Sie in jedem Fall eine Tabelle namens tblVertraege<\/b>. Eindeutige Informationen sind eine Bezeichnung des Vertrags sowie eine Beschreibung des Inhalts. In einem weiteren Feld verweisen Sie auf einen Eintrag einer Tabelle namens tblVertragspartner<\/b>. Dies macht Sinn, weil es durchaus mehrere Verträge mit dem gleichen Vertragspartner geben kann.<\/p>\n Wenn man den Originaltext oder einen Scan des Vertrags speichern oder den Verweis auf eine Datei angeben möchte, benötigt man unter Umständen schon eine eigene Tabelle, da ein Vertrag durchaus mehrere Dokumente enthalten kann. Eindeutig sind hingegen die Informationen zur Vertragslaufzeit – zumindest, wenn man davon ausgeht, dass alle gespeicherten Verträge diesbezüglich grundlegenden Regeln gehorchen:<\/p>\n Wie man die passenden Felder füllt, ist hingegen nicht so einfach: Deshalb und weil auch die Berechnung des nächstmöglichen Kündigungstermins nicht allzu trivial ist, finden Sie alle Informationen dazu in [1]. Dort klären wir Fragen wie „welche Einheit verwendet man etwa zur Berechnung der Laufzeit und wie gibt man die Kündigungsfrist an“. Im Prinzip wäre es ein Leichtes, einfach ein Textfeld zu verwenden und dieses mit einem Ausdruck für die Laufzeit wie „3 Jahre“ oder „6 Monate“ zu füllen.<\/p>\n Genauso können Sie das Feld mit der Kündigungsfrist mit Texten wie „drei Monate zum Jahresende“ oder „30 Tage vor Ablauf“ bestücken. Das liest sich zwar alles ganz toll, aber wenn Sie wirklich von der Anwendung profitieren möchten, ist das nicht die Erste-Wahl-Lösung. Wenn es gelingt, die Informationen numerisch auszudrücken, könnte man etwa zu einem bestimmten Zeitpunkt alle Verträge ermitteln, deren Kündigungsfrist innerhalb des nächsten Monats verstreicht, und die entsprechenden Maßnahmen treffen.<\/p>\n Als Einheit für die Laufzeit scheint „Monat“ angemessen; Bruchteile davon kommen in Laufzeiten wohl eher selten vor. Bei den Kündigungsfristen wird es komplizierter: Neben zeitlich befristeten Verträgen, die eine bestimmte Zeit vor Ablauf der Kündigungsfrist gekündigt werden können, gibt es auch Verträge wie etwa Mitgliedschaften, die man irgendwann beginnt und beispielsweise bis drei Monate vor Ablauf eines Kalenderjahres oder bis einen Monat vor Ablauf des Quartals kündigen kann.<\/p>\n Die Tabelle tblVertraege <\/b>sieht nun wie in Bild 1 aus. Die beiden weiteren bisher vorgestellten Tabellen tblKuendigungszeitpunkte <\/b>und tblVertragspartner <\/b>sowie die übrigen Tabellen finden Sie im Datenmodell in Bild 2.<\/p>\n Bild 1: Die Tabelle tblVertraege in der Entwurfsansicht<\/span><\/b><\/p>\n<\/p><\/div>\n Bild 2: Datenmodell der Vertragsverwaltung<\/span><\/b><\/p>\n<\/p><\/div>\n Dort gibt es auch noch die Tabelle tblDokumente<\/b>. Die Tabelle dient dem Speichern der Verträge selbst – unabhängig vom Format. Die Tabelle hat ein Fremdschlüsselfeld namens VertragID<\/b> für die Zuordnung des Datensatzes zu einem Vertrag sowie ein OLE-Feld zum Speichern einer Datei in beliebigem Format – Bilddatei mit einem Scan, PDF, Word und andere sind möglich.<\/p>\n Desweiteren soll ein Index über die in den Verträgen enthaltenen Wörter erstellt werden – dazu benötigen Sie zwei weitere Tabellen: Die erste enthält die Wörter, wobei es wichtig ist, dass Sie das Feld Wort <\/b>mit einem eindeutigen Index versehen. Die zweite Tabelle verknüpft die Wörter mit den Dokumenten und realisiert damit eine m:n-Beziehung zwischen den passenden Tabellen.<\/p>\n Die Verknüpfungstabelle enthält neben den beiden Fremdschlüsselfeldern DokumentID<\/b> und WortID <\/b>noch ein Feld zum Speichern der Seite des Dokuments, in dem ein Wort gefunden wurde. Damit ein Wort nur einmal pro Dokument und Seite indiziert wird, legen Sie einen zusammengesetzten Primärschlüssel über alle drei Felder fest.<\/p>\n Laufzeiten und Kündigungsfristen in Abfragen<\/p>\n Mit den in den Feldern der Tabelle tblVertraege <\/b>gespeicherten Daten haben Sie die Grundlage geschaffen, Verträge mit ablaufenden Kündigungsfristen zu ermitteln.<\/p>\n Dazu verwenden Sie eine Abfrage auf Basis der Tabelle tblVertraege<\/b>, die die Funktion KuendigungszeitpunktErmitteln <\/b>verwendet. Das Aussehen der Abfrage (aus Platzgründen können hier nicht alle Felder abgebildet werden) finden Sie in Bild 3. Das rechte Feld hat den folgenden Inhalt:<\/p>\n Bild 3: Die Abfrage enthält alle Felder der Tabelle tblVertraege und zusätzlich ein Feld zur Berechnung des nächstmöglichen Kündigungstermins für einen Vertrag.<\/span><\/b><\/p>\n<\/p><\/div>\n Die Funktion KuendigungszeitpunktErmitteln<\/b> (s. Listing 1) ist eine Wrapper-Funktion, die zunächst prüft, ob überhaupt ein Kündigungstermin berechnet werden muss (das ist nicht der Fall, falls schon ein Kündigungstermin vorliegt oder der Vertrag bereits beendet ist).<\/p>\n Listing 1: Wrapper-Funktion zum Aufruf der Funktion zum Berechnen des nächsten Kündigungszeitpunkts<\/p>\n Formular zur Anzeige von Vertragsdaten<\/b><\/p>\n Das Hauptformular und gleichzeitig die Steuerzentrale der Anwendung ist das Formular frmVertraege<\/b>. Es enthält sowohl alle für die Anzeige von Vertragsdaten notwendigen Steuerelemente als auch Schaltflächen zum Aufrufen der Funktionen und weiteren Formulare (siehe Bild 4). Der Kopfbereich zeigt jeweils die Vertragsbezeichnung und die Vertragsnummer an, darunter findet man die gleichen Daten erneut und zusätzlich weitere Vertragsdaten.<\/p>\n Bild 4: Das Hauptformular der Anwendung ist gleichzeitig die Schaltzentrale.<\/span><\/b><\/p>\n<\/p><\/div>\n Die Daten des Vertragspartners des aktuell angezeigten Vertrags zeigt das Formular nicht an, sondern lediglich die Bezeichnung des Vertragspartners. Mit einem Klick auf die Schaltfläche mit den drei Punkten (…) kann man allerdings einen weiteren Dialog öffnen. Dieser zeigt die detaillierten Daten des Vertragspartners an und ermöglicht ihre Bearbeitung. Darüber hinaus können Sie damit auch neue Vertragspartner anlegen. Wichtig ist, dass beim Klick auf die Schaltfläche OK<\/b> der aktuell im Detailformular ausgewählte Datensatz als Vertragspartner im Formular frmVertraege <\/b>festgelegt wird. Bild 5 zeigt das Formular frmVertragspartner <\/b>in der Formularansicht.<\/p>\n Bild 5: Mit diesem Formular verwalten Sie die Daten des jeweiligen Vertragspartners.<\/span><\/b><\/p>\n<\/p><\/div>\n Laufzeitdaten<\/b><\/p>\n Im Bereich Laufzeitdaten<\/b> finden Sie unter anderem die Informationen wieder, die unter [1] ausführlich erläutert werden.<\/p>\n Vertragsdokumente verwalten<\/b><\/p>\n Fehlt noch der unterste, nicht minder wichtige Bereich: Das auffälligste Element ist das Unterformular, das Informationen zu den Vertragsdokumenten in digitalem Format enthält; in diesem Fall die Bezeichnung des Dokuments sowie den Pfad zur passenden Datei. Rechts daneben finden sich acht Schaltflächen mit folgenden Funktionen:<\/p>\n <\/p>\n Vertragsdokumente aus dem Dateisystem hinzufügen<\/b><\/p>\n Die Schaltfläche Neu aus Dateisystem <\/b>öffnet einen Dialog zum Hinzufügen eines Dateipfads zu einem neuen Dokumentdatensatz im Unterformular sfmDokumente <\/b>des Hauptformulars. Die passende Ereignisprozedur verwendet die Funktion OpenFileName<\/b>, um den Dialog anzuzeigen. Eine Beschreibung dieser Funktion finden Sie in [2]. Das Anlegen des neuen Datensatzes erfolgt durch Setzen des Fokus auf das Unterformular und DoCmd.GotoRecord <\/b>mit dem Parameter Record:=acRecNew<\/b>.<\/p>\n Vertragsdokumente anzeigen<\/b><\/p>\n Ein Klick auf die Schaltfläche Dokument anzeigen <\/b>öffnet das aktuell im Unterformular sfmDokumente <\/b>ausgewählte Dokument mit der passenden Anwendung. Auch dies macht den Einsatz einer Funktion aus der VBA-Funktionssammlung aus dieser Ausgabe notwendig. Diesmal handelt es sich um die Funktion OpenDocument<\/b>, die als Parameter lediglich den Dateinamen samt Pfad erwartet.<\/p>\n Vertragsdokumente einscannen<\/b><\/p>\n Vertragsdokumente, die nichts mit Produkten oder Leistungen der EDV insbesondere in Zusammenhang mit dem Internet zu tun haben, liegen meist nicht in digitaler, sondern in Papierform vor. Das liegt allein daran, dass in den meisten Branchen noch die gute alte manuelle Unterschrift zählt. Irgendwie sollte man die notwendigen Dokumente jedoch in ein digitales Format überführen können – zumindest, um diese schnell finden und betrachten zu können. <\/p>\n Da führt natürlich kaum ein Weg am Scanner vorbei (außer, Sie knipsen die Vertragsunterlagen mit der Digitalkamera ab). Wie Sie moderne Scanner, die mit einer WIA-Schnittstelle ausgestattet sind, steuern und dazu bringen, ein gescanntes Dokument direkt auf der Festplatte zu speichern, erfahren Sie in [3].<\/p>\n Im Falle einer Anwendung wie der Vertragsverwaltung stehen die Scanner-Einstellungen prinzipiell fest: Es sollte in Schwarz-weiß mit einer relativ hohen Auflösung gescannt werden, um die resultierenden Dokumente gegebenenfalls per OCR in Text umwandeln zu können. Daher soll die Anwendung dem Benutzer nicht bei jedem Scan den Dialog mit den Scannereinstellungen präsentieren, sondern die passenden Einstellungen einfach verwenden und das im Scanner befindliche Dokument direkt einlesen.<\/p>\n In der Vertragsverwaltung legen Sie die Einstellungen für den Scanner über einen Dialog fest, den Sie mit der Schaltfläche Parameter einstellen <\/b>öffnen. Der Dialog sieht wie in Bild 6 aus. Neben den Eigenschaften für das Einscannen zeigt das Formular auch den aktuellen Scanner an. Der Dialog bezieht seine Daten aus der Tabelle tblParameter <\/b>und speichert geänderte Informationen auch wieder dort ab. Für den Fall, dass Sie die Anwendung erweitern und zusätzliche Parameter anlegen möchten, ist damit vorgesorgt: Die Tabelle lässt sich naturgemäß beliebig erweitern. Und falls Sie einmal schnell auf eine bestimmte Einstellung zugreifen möchten, geben Sie einfach einen Teil des Parameternamens oder des Wertnamens ein – der Dialog filtert dann alle passenden Elemente heraus. Wie dies im Detail funktioniert, können Sie [4] <\/b>entnehmen.<\/p>\n Bild 6: In diesem Dialog legt der Benutzer die Einstellungen fest, die der Scanner beim Einlesen von Dokumenten verwenden soll.<\/span><\/b><\/p>\n<\/p><\/div>\n Diesen legen Sie im übrigen über einen Dialog fest, den Sie mit der Schaltfläche Scanner auswählen <\/b>anzeigen. Das beim Erstellen dieser Anwendung verwendete System lieferte beispielsweise den Dialog aus Bild 7. Nach der Auswahl des Scanners speichert die Anwendung dessen ID und Bezeichnung in einem Datensatz der Tabelle tblParameter<\/b>.<\/p>\n Bild 7: Dialog zum Auswählen des Scanners<\/span><\/b><\/p>\n<\/p><\/div>\n Mehrseitige Dokumente scannen<\/b><\/p>\n Die Wahrscheinlichkeit, dass alle in der Datenbank zu speichernden Verträge nur aus einer Seite Text bestehen, ist relativ gering. Daher kann man mit der Anwendung ein- und mehrseitige Dokumente scannen. Leider funktioniert dies nicht vollautomatisch – also etwa so, dass man einfach nur die einzelnen Seiten in den Dokumenteneinzug des Scanners legt und Anwendung und Scanner auf Knopfdruck den Rest erledigen. Ein wenig umständlicher ist die vorliegende Lösung, aber sie erfüllt ihren Zweck:<\/p>\n Mit der Schaltfläche Neu von Scanner <\/b>starten Sie einen Scan-Vorgang, der das aktuell im Scanner beziehungsweise das erste im Dokumenteneinzug liegende Dokument scannt und speichert. <\/p>\n Verantwortlich dafür ist die Routine aus Listing 2. Sie ermittelt zunächst die für den Scan zu verwendenden Parameter aus der Tabelle tblParameter <\/b>und ruft dann die Funktion BildScannenUndSpeichern <\/b>auf.Dabei übergibt die Routine auch den Namen, unter dem die Datei gespeichert werden soll. Nach erfolgtem Scan-Vorgang legt die Routine einen neuen Datensatz im Unterformular sfmDokumente<\/b> an und trägt dort den Pfad der gespeicherten Datei ein.<\/p>\n Listing 2: Einscannen der ersten Seite eines Dokuments<\/p>\n Folgeseiten<\/b><\/p>\n Dies könnte man nun beliebig oft wiederholen und die einzelnen Seiten als je ein Dokument in der Tabelle tblDokumente <\/b>speichern. Der Sinn dieser Tabelle und des Unterformulars ist jedoch, mehrere tatsächlich unterschiedliche Dokumente zu einem Vertrag zu verwalten. Manchmal enthalten Verträge ja etwa Anlagen oder zusätzliche Informationen. Also fehlt eine Möglichkeit, mehrseitige Dokumente zu scannen, was sich allerdings umgehen lässt. Verantwortlich dafür ist die Schaltfläche Weitere Seite scannen<\/b>, die folgende Schritte erledigt:<\/p>\n Weitere Seiten fügt die Anwendung auf die gleiche Weise an. Die benötigte Funktionalität stellt die Bibliothek zur Verfügung, die auch für die Texterkennung (OCR) verantwortlich ist. Grundlagen zu dieser Bibliothek namens Microsoft Office Document Imaging <\/b>finden Sie [5]. In diesem Fall nutzt die Anwendung allerdings nicht die Fähigkeiten dieser Bibliothek zur Texterkennung, sondern die Möglichkeit, eingescannte und sonstige Dokumente der Formate TIFF und SMP in Form mehrerer Seiten aneinander zu hängen. Die Routine aus Listing 3 scannt zunächst eine Seite ein und speichert diese unter einem temporären Namen. Anschließend erzeugt sie zwei Document<\/b>-Objekte und füllt das erste mit dem Dokument, das die erste(n) Seite(n) enthält, und das zweite mit dem neu eingescannten Dokument. Das Anfügen selbst erfolgt über die Methode Add <\/b>der Images<\/b>-Auflistung des ersten Document<\/b>-Objekts. Zum Schluss speichert sie das neue, erweiterte Dokument und löscht die temporär gespeicherte neue Seite wieder aus dem Dateisystem. Bild 8 zeigt das Ergebnis in der passenden Anwendung: Links die Ansicht aller enthaltenen Dokumente im überblick, rechts die Detailansicht einer der Seiten des Dokuments.<\/p>\n Listing 3: Einscannen der Folgeseiten eines Dokuments<\/p>\n Bild 8: Anzeige eines mehrseitigen, eingescannten Dokuments in der passenden Anwendung<\/span><\/b><\/p>\n<\/p><\/div>\n Vertragsdokumente indizieren<\/b><\/p>\n Um die eingescannten Dokumente einer Suche zugänglich zu machen, müssen Sie zunächst die enthaltenen Texte extrahieren. Dies erledigen die OCR-Methoden der oben erwähnten Bibliothek Microsoft Office Document Imaging<\/b>.<\/p>\n Listing 4 zeigt die Routine, die beim Klick auf die Schaltfläche Indizieren <\/b>ausgelöst wird. Die Routine erzeugt zunächst ein neues Document-Objekt und füllt es mit der zu diesem Vertrag gehörenden TIFF-Datei. Anschließend ermitteln Sie mit der Count<\/b>-Methode der Images<\/b>-Auflistung des Document<\/b>-Objekts die Anzahl der enthaltenen Seiten. Die nun folgende For Next<\/b>-Schleife durchläuft alle enthaltenen Seiten, wobei sie für die aktuelle Seite jeweils eine Objektvariable namens objImage <\/b>festlegt und anschließend mit der OCR-Methode die eigentliche Texterkennung durchführt.<\/p>\n Listing 4: Texterkennung eingescannter Dokumente und Anlegen eines Index<\/p>\n Der Text der aktuellen Seite wird dem Inhalt einer Variablen namens strInhalt <\/b>hinzugefügt. Dies geschieht bei jedem Schleifendurchlauf, wodurch die Variable strInhalt <\/b>am Ende den kompletten eingelesenen Text des Dokuments enthält. Dieser wird im passenden Datensatz der Tabelle tblDokumente <\/b>gespeichert. Für jede Seite durchläuft die Routine eine weitere Schleife, nämlich über alle enthaltenen Wörter. Dazu ermittelt die Routine zunächst die Anzahl der Wörter. In den folgenden Durchläufen versucht die Routine jeweils, einen neuen Datensatz in der Tabelle tblWoerter <\/b>für das aktuelle Wort anzulegen.<\/p>\n Dies gelingt nur, wenn das Wort noch nicht vorhanden ist, weil die Tabelle – wie weiter vorne beschrieben – einen passenden eindeutigen Index besitzt. Die nächste Anweisung ermittelt die ID des Wortes in der Tabelle, um diese zusammen mit der aktuellen Seitenzahl und der ID des Dokuments in der Tabelle tblDokumenteWoerter<\/b> zu speichern. Auch dies gelingt wegen des zusammengesetzten Primärschlüssels der Tabelle tblDokumenteWoerter <\/b>nur einmal je Seite und Wort. Ist dieser Vorgang für alle Seiten und alle darin enthaltenen Wörter abgeschlossen, ist das Dokument komplett indiziert.<\/p>\n Anzeige des Inhalts von Dokumenten<\/b><\/p>\n In einem der ersten Schritte beim Indizieren hat die Routine aus Listing 4 den kompletten Inhalt des Dokuments in der Tabelle tblDokumente<\/b> gespeichert. Diesen Inhalt kann sich der Benutzer ansehen, indem er auf die Schaltfläche Inhalt anzeigen <\/b>klickt. Dieses Formular hat zum schnellen Auffinden von Begriffen eine eingebaute Suche (siehe Bild 9). Die Funktion dieser Suche wird in [6] beschrieben. Alternativ können Sie auch die Suche aus [7] in die Anwendung integrieren, was vor allem bei längeren Texten Vorteile bringt.<\/p>\n Bild 9: Dieser Dialog zeigt den kompletten Inhalt eines Dokuments an.<\/span><\/b><\/p>\n<\/p><\/div>\n Zusammenfassung und Ausblick<\/b><\/p>\n Die Vertragsverwaltung ist vor allem wegen der Scan- und OCR-Funktionen relativ komplex geworden.<\/p>\n Diese Fassung reicht für das Anlegen von Verträgen leicht aus, und auch die Funktionen zum Scannen und Verwalten der Verträge im digitalen Format sind voll einsatzbereit.<\/p>\n Es fehlen aber noch einige Funktionen, die die Vertragsverwaltung erst richtig wertvoll machen und die wir aus Platzgründen leider nicht mehr in dieser Ausgabe von Access im Unternehmen <\/b>unterbringen konnten.<\/p>\n Dazu gehören folgende Funktionen:<\/p>\n Wenn Sie die Vertragsverwaltung in der Praxis einsetzen möchten, sollten Sie noch eine Fehlerbehandlung und eine Eingabevalidierung hinzufügen. Diese Aufgaben erledigt die Anwendung in der vorliegenden Fassung nicht.<\/p>\n Quellen<\/p>\n [1] Kündigungsfristen berechnen, Ausgabe 6\/2006, Shortlink 421<\/p>\n [2] VBA-Funktionssammlung, Ausgabe 6\/2006, Shortlink 416<\/p>\n [3] Dokumente scannen mit WIA, Ausgabe 6\/2006, Shortlink 419<\/p>\n [4] Schnelles Filtern in Unterformularen, Ausgabe 6\/2006, Shortlink 413<\/p>\n [5] Texterkennung mit OCR und VBA, Ausgabe 6\/2006, Shortlink 420<\/p>\n [6] Suchen in Textfeldern, Ausgabe 6\/2006, Shortlink 414<\/p>\n [7] Volltextsuche mit Highlight, Ausgabe 6\/2006, Shortlink 415<\/p>\n Enthaltene Beispieldateien:<\/p>\n Vertragsverwaltung.mdb<\/p>\n\n\n
\n ![\"pic001.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic001_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic002.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic002_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic003.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic003_opt.jpeg\")
\n <\/div>\n\nKuendigungszeitpunkt: KuendigungszeitpunktErmitteln([Vertragsbeginn];[Laufzeit];[KuendigungszeitpunktID];[Kuendigungsfrist];[Laufzeitverlaengerung];[GekuendigtAm];[Vertragsende])<\/pre>\n
Public Function KuendigungszeitpunktErmitteln(dateVertragsstart As Date, intLaufzeit As Integer, _
lngKuendigungszeitpunkt As eKuendigungszeitpunkt, intKuendigungsfrist As Integer, _
intLaufzeitverlaengerung As Integer, varGekuendigtAm As Variant, varVertragsende As Variant)\r\n If IsNull(varGekuendigtAm) And IsNull(varVertragsende) Then\r\n KuendigungszeitpunktErmitteln = NaechstenKuendigungszeitpunktErmitteln(Date, dateVertragsstart, _
intLaufzeit, lngKuendigungszeitpunkt, intKuendigungsfrist, intLaufzeitverlaengerung)
\r\n End If
\r\nEnd Function<\/pre>\n\n ![\"pic004.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic004_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic005.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic005_opt.jpeg\")
\n <\/div>\n\n\n
\n ![\"pic006.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic006_opt.jpeg\")
\n <\/div>\n\n\n ![\"pic007.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic007_opt.jpeg\")
\n <\/div>\n\nPrivate Sub cmdNeuVonScanner_Click()\r\n Dim objCommonDialog As WIA.CommonDialog\r\n Dim objImageFile As WIA.ImageFile\r\n Dim strDateiname As String\r\n Dim strDateiendung As String\r\n Dim strFormat As String\r\n Dim db As DAO.Database\r\n Dim rstParameter As DAO.Recordset\r\n Dim strScannerID As String\r\n Dim lngCurrentIntent As Long\r\n Dim lngResolution As Long\r\n Dim lngBrightness As Long\r\n Dim lngContrast As Long\r\n DoCmd.Hourglass True\r\n strDateiname = OpenFileName(CurrentProject.Path, \"Speichern unter\", \"Tagged Image File (*.tif)\")\r\n Set rstParameter = CurrentDb.OpenRecordset(\"tblParameter\", dbOpenDynaset)\r\n strScannerID = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"ScannerID'\")\r\n lngCurrentIntent = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"CurrentIntent'\")\r\n lngResolution = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"VerticalResolution'\")\r\n lngBrightness = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"Brightness'\")\r\n lngContrast = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"Contrast'\")\r\n If BildScannenUndSpeichern(strScannerID, strDateiname, lngCurrentIntent, lngResolution, lngBrightness, _
lngContrast) = True Then\r\n Me!sfmDokumente.SetFocus\r\n DoCmd.GoToRecord , , acNewRec\r\n Me!sfmDokumente!Dokumentpfad = strDateiname\r\n End If\r\n DoCmd.Hourglass False\r\n rstParameter.Close\r\n Set rstParameter = Nothing\r\n Set db = Nothing\r\nEnd Sub<\/pre>\n\n
Private Sub cmdSeiteHinzufuegen_Click()\r\n Dim db As DAO.Database\r\n Dim rstParameter As DAO.Recordset\r\n Dim strScannerID As String\r\n Dim lngCurrentIntent As Long\r\n Dim lngResolution As Long\r\n Dim lngBrightness As Long\r\n Dim lngContrast As Long\r\n Dim strDateiname As String\r\n DoCmd.Hourglass True\r\n Set rstParameter = CurrentDb.OpenRecordset(\"tblParameter\", dbOpenDynaset)\r\n strScannerID = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"ScannerID'\")\r\n lngCurrentIntent = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"CurrentIntent'\")\r\n lngResolution = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"VerticalResolution'\")\r\n lngBrightness = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"Brightness'\")\r\n lngContrast = DLookup(\"Wert\", \"tblParameter\", \"Parameter = \"Contrast'\")\r\n strDateiname = CurrentProject.Path & \"\\temp.tif\"\r\n If BildScannenUndSpeichern(strScannerID, strDateiname, lngCurrentIntent, lngResolution, lngBrightness, _
lngContrast) = True Then\r\n Dim objDocument1 As MODI.Document\r\n Dim objDocument2 As MODI.Document\r\n Set objDocument1 = New MODI.Document\r\n Set objDocument2 = New MODI.Document\r\n objDocument1.Create Me!sfmDokumente!Dokumentpfad\r\n objDocument2.Create strDateiname\r\n objDocument1.Images.Add objDocument2.Images(0), Nothing\r\n objDocument1.Save\r\n objDocument1.Close\r\n objDocument2.Close\r\n End If\r\n If Len(Dir(strDateiname)) > 0 Then\r\n Kill strDateiname\r\n End If\r\n DoCmd.Hourglass False\r\nEnd Sub<\/pre>\n\n ![\"pic008.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic008_opt.jpeg\")
\n <\/div>\n\nPrivate Sub cmdIndizieren_Click()\r\n Dim objDocument As MODI.Document\r\n Dim db As DAO.Database\r\n Dim lngDokumentID As Long\r\n Dim i As Integer\r\n Dim j As Integer\r\n Dim objImage As MODI.Image\r\n Dim strInhalt As String\r\n Dim strWort As String\r\n Dim lngWortID As Long\r\n Dim intAnzahlSeiten As Integer\r\n Dim intAnzahlWoerter As Integer\r\n Set objDocument = New MODI.Document\r\n If Not IsNull(Me.sfmDokumente) Then\r\n objDocument.Create Me!sfmDokumente!Dokumentpfad\r\n DoCmd.Hourglass True\r\n Set db = CurrentDb\r\n lngDokumentID = Me!sfmDokumente!DokumentID\r\n intAnzahlSeiten = objDocument.Images.Count\r\n For i = 0 To intAnzahlSeiten - 1\r\n objDocument.Images(i).OCR\r\n Set objImage = objDocument.Images(i)\r\n strInhalt = strInhalt & vbCrLf & AnfuehrungszeichenVerdoppeln(objImage.Layout.Text)\r\n intAnzahlWoerter = objDocument.Images(i).Layout.Words.Count\r\n For j = 0 To intAnzahlWoerter - 1\r\n SysCmd acSysCmdSetStatus, _
\"Seite \" & i + 1 & \"\/\" & intAnzahlSeiten & \" Wort \" & j + 1 & \"\/\" & intAnzahlWoerter\r\n strWort = objDocument.Images(i).Layout.Words(j).Text\r\n db.Execute \"INSERT INTO tblWoerter(Wort) VALUES(\"\" & strWort & \"')\"\r\n lngWortID = DLookup(\"WortID\", \"tblWoerter\", \"Wort = \"\" & strWort & \"'\")\r\n db.Execute \"INSERT INTO tblDokumenteWoerter(DokumentID, WortID, Seite) VALUES(\" _
& lngDokumentID & \",\" & lngWortID & \", \" & i + 1 & \")\"\r\n DoEvents\r\n Next j\r\n Next i\r\n Me!sfmDokumente!Inhalt = strInhalt\r\n DoCmd.Hourglass False\r\n End If\r\nEnd Sub<\/pre>\n\n ![\"pic009.tif\"](\"..\/fileadmin\/_temp_\/2006_06\/Vertragsverwaltung-web-images\/pic009_opt.jpeg\")
\n <\/div>\n\n\n
Downloads zu diesem Beitrag<\/h3>\n