{"id":55000442,"date":"2019-04-01T00:00:00","date_gmt":"2020-01-24T16:00:21","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=442"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Formulare_mehrfach_oeffnen_mit_Dictionary","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Formulare_mehrfach_oeffnen_mit_Dictionary.html","title":{"rendered":"Formulare mehrfach öffnen mit Dictionary"},"content":{"rendered":"

In einem früheren Artikel namens Mehrere Instanzen eines Formulars <\/b>haben wir gezeigt, wie Sie ein Formular einer Datenbank mehr als einmal öffnen können. Dabei haben wir ein Collection<\/b>-Objekt verwendet, um die Objektvariablen mit den verschiedenen Instanzen des Formulars zu speichern. Im vorliegenden Artikel schauen wir uns an, wie wir diese Objektvariablen in einem Dictionary<\/b>-Objekt statt in einem Collection<\/b>-Objekt verwalten können und welche Vorteile dies bringt.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1902_DictionaryFormularMehrfach.accdb<\/b>.<\/p>\n

Das Dictionary-Objekt<\/h2>\n

Das Dictionary<\/b>-Objekt erläutern wir im Detail im Artikel Auflistungen mit dem Dictionary-Objekt<\/b> – daher hier nur die notwendigsten Informationen für seine Nutzung. Um das Dictionary<\/b>-Objekt zu verwenden, fügen Sie dem VBA-Projekt einen Verweis auf die Bibliothek Microsoft Scripting Runtime <\/b>hinzu (siehe Bild 1).<\/p>\n

\"Verweis<\/a><\/p>\n

Bild 1: Verweis auf die Bibliothek Microsoft Scripting Runtime<\/p>\n

Die Verweise auf die vom Hauptformular frmKunden-uebersicht <\/b>aus geöffneten Instanzen des Formulars frmKunde <\/b>(siehe Bild 2) speichern wir in einem Dictionary<\/b>-Objekt, dessen Deklaration wir im Klassenmodul des Formulars frmKundenuebersicht<\/b> unterbringen. Dazu legen wir dort im Kopf des Moduls die folgende Anweisung an:<\/p>\n

\"Mehrfaches<\/a><\/p>\n

Bild 2: Mehrfaches öffnen des gleichen Formulars mit verschiedenen Datensätzen<\/p>\n

Dim <\/span>dicForms As <\/span>Dictionary<\/pre>\n
Die Position der neu zu erstellenden Formulare speichern wir in zwei Variablen namens intPosX <\/b>und intPosY<\/b>, die wir ebenfalls dort deklarieren:<\/p>\n
Dim <\/span>intPosX As Integer<\/span>\r\nDim <\/span>intPosY As Integer<\/span><\/pre>\n
Das Hauptformular frmKundenuebersicht <\/b>zeigt die Einträge für die Kunden in einem Listenfeld an (siehe Bild 3).<\/p>\n
Bild 3: Formular zum öffnen der Detailformulare<\/p>\n
Per Doppelklick auf einen der Listeneinträge kann der Benutzer das Formular zum jeweiligen Kunden öffnen. Dies löst die Prozedur aus Listing 1 aus. Damit diese korrekt funktioniert, muss allerdings beim Laden des Formulars die Variable für das Dictionary<\/b>-Objekt initialisiert worden sein:<\/p>\n
Private Sub <\/span>lstKunden_DblClick(Cancel As Integer<\/span>)\r\n     Dim <\/span>frm As <\/span>Form_frmKunde\r\n     Dim <\/span>bolVorhanden As Boolean<\/span>\r\n     Dim <\/span>i As Integer<\/span>\r\n     Static <\/span>lngOffsetY As Long<\/span>\r\n     Dim <\/span>lngXFaktor As Long<\/span>\r\n     Dim <\/span>lngYFaktor As Long<\/span>\r\n     If <\/span>Not<\/span> dicForms.Exists(Me!lstKunden) Then<\/span>\r\n         Set<\/span> frm = New<\/span> Form_frmKunde\r\n         With<\/span> frm\r\n             .Visible = True<\/span>\r\n             .Caption = Me!lstKunden & \" - \" & Me!lstKunden.Column(1)\r\n             .Filter = \"KundeID = \" & Me!lstKunden\r\n             .FilterOn = True<\/span>\r\n         End With<\/span>\r\n         dicForms.Add Me!lstKunden, frm\r\n         GetScreenInfo lngXFaktor, lngYFaktor\r\n         intPosX = intPosX + 1\r\n         intPosY = intPosY + 1\r\n         On Error Resume Next<\/span>\r\n         DoCmd.MoveSize intX * (intPosX - 1) * lngXFaktor, intY * (intPosY - 1) * lngYFaktor + lngOffsetY * lngYFaktor\r\n         If <\/span>Err.Number = 2498 Then<\/span>\r\n             intPosX = 1\r\n             intPosY = 1\r\n             lngOffsetY = intY + 30\r\n             DoCmd.MoveSize intX * (intPosX - 1) * lngXFaktor, intY * (intPosY - 1) * lngYFaktor + lngOffsetY * lngYFaktor\r\n         End If<\/span>\r\n     Else<\/span>\r\n         dicForms.Item(Me!lstKunden).SetFocus\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Listing 1: öffnen eines neuen Formulars<\/p>\n
Private Sub <\/span>Form_Load()\r\n    Set<\/span> dicForms = New<\/span> Dictionary\r\nEnd Sub<\/span><\/pre>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t
\"Formular<\/a><\/p>\n