<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Wer will denn schon mehrere Süppchen kochen, wenn er doch eines servieren kann, das allen Beteiligten schmeckt. Letzteres ist leider in den meisten Unternehmen nicht möglich, da es in vielen Bereichen keine konsistenten Datenbestände gibt. Das fängt damit an, dass jeder Mitarbeiter sein persönliches Adressbuch in Outlook pflegt, anstatt auf die Groupware-Funktionen dieser Software zuzugreifen, die allen Mitarbeitern einen einheitlichen, aktuellen Adressbestand zur Verfügung stellt. Da das nur der Anfang für eine effizientere Organisation ist und Sie es besser machen sollen, lernen Sie im vorliegenden Beitrag, wie Sie die Daten unterschiedlicher Datenbanken geschickt verknüpfen.<\/b><\/p>\n
Die Hauptbeispieldatenbank des vorliegenden Beitrags ist die Mitarbeiterverwaltung, die bereits in zwei Teilen in den Ausgaben 7\/2001 und 1\/2002 vorgestellt wurde. In den beiden Beiträgen wurde anhand der Mitarbeiterverwaltung die Erstellung einer Datenbankanwendung auf Basis der MSDE, einer abgespeckten Microsoft SQL Server-Variante, erläutert. Für diesen Beitrag finden Sie auf der Heft-CD eine reine Access-Version dieser Datenbank, von der damit auch Access 97-Anwender und Anwender von Access 2000 und höher, die keine MSDE und keinen SQL Server verwenden wollen, profitieren können.<\/p>\n
Es wird noch eine weitere Beispieldatenbank hinzugezogen: Die Besprechungsplanung aus der vorliegenden Ausgabe von Access im Unternehmen. Der vorliegende Beitrag beschreibt verschiedene Möglichkeiten, Daten und Objekte zweier Datenbanken in der jeweils anderen Datenbank zu verwenden.<\/p>\n
Die einfachste Art der Zusammenarbeit zweier Datenbanken erfolgt durch die Bereitstellung der Daten der einen Datenbank in der anderen Datenbank. Die beiden Datenbankanwendungen Mitarbeiterverwaltung und Besprechungsplanung benötigen beide die Daten der Mitarbeiter. Während sich die Mitarbeiterverwaltung sogar hauptsächlich mit den Mitarbeitern beschäftigt, sind die Mitarbeiter in der Besprechungsplanung nur ein Teil der eigentlich behandelten Objekte, nämlich der Besprechungen.<\/p>\n
Daher sollen die Mitarbeiter fortan in der Mitarbeiterverwaltung gepflegt werden. Die Besprechungsplanung soll auf die in der Mitarbeiterverwaltung enthaltenen Mitarbeiterdaten zugreifen.<\/p>\n
Wenn Sie die beiden Datenbanken und speziell die dort enthaltenen Tabellen zur Speicherung der Mitarbeiterdaten betrachten, fällt auf, dass die Daten in der Mitarbeiterverwaltung erwartungsgemäß wesentlich umfangreicher sind.<\/p>\n
Die Besprechungsplanung enthält in der Tabelle tblMitarbeiter lediglich ein Indexfeld sowie ein Feld, in dem Vor- und Nachname des Mitarbeiters gespeichert werden.<\/p>\n
Im „wirklichen Leben“ werden Sie kaum ein Unternehmen finden, in dem von Anfang an alle Anwendungen auf konsistente und einfach gehaltene Daten zugreifen. Das ist auch nicht realistisch, denn entweder müsste es dazu eine Rundumsoftware für alle Belange des Unternehmens geben oder das Unternehmen müsste eine solche Software erstellen lassen, was zweifelsfrei sehr teuer würde.<\/p>\n
Public Sub MitarbeiterKopieren()\r\n Dim db As DAO.Database\r\n Dim rstMitarbeiterAlt As DAO.Recordset\r\n Dim rstMitarbeiterNeu As DAO.Recordset\r\n Dim strName As String\r\n Dim strVorname As String\r\n Dim strNachname As String\r\n Dim posKomma As Integer\r\n Set db = CurrentDb\r\n Set rstMitarbeiterAlt = db.OpenRecordset(\"tblMitarbeiterAlt\", dbOpenDynaset)\r\n Set rstMitarbeiterNeu = db.OpenRecordset(\"tblMitarbeiterVerknuepft\", _ dbOpenDynaset)\r\n Do While Not rstMitarbeiterAlt.EOF\r\n strName = rstMitarbeiterAlt!Mitarbeitername\r\n posKomma = InStr(1, strName, \",\")\r\n strVorname = Trim(Mid(strName, 1, posKomma - 1))\r\n strNachname = Trim(Mid(strName, posKomma + 1))\r\n rstMitarbeiterNeu.FindFirst \"[Nachname] = ''\" & strNachname _ & \"'' AND [Vorname] = ''\" & strVorname & \"''\"\r\n If rstMitarbeiterNeu.NoMatch Then\r\n rstMitarbeiterNeu.AddNew\r\n rstMitarbeiterNeu!Vorname = strVorname\r\n rstMitarbeiterNeu!Nachname = strNachname\r\n rstMitarbeiterNeu.Update\r\n End If\r\n rstMitarbeiterAlt.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\nQuellcode 1<\/b><\/p>\n
Daher ist wie im vorliegenden Fall davon auszugehen, dass mehrere Anwendungen prinzipiell die gleichen Daten speichern und, wenn überhaupt möglich, einander angepasst werden müssen. <\/p>\n
Im vorliegenden Fall ist die Besprechungsplanung so ausgelegt, dass die Daten zu den einzelnen Mitarbeitern aus einem einzigen Feld namens Mitarbeitername bestehen, während in der Tabelle tblMitarbeiter der Mitarbeiterverwaltung die beiden Felder Vorname und Nachname getrennt geführt werden. Immerhin heißen die Primärindexfelder der beiden Tabellen beide MitarbeiterID.<\/p>\n
Gewünschter Zustand<\/h2>\n
Ziel der hier beschriebenen Vorgehensweise ist das Schaffen eines einzigen Datentopfes mit Mitarbeiterdaten, auf den beide Anwendungen zugreifen können.<\/p>\n
Am leichtesten geht das, indem Sie einfach die eine Anwendung beibehalten und die andere Anwendung mit den entsprechenden Daten verknüpfen. Im vorliegenden Fall bedeutet das ein Belassen der Mitarbeitertabelle in der Mitarbeiterverwaltung und die Anpassung der Besprechungsplanung.<\/p>\n
Synchronisation derMitarbeitertabellen<\/h2>\n
Bevor die Mitarbeiterdaten nur noch in einer Datenbank beziehungsweise einer Tabelle gehalten werden, müssen die Daten aus beiden Tabellen zusammengefasst werden.<\/p>\n
Dabei wird davon ausgegangen, dass Mitarbeiter, die in der Besprechungsplanung, aber nicht in der Mitarbeiterverwaltung geführt werden, zur Tabelle tblMitarbeiter der Mitarbeiterverwaltung hinzugefügt werden.<\/p>\n
Diese Aufgabe übernimmt im vorliegenden Fall die Prozedur MitarbeiterKopieren aus Quellcode 1.<\/p>\n
Hinweis<\/h3>\n
Diese Prozedur ist ein Beispiel für die Zusammenfassung der Datensätze zweier Tabellen in eine der beiden Tabellen. Wann immer Sie einen ähnlichen Vorgang durchführen wollen, können Sie das mit einer Anfügeabfrage oder wie im vorliegenden Fall mit einer geeigneten Prozedur erledigen. Sie werden aber aufgrund der von Fall zu Fall unterschiedlichen Gegebenheiten jeweils eine neue Vorgehensweise dafür entwickeln müssen. <\/p>\n
Die Tabelle durchläuft alle Datensätze der Mitarbeitertabelle der Besprechungsplanung und überprüft, ob in der entsprechenden Tabelle der Mitarbeiterverwaltung bereits ein Datensatz für den aktuellen Mitarbeiter vorhanden ist. Dabei wird der aus den Bestandteilen Nachname, Komma und Vorname bestehende Inhalt des Feldes Mitarbeitername in Nachname und Vorname aufgeteilt und als Vergleichskriterium verwendet. Wenn noch kein Mitarbeiter gleichen Namens vorhanden ist, wird dieser neu angelegt.<\/p>\n
Anpassen einer Anwendung an Fremdtabellen<\/h2>\n
Abfragen, Formulare, Berichte und vor allem VBA-Code nehmen in den meisten Fällen Bezug auf Tabellen und deren Felder. Naiverweise könnte man nun einen Riesenberg Arbeit vermuten, um all die Datenbankobjekte und Codezeilen nach Bezügen auf die Tabelle tblMitarbeiter und die darin enthaltenen Felder zu durchsuchen und diese anzupassen.<\/p>\n
Es geht aber viel leichter, und zwar in wenigen Schritten. Dabei hilft die Tatsache, dass Abfragen in 98% aller Fälle genau wie Tabellen angesprochen werden können. Nachfolgend werden folgende Schritte im Detail erläutert:<\/p>\n
Bevor Sie die Mitarbeitertabelle der Besprechungsverwaltung löschen können, müssen Sie natürlich überprüfen, ob die Mitarbeiterverwaltung den gleichen Stand hat oder ob die Besprechungsplanung gegebenenfalls schon Mitarbeiter enthält, die noch nicht in der Mitarbeiterverwaltung gespeichert sind. Das sollte zwar nicht sein, aber es wäre einer der Gründe, um Daten nur an einem Ort zu pflegen.<\/p>\n
Nachdem Sie die Daten verglichen haben, können Sie die Tabelle tblMitarbeiter aus der Besprechungsplanung löschen. Wenn Sie nicht sicher sind, ob Sie die Tabelle nicht doch noch einmal benötigen, ändern Sie einfach den Namen in tblMitarbeiterAlt um.<\/p>\n
<\/p>\n
Nun können Sie die Besprechungsplanung mit der Tabelle tblMitarbeiter der Mitarbeiterverwaltung verknüpfen. Gehen Sie dabei folgendermaßen vor:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Auswahl von zu verknüpfenden Tabellen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 2: Verknüpfte und umbenannte Tabelle<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Die Abfrage zur Simulation der Tabelle tblMitarbeiter<\/span><\/b><\/p>\n Sie können nun bereits auf die Mitarbeiterdaten der Mitarbeiterverwaltung zugreifen. Leider befindet sich in der Tabelle tblMitarbeiterVerknuepft kein Feld namens Mitarbeitername, auf das Formulare und Berichte der Besprechungsplanung zugreifen können, aber Sie haben ja ohnehin bereits den Tabellennamen umgeändert.<\/p>\n Nun folgt der Schritt, in dem Sie sich die Tatsache zu Nutze machen, dass fast alle Zugriffe auf Abfragen wie Zugriffe auf Tabellen funktionieren.<\/p>\n Dabei verwenden Sie eine Abfrage, die den gleichen Namen wie die zu ersetzende Tabelle tblMitarbeiter und auch die gleichen Felder enthält. Wenn eine andere Abfrage, ein Formular, ein Bericht oder VBA-Code auf das Datenbankobjekt mit dem Namen tblMitarbeiter zugreift, macht es keinen Unterschied, ob es sich dabei um eine Tabelle oder um eine Abfrage handelt.<\/p>\n Der Ausdruck Mitarbeitername: [Nachname] & „, “ & [Vorname] dient dazu, die beiden Felder Nachname und Vorname der Tabelle tblMitarbeiter der Mitarbeiterverwaltung in ein Feld namens Mitarbeitername zu mappen.<\/p>\n Damit haben Sie nun ein Datenbankobjekt, das genau den gleichen Namen und genau die gleichen Felder wie die ursprünglich in der Besprechungsplanung verwendete Tabelle tblMitarbeiter hat, aber tatsächlich die Daten der Tabelle tblMitarbeiter der Mitarbeiterverwaltung enthält.<\/p>\n <\/b><\/p>\n Bild 4: Falsche oder fehlende Besprechungsteilnehmer durch unterschiedliche Schlüsselfelder<\/span><\/b><\/p>\n Die Vorgehensweise wäre zu leicht, wenn nicht noch einige Probleme auftauchen würden – zumindest, wenn in beiden Datenbanken bereits Mitarbeiterdaten vorhanden sind.<\/p>\n Das erste Problem tritt zu Tage, wenn Sie die in der Besprechungsplanung enthaltenen Mitarbeiter in die Tabelle tblMitarbeiter der Mitarbeiterverwaltung übertragen hätten, ohne deren MitarbeiterID beizubehalten oder die Mitarbeiter dort ohnehin gespeichert wären, aber eine andere MitarbeiterID hätten.<\/p>\n Offensichtlich wird das Problem, wenn Sie unter oben genannten Bedingungen eine Besprechung anzeigen und feststellen, dass der Besprechung plötzlich ganz andere Personen zugeordnet werden oder deren Platz ganz frei bleibt (siehe Bild 4). Es gibt auf den ersten Blick zwei nahe liegende Lösungsansätze:<\/p>\n Die erste Möglichkeit erweist sich spätestens dann als zu aufwändig, wenn bereits mit der Tabelle tblMitarbeiter verknüpfte Datensätze in weiteren Tabellen der Mitarbeiterverwaltung enthalten sind.<\/p>\n Bleibt also die zweite Möglichkeit. Um die Inhalte der Fremdschlüsselfelder der Tabellen anzupassen, die mit Datensätzen der Tabelle tblMitarbeiter verknüpft sind, müssen Sie eine entsprechende Prozedur erstellen. Die Prozedur soll zusammengefasst folgende Schritte durchführen:<\/p>\n Der letzte Schritt bringt ein Problem mit sich: Wenn beispielsweise ein Mitarbeiter mit der MitarbeiterID 1 in der Besprechungsplanung gespeichert war, und in der Mitarbeitertabelle der Mitarbeiterverwaltung die MitarbeiterID 10 hat, muss ja für alle Einträge der verknüpften Tabellen in der Besprechungsplanung die MitarbeiterID von 1 auf 10 geändert werden.<\/p>\n Das funktioniert aber nicht, wenn die Besprechungsplanung vorher auch einen Mitarbeiter mit der MitarbeiterID 10 enthielt.<\/p>\n Dann würde dieser Mitarbeiter nicht nur den Besprechungen zugeordnet sein, denen er auch zugeordnet sein soll, sondern auch noch denen des Mitarbeiters, der ursprünglich die MitarbeiterID 1 hatte, und umgekehrt.<\/p>\n Quellcode 2<\/b><\/p>\n Um dennoch zum Ziel zu kommen, verwenden Sie eine temporäre Tabelle namens tblBesprechungsteilnehmerTemp.<\/p>\n In diese werden alle Einträge der Tabelle tblBesprechungsteilnehmer mit angepasster MitarbeiterID übertragen.<\/p>\n <\/b><\/p>\n Bild 5: Kopieren einer Tabelle<\/span><\/b><\/p>\n Legen Sie zunächst die temporäre Tabelle an. Dazu kopieren Sie die Tabelle tblBesprechungsteilnehmer über den Eintrag Kopieren des Kontextmenüs in die Zwischenablage und fügen sie mit dem Befehl Einfügen wieder in das Datenbankfenster ein.<\/p>\n Im nun erscheinenden Dialog Tabelle einfügen als geben Sie den Namen tblBesprechungsteilnehmerTemp an und wählen als Option Nur Struktur aus (siehe Bild 5).<\/p>\n Anschließend verwenden Sie die Prozedur aus Quellcode 2, um die einzelnen Einträge der Tabelle tblBesprechungsteilnehmer in die Tabelle tblBesprechungsteilnehmerTemp zu kopieren und dabei gleichzeitig die Inhalte des Fremdschlüsselfeldes MitarbeiterID anzupassen.<\/p>\n Nachdem Sie die Richtigkeit der Daten überprüft haben, können Sie die Tabelle tblBesprechungsteilnehmer in tblBesprechungsteilnehmerAlt und die Tabelle tblBesprechungsteilnehmerTemp in tblBesprechungsteilnehmer umbenennen. Anschließend sollten alle Besprechungen wieder mit den richtigen Teilnehmern angezeigt werden.<\/p>\n <\/b><\/p>\n Bild 6: Verweis auf eine andere Datenbank<\/span><\/b><\/p>\n Wenn Sie nun schon in der Besprechungsplanung auf die Mitarbeiterdaten aus der Mitarbeiterverwaltung zugreifen, wäre es doch schön, wenn Sie auch direkt von der Besprechungsplanung aus neue Mitarbeiter anlegen oder deren Daten ändern könnten.<\/p>\n Das ist eigentlich kein Problem – kopieren Sie das entsprechende Formular aus der Mitarbeiterverwaltung in die Besprechungsplanung und fügen Sie dem Formular zum Anlegen von Besprechungen ein paar entsprechende Steuerelemente zum Aufrufen des Mitarbeiterformulars hinzu.<\/p>\n Beim öffnen des Formulars werden Sie schnell daran erinnert, dass Sie auch noch die dazugehörenden Unterformulare importieren müssen. Und als Nächstes macht sich das Fehlen der benötigten Datenherkünfte bemerkbar, für die Sie ebenfalls noch Verknüpfungen anlegen müssen.<\/p>\n Nachdem Sie alle benötigten Formulare kopiert und Verknüpfungen zu den entsprechenden Tabellen und Abfragen hergestellt haben, funktioniert das Anlegen von Mitarbeitern.<\/p>\n Allerdings haben Sie sich damit ärger zugezogen, den Sie gerade auf anderer Ebene vermeiden wollen: Sie haben zwei Kopien des gleichen Formulars und müssen eventuell notwendige änderungen jedes Mal doppelt durchführen.<\/p>\n Auch hier haben Sie die Möglichkeit, eine Art Verknüpfung zu erstellen. Das funktioniert nicht so direkt wie im Fall der Tabellen und ist ein wenig komplizierter.<\/p>\n Um ein Formular einer anderen Datenbank in der aktuellen Datenbank aufzurufen, gehen Sie folgendermaßen vor:<\/p>\n <\/b><\/p>\n Bild 7: Zugriff auf die Module mehrerer Datenbanken<\/span><\/b><\/p>\n Im VBA-Editor finden Sie nun die Klassen- und Standardmodule der aktuellen und der verknüpften Datenbank (siehe Bild 7). Leider ist das beispielsweise auf der Registerseite Formulare des Datenbankfensters nicht der Fall, sodass keine direkte Bearbeitung der Formulare der verknüpften Datenbank möglich ist.<\/p>\n Aber da Formulare und Berichte ohnehin meist per VBA-Code geöffnet werden, macht das nicht viel aus. Sie können allerdings auch via VBA nicht direkt auf Datenbankobjekte zugreifen, wie folgendes Beispiel zeigt: Testen Sie einmal das öffnen des Formulars zur Anzeige von Mitarbeiterdetails, indem Sie im Testfenster (zu öffnen über die Tastenkombination Strg + g) die folgende Anweisung eingeben:<\/p>\n Gemäß der nun erscheinenden Fehlermeldung ist eine alternative Möglichkeit zum öffnen des Formulars erforderlich. Diese Möglichkeit ist das Anlegen einer öffentlichen Funktion in einem Modul in der verknüpften Datenbank, die den Befehl zum öffnen des gewünschten Formulars enthält (s. Quellcode 3).<\/p>\n Diese Funktion erwartet als Parameter die MitarbeiterID des Mitarbeiters, dessen Detaildaten das Formular anzeigen soll.<\/p>\n Wenn Sie die folgende Anweisung im Testfenster absetzen, wird das Mitarbeiterformular in der Besprechungsplanung geöffnet:<\/p>\n Da der Benutzer der Besprechungsplanung vermutlich nicht mit dem Testfenster und dem Aufrufen von Funktionen per VBA vertraut ist, passen Sie nun noch das Formular zur Anzeige von Besprechungen so an, dass per Knopfdruck Mitarbeiterdaten eingesehen und bearbeitet sowie neue Mitarbeiter angelegt werden können.<\/p>\n Beachten Sie, dass alle änderungen, die Sie am VBA-Code der Mitarbeiterverwaltung vornehmen, von dieser Datenbank aus durchgeführt werden müssen. änderungen, die Sie vom VBA-Fenster der Besprechungsplanung aus vornehmen, werden nicht gespeichert. <\/p>\n Dazu benötigen Sie zunächst die beiden Funktionen in der Mitarbeiterverwaltung, die dem öffnen des Formulars frmMitarbeiterDetail dienen – einmal zum Bearbeiten und einmal zum Neuanlegen eines Mitarbeiters (s. Quellcode 4). Zu deren Eingabe schließen Sie die Besprechungsverwaltung und öffnen die Mitarbeiterverwaltung.<\/p>\n <\/b><\/p>\n Bild 8: Schaltflächen zum Aufrufen der Mitarbeiterdetails<\/span><\/b><\/p>\n Anschließend schließen Sie die Mitarbeiterverwaltung wieder und öffnen erneut die Besprechungsplanung. Dort legen Sie im Formular frmBesprechungen zwei neue Schaltflächen wie in Bild 8 an und versehen diese mit den Prozeduren aus Quellcode 5.<\/p>\n Sie können nun vom Formular frmBesprechungen das Mitarbeiterformular aus der Mitarbeiterverwaltung aufrufen und damit die Daten der Mitarbeiter einsehen, anpassen und neue Mitarbeiter anlegen.<\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n Quellcode 5<\/b><\/p>\n Die hier vorgestellten Beispiele vermitteln einen Eindruck, wie unterschiedliche Access-Datenbanken nebeneinander und doch miteinander arbeiten können.<\/p>\n Leider sind die Vorgehensweisen nicht auf die Vorbereitung der Zusammenarbeit mit anderen Datenbanken übertragbar, aber die aufgezeigten Techniken und Möglichkeiten lassen sich leicht auf andere Fälle übertragen.<\/p>\n","protected":false},"excerpt":{"rendered":" Wer will denn schon mehrere Süppchen kochen, wenn er doch eines servieren kann, das allen Beteiligten schmeckt. Letzteres ist leider in den meisten Unternehmen nicht möglich, da es in vielen Bereichen keine konsistenten Datenbestände gibt. Das fängt damit an, dass jeder Mitarbeiter sein persönliches Adressbuch in Outlook pflegt, anstatt auf die Groupware-Funktionen dieser Software zuzugreifen, die allen Mitarbeitern einen einheitlichen, aktuellen Adressbestand zur Verfügung stellt. Da das nur der Anfang für eine effizientere Organisation ist und Sie es besser machen sollen, lernen Sie im vorliegenden Beitrag, wie Sie die Daten unterschiedlicher Datenbanken geschickt verknüpfen.<\/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":[66022004,662004,44000040,44000035],"tags":[],"class_list":["post-55000214","post","type-post","status-publish","format-standard","hentry","category-66022004","category-662004","category-Allgemein","category-Datenzugriff_programmieren"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic003.png\")
<\/p>\nMappen der Tabellenfelder in einer Abfrage<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic004.png\")
<\/p>\nProbleme<\/h2>\n
Public Sub FremdschluesselAnpassen()\r\n Dim db As DAO.Database\r\n Dim rstMitarbeiter As DAO.Recordset\r\n Dim intNeueID As Integer\r\n Dim strName As String\r\n Dim strVorname As String\r\n Dim strNachname As String\r\n Dim posKomma As Integer\r\n Set db = CurrentDb\r\n Set rstMitarbeiter = db.OpenRecordset(\"tblMitarbeiterAlt\", dbOpenDynaset)\r\n Do While Not rstMitarbeiter.EOF\r\n strName = rstMitarbeiter!Mitarbeitername\r\n posKomma = InStr(1, strName, \",\")\r\n strVorname = Trim(Mid(strName, 1, posKomma - 1))\r\n strNachname = Trim(Mid(strName, posKomma + 1))\r\n intNeueID = DLookup(\"MitarbeiterID\", \"tblMitarbeiterVerknuepft\", _ \"[Nachname] = ''\" & strNachname & \"'' AND [Vorname] = ''\" & strVorname & \"''\")\r\n db.Execute \"INSERT INTO tblBesprechungsteilnehmerTemp(BesprechungID, \" _ & \"MitarbeiterID, BesprechungsteilnehmerfunktionID) \" _ & \"SELECT BesprechungID, \" & intNeueID & \" AS MitarbeiterID, \" _ & \"BesprechungsteilnehmerfunktionID FROM tblBesprechungsteilnehmer \" _ & \"WHERE MitarbeiterID = \" & rstMitarbeiter!MitarbeiterID\r\n rstMitarbeiter.MoveNext\r\n Loop\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic006.png\")
<\/p>\nImportieren von Formularen aus anderen Anwendungen<\/h2>\n
Nachteile<\/h3>\n
„Verknüpfung“ mit Formularen aus anderen Anwendungen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic007.png\")
<\/p>\nDoCmd.OpenForm \"frmMitarbeiterDetail\"<\/pre>\n
frmMitarbeiterDetail_Open 1<\/pre>\n
Hinweis<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{35920795-BCEA-41BE-B130-2F403E4500F3}\/pic008.png\")
<\/p>\nPublic Function frmMitarbeiterDetail_Open(MitarbeiterID As Integer)\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", WhereCondition:=\"MitarbeiterID = \" _ & MitarbeiterID\r\nEnd Function<\/pre>\n
Public Function frmMitarbeiterDetail_Edit(MitarbeiterID As Integer)\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", WindowMode:=acDialog, _ WhereCondition:=\"[MitarbeiterID] = \" & MitarbeiterID, DataMode:=acFormEdit\r\nEnd Function\r\nPublic Function frmMitarbeiterDetail_New()\r\n DoCmd.OpenForm \"frmMitarbeiterDetail\", WindowMode:=acDialog, DataMode:=acFormAdd\r\nEnd Function<\/pre>\n
Private Sub cmdMitarbeiterAnzeigen_Click()\r\n frmMitarbeiterDetail_Edit _ Me.frmBesprechungen_Besprechungsteilnehmer.Form!MitarbeiterID\r\n Me.frmBesprechungen_Besprechungsteilnehmer.Requery\r\nEnd Sub\r\nPrivate Sub cmdNeuerMitarbeiter_Click()\r\n frmMitarbeiterDetail_New\r\n Me.frmBesprechungen_Besprechungsteilnehmer.Requery\r\nEnd Sub<\/pre>\n