<\/p>\n
Bild 1: Tabelle mit Add-In-Informationen<\/span><\/b><\/p>\n Die Beiträge RDBMS-Tools: Verbindungen verwalten und RDBMS-Tools: Tabellen verknüpfen stellen zwei praktische Formulare vor, die Sie vor der Benutzung in die Datenbank importieren müssen, bevor Sie diese dort nutzen können. Wenn Sie diese jedoch in verschiedenen Anwendungen einsetzen beziehungsweise immer verfügbar haben möchten, können Sie diese auch in Form von Add-Ins betreiben. Dazu sind allerdings einige änderungen an den Formularen und weitere Ergänzungen notwendig. Welche das sind, zeigen wir Ihnen im vorliegenden Beitrag.<\/b><\/p>\n Um die Formulare einer Access-Anwendung als Add-In in anderen Access-Anwendungen verfügbar zu machen, indem Sie diese über das Ribbon-Menü Datenbanktools|Add-Ins|Add-Ins <\/b>auswählen und anklicken, müssen Sie Access zunächst mitteilen, dass die entsprechenden Einträge dort angezeigt werden sollen. Dazu fügen Sie der Datenbank eine Tabelle namens USysRegInfo<\/b> hinzu, die wie in Bild 1 aussieht. Im Gegensatz zu einigen anderen Beispielen für Add-Ins, die Sie bisher in Access im Unternehmen kennengelernt haben, wollen wir hier allerdings gleich zwei Add-Ins in einer Add-In-Datei unterbringen.<\/p>\n Bild 1: Tabelle mit Add-In-Informationen<\/span><\/b><\/p>\n Deshalb gibt es jeden der fünf Einträge der Tabelle USysRegInfo <\/b>auch zweimal – je einmal für das Add-In mit dem Eintrag RDBMSTools: Tabellen verknüpfen <\/b>und für das Add-In mit dem Eintrag RDBMS-Tools: Verbindungen verwalten<\/b>. Die Datensätze der Tabelle entsprechen prinzipiell Name-Wert-Paaren, wobei ValName <\/b>den Namen und Value <\/b>den Wert aufnimmt.<\/p>\n Dabei gibt Expression <\/b>die beim Auswählen des Eintrags auszuführende Funktion an, Library <\/b>die Datenbank, welche die Funktion enthält, Description <\/b>liefert eine Beschreibung und Version <\/b>gibt an, für welchen Access-Datenbanktyp das Add-In geeignet ist.<\/p>\n Der Wert 3 <\/b>besagt hier, dass das Add-In nur für reine Access-Datenbanken, nicht jedoch für Access-Projekte (.adp<\/b>-Dateien) zur Verfügung steht.<\/p>\n Nachdem Sie eine Datenbank mit dieser Tabelle ausgestattet und diese mit der Dateiendung .mda<\/b>\/.accda <\/b>versehen haben, rufen Sie den Add-In-Manager <\/b>auf (Ribbon-Eintrag Datenbanktools|Add-Ins|Add-Ins|Add-In-Manager<\/b>). Klicken Sie auf die Schaltfläche Neues hinzufügen… <\/b>und wählen Sie im folgenden Dialog die Add-In-Datei aus. Anschließend finden Sie diese wie in Bild 2 mit einigen weiteren Informationen im Add-In-Manager in der Liste der verfügbaren Add-Ins vor.<\/p>\n Bild 2: Installieren des neuen Add-Ins<\/span><\/b><\/p>\n Schließlich tauchen beim nächsten Start von Access zwei neue Einträge in der Liste der verfügbaren Add-Ins auf (s. Bild 3).<\/p>\n Bild 3: Auswahl der beiden neuen Add-Ins<\/span><\/b><\/p>\n Add-In-Einträge mit Leben füllen<\/b><\/p>\n Nun soll der erste Eintrag das Formular frmTabellenVerknuepfen <\/b>öffnen, das wir im Beitrag RDBMS-Tools: Tabellen verknüpfen <\/b>vorgestellt haben und der zweite Eintrag das Formular frmVerbindungszeichenfolgen <\/b>aus dem Beitrag RDBMS-Tools: Verbindungen verwalten<\/b>.<\/p>\n Dazu fehlt noch eine wichtige Entscheidung: Die beiden Tools greifen ja auf die beiden Tabellen tblVerbindungszeichenfolgen <\/b>und tblTreiber <\/b>zu, um die Verbindungszeichenfolgen erstens zu verwalten und zweitens zum Zwecke der Verknüpfung von Tabellen auf diese zuzugreifen. Nun stellt sich die Frage, wo wir diese Tabellen speichern sollen: In der Add-In-Datenbank oder in der Datenbank, in der wir die Verknüpfungen zu den RDBMS-Tabellen anlegen möchten.<\/p>\n Wir entscheiden uns dafür, die Tabellen in der jeweiligen Zieldatenbank zu installieren, damit die Verbindungsdaten für die jeweilige Backend-Datenbank immer direkt im entsprechenden Frontend gespeichert sind. Außerdem können Sie so auch noch VBA-Code zur Anwendung selbst hinzufügen, der sich die Inhalte der Tabelle tblVerbindungszeichenfolgen <\/b>zunutze macht.<\/p>\n Wir müssen also beim Starten einer der beiden Add-In-Funktionen in der Datei RDBMSTools.mda <\/b>jeweils prüfen, ob die Tabellen tblVerbindungszeichenfolgen <\/b>und tblTreiber <\/b>bereits in der aufrufenden Datenbank enthalten sind, und diese gegebenenfalls dort hinzufügen.<\/p>\n Weiter oben in der Tabelle USysRegInfo <\/b>haben wir für die beiden Add-Ins die Funktionen AutostartTabellenVerknuepfen <\/b>und AutostartVerbindungenVerwalten <\/b>angegeben. Diese werden ausgelöst, wenn der Benutzer eines der Add-Ins über den entsprechenden Ribbon-Eintrag aufruft.<\/p>\n Beide sollen beim Start zunächst eine Prozedur namens TabellenErstellen<\/b> aufrufen, die sich um die Tabellen kümmert, und dann erst das Formular für die jeweilige Add-In-Funktion. Die beiden VBA-Funktionen sehen wir folgt aus:<\/p>\n Die Prozedur TabellenErstellen<\/b> finden Sie in Listing 1. Die Prozedur legt zunächst den Namen der Zieltabelle mit tblVerbindungszeichenfolgen<\/b> fest und versucht, bei deaktivierter Fehlerbehandlung eine Tabelle dieses Namens in der aufrufenden Datenbank zu referenzieren. Dabei ist zu beachten, dass wir die aufrufende Datenbank mit der Variablen dbClient <\/b>referenzieren, die wir mit der Funktion CurrentDb <\/b>füllen.<\/p>\n <\/p>\n Listing 1: Prozedur zum Erstellen der Tabellen für die Verbindungen und Treiberinformationen<\/span><\/b><\/p>\n Die Add-In-Datenbank speichern wir in der Variablen dbAddIn<\/b>, und zwar über die Funktion CodeDb<\/b>. Wenn die Variable tdf <\/b>nach dem Versuch, diese mit einem Verweis auf die Tabelle tblVerbindungszeichenfolgen <\/b>zu füllen, noch leer ist, soll die Prozedur diese neu anlegen. Diese könnte man komplett per DAO erledigen und dabei Feld für Feld anlegen.<\/p>\n Da diese Tabelle jedoch schon in der Add-In-Datenbank vorliegt, kopieren wir einfach die komplette Tabelle aus der Add-In-Datenbank in die Client-Datenbank – und zwar mit einer Version der SELECT…INTO<\/b>-Anweisung, die ihre Datenquelle über die IN<\/b>-Klausel aus einer anderen Datenbank bezieht – in diesem Fall aus der Add-In-Datenbank, deren Pfad wir mit der Eigenschaft Name <\/b>der Variablen dbAddIn <\/b>ermitteln.<\/p>\n Auf diese Weise kopieren wir das Grundgerüst der Tabelle in die Zieldatenbank, also die Felder mit dem korrekten Felddatentyp sowie die Inhalte. Die Inhalte löschen wir weiter unten wieder, da der Benutzer ja seine eigenen Verbindungszeichenfolgen anlegen soll.<\/p>\n Beim Kopieren der Tabelle mit SELECT…INTO <\/b>werden die Indizes leider nicht mit übertragen. Daher müssen wir dies noch per Code erledigen. Dazu aktualisiert die Prozedur zunächst die TableDefs<\/b>-Auflistung der Client-Datenbank mit der Refresh<\/b>-Methode.<\/p>\n Dann referenziert sie die neue Tabelle mit der Variablen tdf<\/b> und erstellt ein neues Index<\/b>-Objekt für diese Tabelle. Sie legt ein neues Field<\/b>-Objekt mit CreateField <\/b>für das Index<\/b>-Objekt idx <\/b>an und weist diesem den Namen des Feldes der Tabelle zu, das als Primärschlüssel verwendet werden soll – also VerbindungszeichenfolgeID<\/b>.<\/p>\n Dieses Field<\/b>-Objekt hängt sie dann an die Fields<\/b>-Auflistung von idx <\/b>an und stellt seine Eigenschaft Primary <\/b>auf True <\/b>ein.<\/p>\n Auf ähnliche Weise fügt die Prozedur nun noch den eindeutigen Index zum Feld Bezeichnung hinzu. Hier stellt sie allerdings die Eigenschaft Unique <\/b>auf den Wert True <\/b>ein. Danach löscht die Prozedur alle Datensätze der Tabelle.<\/p>\n Die folgenden Zeilen übertragen dann die Tabelle tblTreiber <\/b>in die Zieldatenbank. Auch hier legt sie nachträglich noch ein Primärschlüsselfeld fest. Schließlich aktualisiert die Prozedur noch den Navigationsbereich, damit die hinzugefügten Tabellen auch angezeigt werden.<\/p>\n übrigens: Die Autowert-Eigenschaft wird im Gegensatz zu den Indizes sehr wohl mit der SELECT…INTO<\/b>-Anweisung übertragen, um diese brauchen wir uns also nicht zu kümmern.<\/p>\n Damit haben wir nun schon einmal die beiden Tabellen tblVerbindungszeichenfolgen<\/b> und tblTreiber <\/b>in die Zieldatenbank kopiert.<\/p>\n Nun fehlen noch ein paar Anpassungen, damit die beiden Formulare auch auf die Daten in diesen beiden Tabellen zugreifen und nicht auf die im Add-In befindlichen Tabellen.<\/p>\n Formular frm-Ver-bin-dungs-zeichen-folgen anpassen<\/b><\/p>\n Das Formular frmVerbindungszeichenfolgen <\/b>bezieht an zwei Stellen Daten aus den Tabellen tblVerbindungszeichenfolgen<\/b>: als Datenherkunft des Formulars selbst und als Datensatzherkunft des Kombinationsfeldes cboSchnellauswahl<\/b>.<\/p>\n Außerdem soll das Kombinationsfeld cboTreiberID <\/b>noch aus der Tabelle tblTreiber <\/b>befüllt werden.<\/p>\n Die jeweiligen Eigenschaften leeren Sie, dafür fügen wir entsprechende Recordsets per VBA-Code zu den Objekten hinzu.<\/p>\n Zum Füllen der entsprechenden Recordsets haben wie eine Prozedur namens DatenAktualisieren <\/b>hinzufügt, die etwa beim Laden des Formulars wie folgt aufgerufen wird:<\/p>\n Die Prozedur DatenAktualisieren<\/b> sieht wie in Listing 2 aus und legt für jedes der drei mit Daten zu versehenden Objekte (ein Formular\/zwei Kombinationsfelder) jeweils ein Recordset auf Basis der entsprechenden Tabelle\/Abfrage an. Dabei erstellt sie die Recordsets mit der OpenRecordset<\/b>-Methode des Objekts dbClient<\/b>, die ja mit CurrentDb <\/b>gefüllt wurde.<\/p>\n Listing 2: Aktualisieren der Datenherkünfte und Datensatzherkünfte<\/span><\/b><\/p>\n Danach weist die Prozedur die Recordset<\/b>-Objekte jeweils der Recordset<\/b>-Eigenschaft des Formulars und der beiden Kombinationsfelder zu.<\/p>\n Davon abgesehen greifen die meisten Ereignisprozeduren ja schon über mit der Funktion CurrentDb <\/b>gefüllte Database<\/b>-Objekte auf die Tabellen zu.<\/p>\n Dies funktioniert ja nach wie vor, weil CurrentDb <\/b>das Database<\/b>-Objekt der Client-Datenbank referenziert, in der sich ja auch die zu bearbeitenden Tabellen befinden.<\/p>\n Anpassen des Formulars frmTabellenVerknuepfen<\/b><\/p>\n Dieses Formular greift nur über das Kombinationsfeld cboVerbindungszeichenfolgen <\/b>auf die Tabellen der Datenbank zu. Also brauchen wir auch hier nur eine Anpassung vorzunehmen:<\/p>\n Das Kombinationsfeld erhält seine Datensatzherkunft nun nicht mehr über die Eigenschaft Datensatzherkunft<\/b>, sondern es wird durch einige Anweisungen gefüllt, die in der Ereignisprozedur Beim Laden <\/b>ausgeführt werden:<\/p>\n Zusatzformular zum Im- und Export von Verbindungszeichenfolgen<\/b><\/p>\n Nun wollen wir noch etwas Komfort zur Lösung hinzufügen, indem wir dem Benutzer die Möglichkeit bieten, alle überhaupt benötigten Verbindungszeichenfolgen weiterhin in der Tabelle tblVerbindugszeichenfolgen <\/b>im Add-In zu speichern und diese bei Bedarf vom Add-In in die Client-Datenbank zu übertragen und umgekehrt.<\/p>\n Dazu fügen wir dem Formular frmVerbindungszeichenfolgen <\/b>eine Schaltfläche namens cmdImExport <\/b>hinzu, welche schlicht ein weiteres Formular namens frmVerbindungszeichenfolgenZuordnen <\/b>aufruft. Diese Prozedur öffnet nicht nur das Formular als modalen Dialog, sondern aktualisiert nach dem Schließen dieses Formulars auch die Daten des aufrufenden Formulars:<\/p>\n Dieses sieht wie in aus Bild 4 und zeigt in zwei Listenfeldern die Verbindungszeichenfolgen an, die im Add-In (also allgemein) und in der aktuell geöffneten Client-Anwendung in der Tabelle tblVerbindungszeichenfolgen <\/b>gespeichert sind.<\/p>\n Bild 4: Im- und Export von Verbindungszeichenfolgen<\/span><\/b><\/p>\n Wenn Sie per Doppelklick auf einen der Listeneinträge klicken, wird der entsprechende Eintrag kopiert und auch in der jeweils anderen Liste angelegt. Sie können auch einen oder mehrere Einträge markieren und diese mit einem Klick auf die Schaltfläche Markierte entfernen <\/b>löschen.<\/p>\n Beim Laden füllt das Formular zunächst zwei Database-Variablen – eine für das Add-In und eine für die Client-Datenbank:<\/p>\n Die beiden Variablen deklarieren Sie im Kopf des Klassenmoduls des Formulars:<\/p>\n Fehlt noch die Prozedur ListenfelderAktualisieren<\/b>, die Sie in Listing 3 finden und die jeweils ein Recordset mit den Daten der Tabelle des jeweiligen Database<\/b>-Objekts einliest. Diese weist sie dann den Recordset<\/b>-Eigenschaften der beiden Listenfelder zu.<\/p>\n Listing 3: Füllen der beiden Listenfelder<\/span><\/b><\/p>\n Verbindungszeichen vom Add-In zum Client kopieren<\/b><\/p>\n Damit Sie per Doppelklick die im Add-In gespeicherten Verbindungszeichenfolgen in die Client-Datenbank kopieren können, fügen wir dem Listenfeld lstImAddIn <\/b>eine Prozedur für die Ereigniseigenschaft Beim Doppeklicken <\/b>hinzu (s. Listing 4).<\/p>\n Listing 4: Kopieren eines Eintrags<\/span><\/b><\/p>\n Diese führt eine INSERT INTO<\/b>-Aktionsabfrage aus, die den Datensatz der Tabelle tblVerbindungszeichenfolgen <\/b>der Add-In-Datenbank (dbAddIn.Name<\/b>) in die entsprechende Tabelle der Client-Datenbank kopiert. Hierbei könnte ein Fehler auftreten, wenn bereits ein Datensatz mit dem gleichen Wert im Feld Bezeichnung vorhanden ist. Dies löst eine entsprechende Meldung aus.<\/p>\n Die entsprechende Prozedur, die durch einen Doppelklick auf die Einträge des Listenfeldes lstInDieserDatenbank<\/b> ausgelöst wird, führt den Kopiervorgang mit vertauschten Datenbanken aus – hier wird der Datensatz aus der mit dbClient <\/b>referenzierten Datenbank in die mit dbAddIn <\/b>referenzierte kopiert.<\/p>\n Entfernen von Verbindungszeichenfolgen<\/b><\/p>\n Damit Sie schnell eine oder mehrere Verbindungszeichenfolgen aus der Client-Datenbank oder aus der Add-In-Datenbank entfernen können, haben wir erstens die Eigenschaft Mehrfachauswahl <\/b>der beiden Listenfelder auf Erweitert <\/b>eingestellt.<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2015_02\/pic_978_001.png\")
<\/p>\n![\"Installieren](\"..\/fileadmin\/_temp_\/2015_02\/pic_978_003.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2015_02\/pic_978_002.png\")
<\/p>\nPublic Function <\/span>AutostartTabellenVerknuepfen()\r\n TabellenErstellen\r\n DoCmd.OpenForm \"frmTabellenVerknuepfen\"\r\nEnd Function<\/span>\r\nPublic Function <\/span>AutostartVerbindungenVerwalten()\r\n TabellenErstellen\r\n DoCmd.OpenForm \"frmVerbindungszeichenfolgen\"\r\nEnd Function<\/span><\/pre>\nPublic Function <\/span>TabellenErstellen()\r\n Dim <\/span>dbClient As <\/span>DAO.Database, dbAddIn As <\/span>DAO.Database\r\n Dim <\/span>strTabelle As String<\/span>\r\n Dim <\/span>tdf As <\/span>DAO.TableDef, idx As <\/span>DAO.Index, fld As <\/span>DAO.Field\r\n Set<\/span> dbClient = CurrentDb\r\n Set<\/span> dbAddIn = CodeDb\r\n On Error Resume Next<\/span>\r\n strTabelle = \"tblVerbindungszeichenfolgen\"\r\n Set<\/span> tdf = dbClient.TableDefs(strTabelle)\r\n On Error GoTo<\/span> 0\r\n If <\/span>tdf Is Nothing Then<\/span>\r\n dbClient.Execute \"SELECT * INTO \" & strTabelle & \" FROM tblVerbindungszeichenfolgen IN ''\" & dbAddIn.Name _\r\n & \"''\", dbFailOnError\r\n dbClient.TableDefs.Refresh\r\n Set<\/span> tdf = dbClient.TableDefs(strTabelle)\r\n Set<\/span> idx = tdf.CreateIndex(\"PK\" & strTabelle)\r\n With<\/span> idx\r\n Set<\/span> fld = idx.CreateField(\"VerbindungszeichenfolgeID\")\r\n .Fields.Append fld\r\n .Primary = True<\/span>\r\n End With<\/span>\r\n tdf.Indexes.Append idx\r\n Set<\/span> idx = tdf.CreateIndex(\"UK\" & strTabelle)\r\n With<\/span> idx\r\n Set<\/span> fld = idx.CreateField(\"Bezeichnung\")\r\n .Fields.Append fld\r\n .Unique = True<\/span>\r\n End With<\/span>\r\n tdf.Indexes.Append idx\r\n dbClient.Execute \"DELETE FROM \" & strTabelle, dbFailOnError\r\n End If<\/span>\r\n Set<\/span> tdf = Nothing\r\n On Error Resume Next<\/span>\r\n strTabelle = \"tblTreiber\"\r\n Set<\/span> tdf = dbClient.TableDefs(strTabelle)\r\n On Error GoTo<\/span> 0\r\n If <\/span>tdf Is Nothing Then<\/span>\r\n dbClient.Execute \"SELECT * INTO \" & strTabelle & \" FROM tblTreiber IN ''\" & dbAddIn.Name & \"''\", dbFailOnError\r\n dbClient.TableDefs.Refresh\r\n Set<\/span> tdf = dbClient.TableDefs(strTabelle)\r\n Set<\/span> idx = tdf.CreateIndex(\"PK\" & strTabelle)\r\n With<\/span> idx\r\n Set<\/span> fld = idx.CreateField(\"TreiberID\")\r\n .Fields.Append fld\r\n .Primary = True<\/span>\r\n End With<\/span>\r\n tdf.Indexes.Append idx\r\n End If<\/span>\r\n Application.RefreshDatabaseWindow\r\nEnd Function<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n DatenAktualisieren\r\n ...\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>DatenAktualisieren()\r\n Dim <\/span>dbClient As <\/span>DAO.Database\r\n Dim <\/span>rstVerbindungszeichenfolgen As <\/span>DAO.Recordset\r\n Dim <\/span>rstVerbindungszeichenfolgen_Cbo As <\/span>DAO.Recordset\r\n Dim <\/span>rstTreiber As <\/span>DAO.Recordset\r\n Dim <\/span>strSQLCbo As String<\/span>\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>strSQLTreiber As String<\/span>\r\n Set<\/span> dbClient = CurrentDb\r\n strSQL = \"tblVerbindungszeichenfolgen\"\r\n Set<\/span> rstVerbindungszeichenfolgen = dbClient.OpenRecordset(strSQL, _\r\n dbOpenDynaset)\r\n Set<\/span> Me.Recordset = rstVerbindungszeichenfolgen\r\n strSQLCbo = \"SELECT VerbindungszeichenfolgeID, Bezeichnung \" _\r\n & \"FROM tblVerbindungszeichenfolgen;\"\r\n Set<\/span> rstVerbindungszeichenfolgen_Cbo = dbClient.OpenRecordset(strSQLCbo, _\r\n dbOpenDynaset)\r\n Set<\/span> Me!cboSchnellauswahl.Recordset = rstVerbindungszeichenfolgen_Cbo\r\n strSQLTreiber = \"tblTreiber\"\r\n Set<\/span> rstTreiber = dbClient.OpenRecordset(strSQLTreiber, dbOpenDynaset)\r\n Set<\/span> Me!cboTreiberID.Recordset = rstTreiber\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>lngVerbindungszeichenfolgeID As Long<\/span>\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>dbClient As <\/span>DAO.Database\r\n Dim <\/span>rstVerbindungszeichenfolgen As <\/span>DAO.Recordset\r\n strSQL = \"SELECT VerbindungszeichenfolgeID, \" _\r\n & \"Verbindungszeichenfolge, Bezeichnung \" _\r\n & \"FROM tblVerbindungszeichenfolgen;\"\r\n Set<\/span> dbClient = CurrentDb\r\n Set<\/span> rstVerbindungszeichenfolgen = _\r\n dbClient.OpenRecordset(strSQL, dbOpenDynaset)\r\n Set<\/span> Me!cboVerbindung.Recordset = _\r\n rstVerbindungszeichenfolgen\r\n ...\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdImExport_Click()\r\n DoCmd.OpenForm \"frmVerbindungszeichenfolgenZuordnen\", _\r\n WindowMode:=acDialog\r\n DatenAktualisieren\r\nEnd Sub<\/span><\/pre>\n![\"Im-](\"..\/fileadmin\/_temp_\/2015_02\/pic_978_004.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Set<\/span> dbAddIn = CodeDb\r\n Set<\/span> dbClient = CurrentDb\r\n ListenfelderAktualisieren\r\nEnd Sub<\/span><\/pre>\nDim <\/span>dbAddIn As <\/span>DAO.Database\r\nDim <\/span>dbClient As <\/span>DAO.Database<\/pre>\nPrivate Sub <\/span>ListenfelderAktualisieren()\r\n Dim <\/span>rstAddIn As <\/span>DAO.Recordset\r\n Dim <\/span>rstClient As <\/span>DAO.Recordset\r\n Set<\/span> rstAddIn = dbAddIn.OpenRecordset(\"SELECT VerbindungszeichenfolgeID, Bezeichnung FROM tblVerbindungszeichenfolgen ORDER BY Bezeichnung\", dbOpenDynaset)\r\n Set<\/span> rstClient = dbClient.OpenRecordset(\"SELECT VerbindungszeichenfolgeID, Bezeichnung FROM tblVerbindungszeichenfolgen ORDER BY Bezeichnung\", dbOpenDynaset)\r\n Set<\/span> Me!lstImAddIn.Recordset = rstAddIn\r\n Set<\/span> Me!lstInDieserDatenbank.Recordset = rstClient\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>lstImAddIn_DblClick(Cancel As Integer<\/span>)\r\n On Error Resume Next<\/span>\r\n dbClient.Execute \"INSERT INTO tblVerbindungszeichenfolgen SELECT * \" _\r\n & \"FROM tblVerbindungszeichenfolgen IN ''\" & dbAddIn.Name _\r\n & \"'' WHERE VerbindungszeichenfolgeID = \" _\r\n & Me!lstImAddIn.ItemData(Me!lstImAddIn.ItemsSelected(0)), dbFailOnError\r\n If <\/span>Err.Number = 3022 Then<\/span>\r\n MsgBox<\/span> \"Die Verbindungszeichenfolge ist bereits vorhanden.\"\r\n End If<\/span>\r\n On Error GoTo<\/span> 0\r\n ListenfelderAktualisieren\r\nEnd Sub<\/span><\/pre>\n