{"id":55000339,"date":"2006-04-01T00:00:00","date_gmt":"2021-02-11T20:52:32","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=339"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Notizverwaltung_Teil_2","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/","title":{"rendered":"Notizverwaltung, Teil 2"},"content":{"rendered":"

\"\"<\/p>\n

Zusammenfassung<\/h3>\n

Lernen Sie eine Bildverwaltung mit vielen Features für Access kennen.<\/p>\n

Techniken<\/h3>\n

Bilder, GDI+, VBA, TreeView, ListView<\/p>\n

Voraussetzungen<\/h3>\n

Access 2000 und höher<\/p>\n

Beispieldateien<\/h3>\n

Notizverwaltung00.mdb, Notizverwaltung02.mdb, MSCOMCTL.msi<\/a><\/p>\n

<\/h3>\n

André Minhorst, Duisburg<\/b><\/p>\n

In der letzten Ausgabe hat Access im Unternehmen Ihnen die Notizverwaltung vorgestellt, die Ordnung ins Zettelchaos bringen kann: Ein übersichtliches TreeView-Steuerelement verschafft dabei einen überblick über die in verschiedenen Kategorien gespeicherten Notizen. In dieser Ausgabe erhält die Notizverwaltung weitere Funktionen wie eine Möglichkeit zum Speichern von Dateiverweisen und eine Suchfunktion. Im nachfolgenden Text finden Sie Details zu den verwendeten Techniken.<\/b><\/p>\n

Gegenüber der im ersten Teil dieser Beitragsreihe vorgestellten Version enthält die aktuelle Fassung zwei zusätzliche interessante Funktionen: Die erste bietet die Möglichkeit, zu jeder Notiz beliebig viele Verknüpfungen zu Dateien zu erstellen. Das Verzeichnis und der Dateiname der Dateien werden in einem ListView-Steuerelement unten rechts im Hauptfenster der Anwendung angezeigt (siehe Bild 1).<\/p>\n

Der Clou ist, dass sich die Informationen zu den verknüpften Dateien durch einfaches Ziehen der Datei in das ListView-Steuerelement in der Tabelle tblDateien speichern lassen und anschließend im ListView angezeigt werden.<\/p>\n

Die zweite Neuerung ist die Such-Funktion, die sich über die Schaltfläche Suche öffnen lässt. Die Suchfunktion befindet sich in einem eigenen Formular, das ein Textfeld zum Eingeben der Suchbegriffe enthält und die Ergebnisse in einer Liste anzeigt (siehe Bild 2). Es lassen sich einer oder mehrere Suchbegriffe in das Textfeld eingeben, die durch „und“ oder „oder“ verknüpft werden können.<\/p>\n

Hyperlinks lassen sich leicht in den Text einer Notiz einfügen, wieder herauskopieren und im Browser anzeigen. Bei Dateien ist das ein wenig schwieriger: Die lassen sich nicht so schnell öffnen, wenn nur der Pfad in der Notiz enthalten ist – und außerdem lassen sie sich nicht auf einfache Weise aus dem URL-Textfeld des Browsers in ein Access-Steuerelement ziehen. Mit Dateinamen funktioniert das schon: Deshalb beherbergt die Notizverwaltung in Zusammenhang mit der aktuellen Notiz stehende Dateien in einem ListView-Steuerelement, von dem aus die Dateien per Doppelklick mit der passenden Anwendung geöffnet werden können.<\/p>\n

Damit das funktioniert, benötigen Sie die Funktionalität aus dem Beitrag Dateinamen per Drag and Drop (Shortlink 326). Dieser Beitrag stellt die Klasse CDragDrop vor, die unter anderem die beiden Methoden FileDropped und ManyFilesDropped enthält.<\/p>\n

<\/p>\n

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

Bild 1: Das Hauptformular der Notizverwaltung mit dem ListView zur Anzeige verknüpfter Dateien<\/span><\/b><\/p>\n

<\/p>\n

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

Bild 2: Die Suchfunktion liefert eine Liste aller Notizen mit den angegebenen Suchbegriffen.<\/span><\/b><\/p>\n

Hinweis<\/h3>\n

Die in der Notizverwaltung verwendete Klasse CDragDrop unterscheidet sich unwesentlich von der im oben genannten Beitrag. Beachten Sie außerdem, dass die Klasse Subclassing einsetzt, was bei geöffnetem VBA-Editor zu Problemen führen kann. Im schlimmsten Fall lähmt die Datenbankanwendung das ganze System und es hilft nur das Abschießen über den Task-Manager, den Sie in dem Fall auch nur über die Tastenkombination Strg + Alt + Entf erreichen. Aber wie gesagt: Probleme gibt es nur bei geöffnetem VBA-Editor. Und den sollte der normale Benutzer eigentlich nicht zu Gesicht bekommen. <\/p>\n

Um die Methoden der Klasse in einem Formular einsetzen zu können, deklariert man die Klasse im Formularmodul etwa folgendermaßen:<\/p>\n

Private WithEvents CDrag As CDragDrop<\/pre>\n
Die beiden Ereignisse werden ausgelöst, wenn der Benutzer eine oder mehrere Dateien auf ein bestimmtes Steuerelement im Formular zieht. Dazu müssen Sie dem passenden Objekt mitteilen, welches Steuerelement es beobachten soll. Im Falle des Formulars frmNotizen passiert dies in der Prozedur, die durch das Ereignis Beim Laden ausgelöst wird. Die folgenden Zeilen instanzieren das CDrag-Objekt, weisen ihm als Zielsteuerelement der Drag and Drop-Operationen das ListView-Steuerelement zur Anzeige der verknüpften Dateien zu und rufen die Methode SubClassHookForm auf, um das Formular zu „subclassen“.<\/p>\n
Set CDrag = New CDragDrop\r\nCDrag.SubClassHook ctlListView.hwnd <\/pre>\n
Interessant sind die beiden Ereignisprozeduren, die das Objekt CDrag bereitstellt, wenn es als WithEvents deklariert ist. Diese lassen sich leicht über die beiden Kombinationsfelder des VBA-Codefensters des Formularmoduls anlegen (siehe Bild 3).<\/p>\n
Was passiert nun mit diesen Methoden Man legt sie wie ganz normale Ereignisprozeduren an und fügt dort den Code ein, der beim Ziehen einer Datei auf das angegebene Steuerelement ausgelöst werden soll. Im vorliegenden Fall soll der Pfad in das Verzeichnis und den Dateinamen aufgeteilt und in der Tabelle tblDateien gespeichert werden (siehe Bild 4).<\/p>\n
Jeder neue Datensatz enthält außerdem die ID der Notiz, mit dem die hinzugefügte Datei verknüpft ist. Außerdem soll das ListView-Steuerelement ctlListView die Dateiinformationen anzeigen (siehe Bild 5).<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 3:  Anlegen der Ereignisprozeduren des CDrag-Objekts<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 4:  Die Tabelle tblDateien speichert die Dateiinformationen und die ID der Notiz, mit der diese Datei verknüpft ist.<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 5:  Aus der Liste der mit einer Notiz verknüpften Dateien lässt sich eine Datei per Kontextmenü öffnen.<\/span><\/b><\/p>\n
Dies alles erledigen die beiden Ereignisse FileDropped und ManyFilesDropped – je nachdem, ob der Benutzer eine oder mehrere Dateien ausgewählt und auf das ListView-Steuerelement gezogen hat. Quellcode 1 zeigt die Routine, die beim Ziehen einer einzelnen Datei auf die Liste ausgelöst wird (die Variante für mehrere Dateien sieht ähnlich aus).<\/p>\n
Die Routine prüft zunächst, ob im TreeView-Steuerelement überhaupt gerade eine Notiz und nicht etwa eine Kategorie markiert ist.<\/p>\n
Handelt es sich um eine Notiz, schreibt sie zunächst einen neuen Datensatz mit den entsprechenden Informationen in die Tabelle tblDateien und fügt dann einen Eintrag zum ListView-Steuerelement hinzu (Know-how zum ListView-Steuerelement finden Sie in den Beiträgen mit den Shortlinks 336, 337, 338 und 339).<\/p>\n
Was hilft schon eine Datenbank zum Anlegen von Notizen, wenn man nicht per Volltextsuche darin suchen kann<\/p>\n
Also haben wir der Notizverwaltung auch noch eine Suchfunktion verpasst. Diese lässt sich über die Schaltfläche Suche im oberen Teil des Hauptformulars aktivieren und erwartet die Eingabe eines oder mehrerer mit „und“ oder „oder“ verknüpfter Suchbegriffe.<\/p>\n
Die Schaltfläche zum Aufrufen des Suchformulars löst zunächst die folgende Anweisung aus und öffnet damit das Suchformular als modalen Dialog:<\/p>\n
DoCmd.OpenForm \"frmSuche\", _    WindowMode:=acDialog<\/pre>\n
Das Suchformular sieht im Entwurf wie in Bild 6 aus. Das Textfeld txtSuchbegriffe erwartet die Eingabe der Suchbegriffe, während die Optionsgruppe ogrVerknuepfung zwei Optionen zur Auswahl der Verknüpfung der einzelnen Suchbegriffe enthält.<\/p>\n
Zur Anzeige des Suchergebnisses dient schließlich ein ListView-Steuerelement namens ctlListView.<\/p>\n
Quellcode 1: Diese Routine schreibt Informationen zu Dateien, die in das ListView-Steuerelement des Formulars gezogen wurden,  in die Tabelle tblDateien und in das ListView-Steuerelement.<\/b><\/p>\n
Private Sub CDrag_FileDropped(Filename As String)\r\n    Dim objListItem As ListItem\r\n    Dim db As DAO.Database\r\n    Dim rst As DAO.Recordset\r\n    Dim lngID As Long\r\n    Dim strDateiname As String\r\n    Dim strVerzeichnis As String\r\n    If Not IsNull(Me.NotizID) Then\r\n        strDateiname = Mid(Filename, _            InStrRev(Filename, \"\\\") + 1)\r\n        strVerzeichnis = Left(Filename, _            InStrRev(Filename, \"\\\"))\r\n        Set db = CurrentDb\r\n        Set rst = db.OpenRecordset(\"tblDateien\", dbOpenDynaset)\r\n        rst.AddNew\r\n        rst!Dateiname = strDateiname\r\n        rst!Verzeichnis = strVerzeichnis\r\n        rst!NotizID = Me.NotizID\r\n        lngID = rst!DateiID\r\n        rst.Update\r\n        Set objListItem = ctlListView.ListItems.Add _            (, \"a\" & lngID, strDateiname)\r\n        objListItem.ListSubItems.Add , , strVerzeichnis\r\n        rst.Close\r\n        Set rst = Nothing\r\n        Set db = Nothing\r\n    End If\r\nEnd Sub<\/pre>\n
<\/p>\n
Ein Klick auf die Schaltfläche cmdSuchen ruft ebenso wie das Ereignis, das nach dem Aktualisieren des im Textfeld txtSuchbegriffe ausgelöst wird, die Routine SucheStarten auf (s. Quellcode 2):<\/p>\n
Private Sub cmdSuchen_Click()\r\n    SucheStarten\r\nEnd Sub<\/pre>\n
Diese Routine ist in Quellcode 2 abgebildet. Sie prüft zunächst, ob das Textfeld txtSuchbegriff überhaupt einen Text enthält. Falls ja, teilt die Split-Funktion die enthaltene Zeichenkette in alle durch ein Leerzeichen getrennten Teile auf und speichert diese in einem String-Array namens strSuchbegriffe.<\/p>\n
Die folgende For Next-Schleife iteriert über alle im Array enthaltenen Suchbegriffe, ergänzt jeden Suchbegriff zu einem Ausdruck wie Notiz LIKE “*<Suchbegriff>*“, wobei es <Suchbegriff> durch den aktuellen Suchbegriff ersetzt und die einzelnen Bedingungen getrennt vom ausgewählten Verknüpfungsoperator aneinanderfügt.<\/p>\n
Wenn das Textfeld txtSuchbegriffe etwa den Inhalt „Access Formular“ hätte und die Suchbegriffe durch „und“ verknüpft werden sollten, sähe der erzeugt Ausdruck folgendermaßen aus:<\/p>\n
AND Notiz LIKE “*Access*“ AND Notiz LIKE *Formular*“<\/p>\n
Ohne das führende „AND“ und zusammen mit dem in der Variablen strSQL gespeicherten Ausdruck SELECT * FROM tblNotizen WHERE ergibt dies die gewünschte SQL-Abfrage.<\/p>\n
Die Routine durchläuft im Anschluss eine auf Basis des soeben ermittelten SQL-Ausdrucks erzeugte Datensatzgruppe – die ja alle Notizen mit dem gewünschten Inhalt enthält – und erledigt darin Folgendes:<\/p>\n
  • Ermitteln des Kategoriepfades der Notiz (etwa \/Access\/Formular\/Tipps und Tricks) mit der Funktion GetKategorien<\/li>\n
  • Anlegen eines neuen Elements im ListView-Steuerelement<\/li>\n
    Fertig! Nach dem Durchlaufen aller Datensätze zeigt das ListView-Steuerelement alle gefundenen Notizen inklusive der übergeordneten Kategorien an.<\/p>\n
    Quellcode 2: Die Suchfunktion des Formulars frmSuche<\/b><\/p>\n
    Private Sub SucheStarten()\r\n    ''Deklaration aus Platzgründen nicht abgedruckt\r\n    If Len(Nz(Me.txtSuchbegriffe, \"\")) > 0 Then\r\n        Set db = CurrentDb\r\n        strSuchbegriffe = Split(Me.txtSuchbegriffe, \" \")\r\n        If Me.ogrVerknuepfung = 1 Then\r\n            strOperator = \"AND\"\r\n        Else\r\n            strOperator = \"OR\"\r\n        End If\r\n        strSQL = \"SELECT * FROM tblNotizen WHERE \"\r\n        For i = 0 To UBound(strSuchbegriffe)\r\n            strKriterium = strKriterium & \" \" & strOperator _                & \" Notiz LIKE ''*\" & strSuchbegriffe(i) & \"*''\"\r\n        Next i\r\n        strKriterium = Mid(strKriterium, 5)\r\n        strSQL = strSQL & strKriterium\r\n        Set rst = db.OpenRecordset(strSQL)\r\n        ctlListView.ListItems.Clear\r\n        Do While Not rst.EOF\r\n            strKategorie = GetKategorie(DLookup(\"KategorieID\", _                \"tblNotizen\", \"NotizID = \" & rst!NotizID))\r\n            Set objListItem = ctlListView.ListItems.Add(, \"a\" _                 & rst!NotizID, rst!Bezeichnung)\r\n            objListItem.ListSubItems.Add , , strKategorie\r\n            rst.MoveNext\r\n        Loop\r\n        rst.Close\r\n        Set rst = Nothing\r\n        Set db = Nothing\r\n    End If\r\nEnd Sub<\/pre>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 6:  Das Suchformular in der Entwurfsansicht<\/span><\/b><\/p>\n
    Gefundene Notiz anzeigen<\/h3>\n
    Hat man in der Liste der Suchergebnisse den richtigen Eintrag gefunden, soll dieser natürlich leicht zugreifbar sein – am besten soll die passende Notiz nach einem Doppelklick auf diesen Eintrag im Hauptformular angezeigt werden.<\/p>\n
    Dieser Wunsch kann erfüllt werden, wenn auch in zwei Schritten: Den ersten Schritt geht die Ereignisprozedur DblClick des ListView-Steuerelements. Sie ermittelt die ID des per Doppelklick ausgewählten Eintrags und stellt in der Tabelle tblNotizen den Wert des Feldes Aktiv für die ausgewählte Notiz auf True und macht das Suchformular unsichtbar.<\/p>\n
    Auf diese Weise wird die Routine, die das Suchformular überhaupt erst geöffnet hat, fortgesetzt.<\/p>\n
    Dabei überprüft diese, ob das Suchformular noch geöffnet ist (was darauf hindeutet, dass der Benutzer eine Notiz per Doppelklick ausgewählt hat, weil nur so das Formular den Fokus verliert, ohne geschlossen zu werden), aktualisiert daraufhin den Inhalt des TreeView-Steuerelements im Hauptformular und schließt das Suchformular endgültig.<\/p>\n
    Dadurch, dass der Datensatz der ausgewählten Notiz in der Tabelle tblNotizen als aktiver Datensatz markiert wurde, wird die entsprechende Notiz nach dem Aktualisieren des TreeViews auch dort als aktuelle Notiz markiert und der passende Inhalt angezeigt:<\/p>\n
    If IstFormularGeoeffnet(\"frmSuche\") Then\r\n    ctlTreeView.Nodes.Clear\r\n    TreeViewFuellen\r\n    DoCmd.Close acForm, \"frmSuche\"\r\nEnd If<\/pre>\n
    Besonders komfortabel wird die Anwendung durch den Einsatz von Kontextmenüs. Diese erlauben<\/p>\n
  • das Hinzufügen von Kategorien und Notizen,<\/li>\n
  • das Löschen von Kategorien und Notizen<\/li>\n
  • und das Hinzufügen, Löschen und öffnen von Dateiverknüpfungen.<\/li>\n
    Nur ihre Programmierung ist nicht so einfach – zumindest nicht, wenn die Kontextmenüs in Zusammenhang mit bestimmten Elementen von TreeViews- oder Listview aus aufgerufen werden sollen. Die folgenden Abschnitte bringen Licht ins Dunkel.<\/p>\n
    Kontextmenü anlegen<\/h3>\n
    Am einfachsten legen Sie das benötigte Kontextmenü in den folgenden Schritten an:<\/p>\n
  • Wählen Sie den Eintrag Anpassen des Kontextmenüs der Menüleiste von Access aus.<\/li>\n
  • Zeigen Sie das Menü Kontextmenü aus der Liste Symbolleisten im nun erscheinenden Anpassen-Dialog an.<\/li>\n
  • Es erscheint die Symbolleiste Kontextmenü. Wechseln Sie im Anpassen-Dialog auf die Registerseite Befehle, wählen Sie im linken Listenfeld den Eintrag Neues Menü aus und ziehen Sie den in der rechten Liste erscheinenden Eintrag gleichen Namens in den Menüpunkt Benutzerdefiniert der Kontextmenü-Leiste.<\/li>\n
  • Geben Sie dem neuen Kontextmenü einen sinnvollen Namen.<\/li>\n
  • Wechseln Sie in der linken Liste des Anpassen-Dialogs zum ersten Eintrag Datei und ziehen Sie den Eintrag Benutzerdefiniert aus dem rechten Listenfeld auf das neu angelegte Kontextmenü.<\/li>\n
  • Geben Sie auch dem Menüeintrag einen Namen und aktivieren Sie gegebenenfalls die Option Schaltflächensymbol und Text im Kontextmenü des neuen Eintrags, wenn Sie zusätzlich zum Text ein Symbol anzeigen möchten. (<\/li>\n
    Merken Sie sich die für die Kontextmenüs und die einzelnen Menüpunkte vergebenen Namen, wenn Sie diese Informationen während der folgenden Programmierschritte nicht jedes Mal mühsam ermitteln möchten.<\/p>\n
    Benutzerdefinierte Icons<\/h3>\n
    Die Notizverwaltung verwendet in den Kontextmenüs benutzerdefinierte Symbole. Diese werden den Symbolleisten per VBA-Code in der Beim Laden-Ereignisprozedur des jeweiligen Formulars zugewiesen.<\/p>\n
    Für den Menüpunkt zum öffnen einer der mit einer Notiz verknüpften Datei sehen die notwendigen Anweisungen wie folgt aus.<\/p>\n
    Dabei ist Dateien_Datei der Name des Kontextmenüs und Datei öffnen der Name des Menüeintrags und die Bilder stammen aus dem im Formular enthaltenen ImageList-Steuerelement:<\/p>\n
    Set cbr = CommandBars(\"Dateien_Datei\")\r\nSet cbc = cbr.Controls(\"Datei öffnen\")\r\nWith cbc\r\n  .Picture = _    ctlImageList.ListImages(17).Picture\r\n  .Mask = _    ctlImageList.ListImages(18).Picture\r\nEnd With<\/pre>\n
    Weitere Informationen zum Zuweisen benutzerdefinierter Icons zu Menüs finden Sie im Beitrag Symbolleiste mit benutzerdefinierten Icons (Shortlink 324).<\/p>\n
    Das Zuweisen benutzerdefinierter Icons ist leider erst ab Access 2002 möglich, daher fehlt diese Funktionalität in der Version für Access 2000.<\/p>\n
    Kontextmenüs im wahrsten Sinne des Wortes<\/h3>\n
    üblicherweise kann man Kontextmenüs einzelnen Formularen oder Steuerelementen zuweisen. Dafür gibt es dann eine entsprechende Eigenschaft, in die man einfach den Namen der Kontextmenüleiste einträgt.<\/p>\n
    Im vorliegenden Fall ist die Situation etwas vertrackter: Die Kontextmenüs sollen nicht nur vom Steuerelement abhängen, sondern auch noch von dem Element, über dem sich der Mauszeiger zum Zeitpunkt des Klicks auf die rechte Maustaste befindet.<\/p>\n
    Die nachfolgende Beschreibung funktioniert für TreeView- und ListView-Steuerelemente, weil diese die hier verwendete HitTest-Methode aufweisen. Diese kann in Ereignisprozeduren von TreeView- und ListView-Steuerelementen eingesetzt werden, die die aktuellen Koordinaten des Mauszeigers in Form einer x- und einer y-Koordinate zur Verfügung stellen. Die HitTest-Methode liefert dann das zu den Koordinaten passende Objekt zurück – je nach Steuerelement ein Node- oder ein ListItem-Objekt.<\/p>\n
    Wer schon einmal benutzerdefinierte Menüs angelegt hat, weiß auch, dass man die durch den jeweiligen Menüpunkt ausgelöste Funktion über die Eigenschaften des Menüpunkts angeben kann. Das funktioniert hier nicht – zumindest nicht, wenn die Funktion vom aktuell ausgewählten Element abhängt: <\/p>\n
    Wie also weist man den Einträgen des Kontextmenüs Funktionen zu, die vom aktuell markierten Element des zugrunde liegenden Steuerelements abhängen – TreeView und ListView bieten ja noch nicht einmal irgendeine Eigenschaft zum Eintragen eines Kontextmenüs<\/p>\n
    Ganz klar: Hier ist VBA gefragt. Die fraglichen Steuerelemente bieten beispielsweise das Ereignis MouseUp. Dieses wird beim Loslassen einer Maustaste ausgelöst – ideal zum Anzeigen eines Kontextmenüs.<\/p>\n
    Die Parameter der Ereignisprozedur bringen alles mit, was Sie benötigen:<\/p>\n
    Private Sub ctlTreeView_MouseUp( _    ByVal Button As Integer, _    ByVal Shift As Integer, _    ByVal x As Long, ByVal y As Long)\r\n    ''...\r\nEnd Sub<\/pre>\n
    Button liefert den Wert 1 für die linke und den Wert 2 für die rechte Maustaste, Shift den Wert 2 bei gedrückter Umschalttaste, 0 für die blanke rechte Maustaste) und x und y die aktuellen Koordinaten des Mauszeigers.<\/p>\n
    Mit den Koordinaten lässt sich wiederum – wie bereits erwähnt – das aktuell markierte Element ermitteln.<\/p>\n
    Das Kontextmenü für das ListView zur Anzeige der verknüpften Dateien ist etwas weniger komplex wie das des TreeViews, deshalb schauen Sie sich dieses zunächst einmal an (wenn Sie die Funktionalität verstanden haben, kommen Sie auch mit den Kontextmenüs des TreeViews zurecht).<\/p>\n
    Die Routine aus Quellcode 4 prüft zunächst, ob der Mausklick über die rechte Maustaste erfolgt, und dann, ob sich der Mauszeiger beim Klick über einem der Elemente befindet. Falls ja, ermittelt sie die ID dieses Elementes in der Tabelle tblDateien – dies erfolgt durch Parsen der Key-Eigenschaft des Elements.<\/p>\n
    Je nachdem, ob der Klick auf einem Element oder im freien Bereich erfolgte, startet die Routine anschließend eine der folgenden beiden Aktionen: Entweder man hat ein Element getroffen, dann referenziert die Routine das Kontextmenü Dateien_Datei und legt für die beiden Schaltflächen dieses Menüs vom aktuellen Element abhängige Funktionsaufrufe fest. <\/p>\n
    Für den Eintrag zum öffnen der Datei sieht dies wie folgt aus (in einer Zeile):<\/p>\n
    cbr.Controls(\"&Datei entfernen\").OnAction = \"=mnuDateiEntfernen(\" & lngID & \")\"<\/pre>\n
    Klickt man mit der rechten Maustaste in einen leeren Bereich des ListViews, wird das Kontextmenü Dateien_Leer referenziert: Dieses enthält nur die Schaltfläche Datei hinzufügen. <\/p>\n
    Auch hier ist ein dynamisch zusammengesetzter Aufruf der entsprechenden Menüfunktion erforderlich: Immerhin muss der neue Eintrag, dessen Pfad über eine Input-Box abgefragt wird, einer bestimmten Notiz zugeordnet werden.<\/p>\n
    Quellcode 4: Steuerung der Kontextmenüs im ListView zur Anzeige der mit einer Notiz verknüpften Dateien<\/b><\/p>\n
    Private Sub ctlListView_MouseUp(ByVal Button As Integer, _    ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)\r\n    On Error GoTo ctlListView_MouseUp_Err\r\n    Dim cbr As CommandBar\r\n    Dim objListItem As ListItem\r\n    Dim lngID As Long\r\n    Select Case Button\r\n        Case 2\r\n            On Error Resume Next\r\n            If Not ctlListView.HitTest(x, y) Is Nothing Then\r\n                Set objListItem = ctlListView.HitTest(x, y)\r\n            End If\r\n            lngID = Mid(objListItem.Key, 2)\r\n            Err.Clear\r\n            On Error GoTo ctlListView_MouseUp_Err\r\n            If objListItem Is Nothing Then\r\n                Set cbr = CommandBars(\"Dateien_Leer\")\r\n                cbr.Controls(\"&Datei hinzufügen\").OnAction = _                    \"=mnuDateiHinzufuegen(\" & Me.NotizID & \")\"\r\n            Else\r\n                objListItem.Selected = True\r\n                Set cbr = CommandBars(\"Dateien_Datei\")\r\n                cbr.Controls(\"&Datei entfernen\").OnAction = _                    \"=mnuDateiEntfernen(\" & lngID & \")\"\r\n                cbr.Controls(\"Datei &öffnen\").OnAction = _                    \"=mnuDateiOeffnen(\" & lngID & \")\"\r\n            End If\r\n    End Select\r\n    If Not cbr Is Nothing Then\r\n        cbr.ShowPopup\r\n    End If\r\n   ''Fehlerbehandlung aus Platzgründen nicht abgedruckt\r\nEnd Sub<\/pre>\n
    Quellcode 5: Entfernen einer Datei aus dem ListView und aus der zugrunde liegenden Tabelle<\/b><\/p>\n
    Public Function mnuDateiEntfernen(lngDateiID As Long)\r\n    Forms!frmNotizen!ctlListView.ListItems.Remove \"a\" _        & lngDateiID\r\n    CurrentDb.Execute _        \"DELETE FROM tblDateien WHERE DateiID = \" & lngDateiID\r\nEnd Function<\/pre>\n
    Zu diesem Zeitpunkt verweist die Objektvariable cbr auf eines der beiden beschriebenen Kontextmenüs, das nur noch angezeigt werden muss: Dafür sorgt schließlich die Anweisung cbr.ShowPopup.<\/p>\n
    Nun fehlen nur noch die passenden Funktionen, die von den Kontextmenüs aufgerufen werden. Diese speichern Sie als Public-Funktionen in einem Standardmodul, damit sie öffentlich zugänglich sind. Beispielhaft soll die Funktion zum Entfernen einer Datei aus der Liste vorgestellt werden (s. Quellcode 5).<\/p>\n
    Diese erledigt zwei Dinge: Ersten entfernt sie das zu der Datei gehörende Element aus dem ListView-Steuerelement und zweitens löscht sie den entsprechenden Eintrag aus der Tabelle tblDateien.<\/p>\n
    Die Notizverwaltung ist ein gutes Beispiel dafür, wie man die seit Office 2002 zum Paket gehörenden Steuerelemente wie das TreeView, das ListView und die ImageList mit ein wenig Know-how zum Erzeugen beeindruckender Benutzeroberflächen einsetzen kann.<\/p>\n
    Die beiden (recht kurzen) Teile dieser Beitragsreihe können leider nicht annähernd alle verwendeten Techniken umfassend beschreiben, aber die weiteren Beiträge zu TreeView, ListView und Co. liefern das fehlende Know-how.<\/p>\n
    Die Notizverwaltung selbst hilft Ihnen hoffentlich, eine eventuell vorhandene Zettelwirtschaft einzudämmen und liefert vor allem mit der Suche eine Funktion, die die bestsortierte Ablage nicht bieten kann.<\/p>\n
    Downloads zu diesem Beitrag<\/h3>\n
    Enthaltene Beispieldateien:<\/p>\n
    Notizverwaltung.mdb<\/p>\n
    MSCOMCTL.msi<\/p>\n
    Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
    In der letzten Ausgabe hat Access im Unternehmen Ihnen die Notizverwaltung vorgestellt, die Ordnung ins Zettelchaos bringen kann: Ein übersichtliches TreeView-Steuerelement verschafft dabei einen Überblick über die in verschiedenen Kategorien gespeicherten Notizen. In dieser Ausgabe erhält die Notizverwaltung weitere Funktionen wie eine Möglichkeit zum Speichern von Dateiverweisen und eine Suchfunktion. Im nachfolgenden Text finden Sie Details zu den verwendeten Techniken.<\/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":[66022006,662006,44000027],"tags":[],"class_list":["post-55000339","post","type-post","status-publish","format-standard","hentry","category-66022006","category-662006","category-Loesungen"],"yoast_head":"\nNotizverwaltung, Teil 2 - 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\/Notizverwaltung_Teil_2\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Notizverwaltung, Teil 2\" \/>\n<meta property=\"og:description\" content=\"In der letzten Ausgabe hat Access im Unternehmen Ihnen die Notizverwaltung vorgestellt, die Ordnung ins Zettelchaos bringen kann: Ein übersichtliches TreeView-Steuerelement verschafft dabei einen Überblick über die in verschiedenen Kategorien gespeicherten Notizen. In dieser Ausgabe erhält die Notizverwaltung weitere Funktionen wie eine Möglichkeit zum Speichern von Dateiverweisen und eine Suchfunktion. Im nachfolgenden Text finden Sie Details zu den verwendeten Techniken.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2021-02-11T20:52:32+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/48b8740e3d67467b95ed2e9cc703eccb\" \/>\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=\"17\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Notizverwaltung, Teil 2\",\"datePublished\":\"2021-02-11T20:52:32+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/\"},\"wordCount\":2881,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/48b8740e3d67467b95ed2e9cc703eccb\",\"articleSection\":[\"2\\\/2006\",\"2006\",\"L\u00f6sungen\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/\",\"name\":\"Notizverwaltung, Teil 2 - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/48b8740e3d67467b95ed2e9cc703eccb\",\"datePublished\":\"2021-02-11T20:52:32+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/48b8740e3d67467b95ed2e9cc703eccb\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/48b8740e3d67467b95ed2e9cc703eccb\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Notizverwaltung_Teil_2\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Notizverwaltung, Teil 2\"}]},{\"@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":"Notizverwaltung, Teil 2 - 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\/Notizverwaltung_Teil_2\/","og_locale":"de_DE","og_type":"article","og_title":"Notizverwaltung, Teil 2","og_description":"In der letzten Ausgabe hat Access im Unternehmen Ihnen die Notizverwaltung vorgestellt, die Ordnung ins Zettelchaos bringen kann: Ein übersichtliches TreeView-Steuerelement verschafft dabei einen Überblick über die in verschiedenen Kategorien gespeicherten Notizen. In dieser Ausgabe erhält die Notizverwaltung weitere Funktionen wie eine Möglichkeit zum Speichern von Dateiverweisen und eine Suchfunktion. Im nachfolgenden Text finden Sie Details zu den verwendeten Techniken.","og_url":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/","og_site_name":"Access im Unternehmen","article_published_time":"2021-02-11T20:52:32+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/48b8740e3d67467b95ed2e9cc703eccb","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"17\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Notizverwaltung, Teil 2","datePublished":"2021-02-11T20:52:32+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/"},"wordCount":2881,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/48b8740e3d67467b95ed2e9cc703eccb","articleSection":["2\/2006","2006","L\u00f6sungen"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/","url":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/","name":"Notizverwaltung, Teil 2 - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/48b8740e3d67467b95ed2e9cc703eccb","datePublished":"2021-02-11T20:52:32+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/48b8740e3d67467b95ed2e9cc703eccb","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/48b8740e3d67467b95ed2e9cc703eccb"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Notizverwaltung_Teil_2\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Notizverwaltung, Teil 2"}]},{"@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\/55000339","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=55000339"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000339\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000339"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000339"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000339"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}