<\/p>\n
Auch wenn Software-Entwicklung mit Access normalerweise eine rundum beglückende glücklich machende Beschäftigung ist, so gibt es doch Tätigkeiten, die man nur lustlos ausführt. Der Autor dieser Zeilen etwa ist immer etwas ungehalten, wenn er Beispieldaten in eine oder mehrere Tabellen eingeben muss. Ist das nicht die langweiligste Arbeit überhaupt Im krassen Gegensatz dazu steht die Aufgabe, einen Assistenten zu programmieren, der einem diese lästige Arbeit abnimmt! Einfach die Zieltabelle auswählen, für jedes Feld die Art der Testdaten auswählen und loslegen – lesen Sie hier, wie das funktioniert!<\/b><\/p>\n
Herr Fritz Mustermann, Teststraße 1, 12345 Beispielhausen, Deutschland. Telefon 0123\/456789, Telefax 0123\/987654. Frau Martha Müller … halt! So geht es nicht weiter. Selbst wenn der Kopf vom Programmieren raucht – Testdaten eingeben ist keine willkommene Abwechslung.<\/p>\n
Stattdessen führen wir doch lieber die folgenden Schritte durch:<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic001.png\")
<\/b><\/p>\n
Bild 1: Der Beispieldaten-Assistent im Einsatz<\/span><\/b><\/p>\n Beispieldaten-Arten<\/b><\/p>\n Wie bereits angedeutet, gibt es verschiedene Arten von Beispieldaten. Nachfolgend stellen wir diese vor und erläutern die Parameter, die Sie zum Anlegen dieser Daten festlegen müssen.<\/p>\n Beispiel zum Anlegen von Beispieldaten<\/b><\/p>\n Schauen wir uns an, wie der Beispieldaten-Assistent bei einer einfachen Adressentabelle arbeitet. Nachdem Sie die Datenbankdatei mit der zu füllenden Tabelle geöffnet und den Beispieldaten-Assistenten gestartet haben, wählen Sie mit dem Kombinationsfeld im oberen Bereich zunächst die Zieltabelle aus, in diesem Fall tblAdressen<\/b>. Dann tragen Sie die Anzahl der gewünschten Datensätze ein, zum Beispiel 100. Schließlich geht es an die Festlegung der Art der einzufügenden Daten.<\/p>\n Hier nimmt Ihnen der Beispieldaten-Assistent eine Menge Arbeit ab: Er scannt nämlich die Feldnamen und vergleicht die Werte mit einer beliebig erweiterbaren Mapping-Tabelle, die gleich den richtigen Datentyp für das Hinzufügen der Beispieldaten auswählt.<\/p>\n Für unsere Tabelle tblAdressen <\/b>bleibt somit nur noch wenig zu tun (s. Bild 2): Alle Felder wurden gleich mit den richtigen Datentypen versehen. Außerdem hat der Assistent für die Felder, für die Standardwerte vorzugeben sind, passende Werte eingetragen. Dies betrifft beispielsweise das Feld AnredeID<\/b>. Hier hat der Assistent erkannt, dass womöglich eine Tabelle hinter dem Kombinationsfeld zur Auswahl der Anrede steckt, und gleich die richtigen Parameter voreingestellt: Parameter1 <\/b>erhält mit tblAnreden <\/b>die Tabelle, aus der die Anreden stammen, Parameter2 <\/b>den Namen des Primärschlüsselfeldes dieser Tabelle und Parameter3 <\/b>das Feld, das schließlich die verwendeten Anreden enthält. Ein weiteres Beispiel ist das Feld Straße<\/b>, in dem die Felder Parameter1 <\/b>und Parameter2 <\/b>mit 1 <\/b>und 100 <\/b>den Bereich der Hausnummern enthalten. Auch bei den Feldern Telefon <\/b>und Telefax <\/b>wurden automatisch die Parameter für den Datentyp Telefon <\/b>eingetragen, nämlich die Anzahl der Stellen der Telefonnummer hinter der Vorwahl.<\/p>\n Bild 2: Die Datenarten werden je nach Feldname gleich automatisch hinzugefügt.<\/span><\/b><\/p>\n Ein Klick auf die Schaltfläche Beispieldateien schreiben <\/b>startet den eigentlichen Vorgang, wobei die Anzahl der geschriebenen Datensätze neben der Schaltfläche angezeigt wird. Das Ergebnis beeindruckt: Schnell landen 100 sehr realistisch wirkende Beispieldatensätze in der Tabelle tblAdressen<\/b> (s. Bild 3).<\/p>\n Bild 3: Die Adressen-Tabelle mit frisch angelegten Beispieldaten<\/span><\/b><\/p>\n <\/p>\n Wenn Sie schnell Daten in mehreren Tabellen anlegen möchten, erledigen Sie dies hintereinander. Nehmen wir an, Sie möchten die Tabellen des Datenmodells aus Bild 4 mit Daten füllen. Dann brauchen Sie zunächst eine Reihenfolge, die sich zum größten Teil danach richtet, wie die Tabellen miteinander verknüpft sind. Wir müssen natürlich erst die Tabellen mit Daten füllen, auf die von anderen Tabellen aus per Fremdschlüsselfeld verwiesen wird. Der einfachste Fall ist die Tabelle tblAnreden<\/b>: Sie wird von zwei Tabellen referenziert und verweist auf keine andere Tabelle. Sie ist aber auch kein Fall für den Beispieldaten-Assistenten, denn die beiden Datensätze mit den Werten Herr <\/b>und Frau <\/b>für das Feld Anrede <\/b>füllen wir schnell von Hand.<\/p>\n Bild 4: Die Tabellen dieses Datenmodells sollen mit dem Beispieldaten-Assistenten gefüllt werden.<\/span><\/b><\/p>\n Alle übrigen Tabellen verweisen auf mindestens eine andere Tabelle. Die beiden Tabellen tblKunden <\/b>und tblMitarbeiter <\/b>besitzen jedoch nur Fremdschlüsselfelder zur Tabelle tblAnreden<\/b>, die ja schon gefüllt ist. Also können wir diese zuerst mit Beispieldaten befüllen. Danach kommt die Tabelle tblProjekte <\/b>dran, die wiederum auf tblKunden <\/b>verweist – und diese Tabelle wird ja gleich zu Beginn gefüllt. Die letzte zu füllende Tabelle ist die Tabelle tblMitarbeiterProjekte<\/b>, die festlegt, welcher Mitarbeiter in welchem Projektteam sitzt.<\/p>\n Beginnen wir also mit der Kundentabelle. Die Parameter für diese Tabelle zeigt Bild 5. Für das Feld Kunde <\/b>verwenden wir den Datentyp Firma<\/b>, der praktisch identisch ist. Später erfahren Sie, wie Sie das Mapping von Feldnamen erweitern können, sodass etwa ein Eintrag wie Kunde <\/b>direkt auf den Datentyp Firma <\/b>gemappt wird. Die meisten der übrigen Felder werden automatisch erkannt. Sie müssen lediglich noch das Feld KundeSeit <\/b>und Aktiv <\/b>einstellen. Ersteres soll mit Datumsangaben gefüllt werden, wobei der Eintritt frühestens am 1. Januar 2003 und spätestens am 30. Juni 2010 erfolgt sein soll. Das Feld Aktiv <\/b>soll mit Ja\/Nein<\/b>-Werten gefüllt werden, wobei 60% der Datensätze den Wert Ja <\/b>annehmen sollen.<\/p>\n Bild 5: Einstellungen zum Füllen einer Kundentabelle<\/span><\/b><\/p>\n Die Tabelle tblMitarbeiter <\/b>birgt ebenfalls keine Überraschungen, was die zu füllenden Felder betrifft (s. Bild 7).<\/p>\n <\/p>\n Bild 6: Mitarbeiter werden auch benötigt – 20 sollten jedoch ausreichen.<\/span><\/b><\/p>\n Bild 7: Die Tabelle tblProjekte benötigt einen durchnummerierten Text und Verweise auf eine andere Tabelle.<\/span><\/b><\/p>\n Wie Bild 8 zeigt, sind unsere Bemühungen durchaus von Erfolg gekrönt: Die Tabelle tblProjekte <\/b>enthält die erwarteten Texte und ist wie gewünscht mit den Datensätzen der Tabelle tblKunden <\/b>verknüpft.<\/p>\n Bild 8: Eine per Beispieldaten-Assistent gefüllte Projekttabelle<\/span><\/b><\/p>\n Fehlt nur noch die Tabelle tblMitarbeiterProjekte<\/b>, mit der wir die Mitarbeiter den einzelnen Projekten zuteilen und so Projektteams bilden. Die Tabelle enthält lediglich zwei Fremdschlüsselfelder, was aber nicht weiter schlimm ist: Der Beispieldaten-Assistent erkennt selbstständig, dass die beiden Felder MitarbeiterID <\/b>und ProjektID <\/b>Fremdschlüsselfelder sind, und liest die entsprechenden Parameter aus. So sollen die Werte für das Feld MitarbeiterID <\/b>aus der Tabelle tblMitarbeiter <\/b>mit dem Primärschlüsselfeld MitarbeiterID <\/b>und die Werte für das Feld ProjektID <\/b>aus der Tabelle tblProjekte <\/b>mit dem Primärschlüsselfeld ProjektID <\/b>entnommen werden. Auch dies gelingt, wie Bild 9 zeigt, problemlos.<\/p>\n Bild 9: Auch das Füllen von Verknüpfungstabellen ist problemlos möglich.<\/span><\/b><\/p>\n Der Assistent enthält sogar Funktionalität, die dafür sorgt, dass Fehler beim Anlegen von Datensätzen, welche die Integrität verletzen, abgefangen werden. Die Tabelle tblMitarbeiterProjekte<\/b> enthält beispielsweise einen eindeutigen, zusammengesetzten Index für die beiden Felder MitarbeiterID <\/b>und ProjektID<\/b>. Dies führt beim Versuch, einen Mitarbeiter zweimal zum gleichen Projekt hinzuzufügen, normalerweise zu einem Fehler.<\/p>\n Der Beispieldaten-Assistent sieht darüber hinweg und legt einfach einen weiteren Datensatz an – solange, bis er ausreichend passende Kombinationen gefunden hat. Das Ergebnis können Sie in Bild 10 betrachten.<\/p>\n Bild 10: Die Tabelle tblMitarbeiterProjekte mit frischen Daten<\/span><\/b><\/p>\n Mapping bearbeiten<\/b><\/p>\n Das Hauptformular des Beispieldaten-Assistenten besitzt eine Schaltfläche mit der Beschriftung Mapping bearbeiten<\/b>, mit der Sie den Dialog aus Bild 11 öffnen können.<\/p>\n Bild 11: In diesem Dialog können Sie festlegen, welche Datenarten die Beispieldaten für Felder mit bestimmten Namen aufweisen sollen.<\/span><\/b><\/p>\n Dieser Dialog bietet eine Liste aller vordefinierten Mappings. Ein Mapping bewirkt Folgendes: Wenn Sie im Beispieldaten-Assistenten die zu füllende Tabelle auswählen, analysiert der Assistent zunächst die Feldnamen aller in der Tabelle enthaltenen Felder. Wenn er auf ein Feld namens Vorname <\/b>stößt, legt er als Datenart für das Hinzufügen von Beispieldaten automatisch den Typ Vorname <\/b>fest. Gleiches gilt für alle im Dialog Datenart-Mapping <\/b>angezeigten Feldnamen: Alle besitzen eine Datenart, die automatisch beim Auswählen einer neuen Tabelle für Felder mit entsprechender Bezeichnung festgelegt wird.<\/p>\n Der Autor hat die Mappings so festgelegt, dass die meisten der in seinen Tabellen vorkommenden Feldnamen automatisch erkannt und auf eine der Datenarten gemappt werden können. Möglicherweise verwenden Sie für das eine oder andere Feld standardmäßig eine andere Bezeichnung, was aber kein Problem ist: Sie können die Zuweisung der Datenarten problemlos anpassen, indem Sie entweder zusätzliche Mappings anlegen oder bestehende anpassen.<\/p>\n Eine Ausnahme macht der Beispieldaten-Assistent übrigens für Fremdschlüsselfelder: Diese werden immer mit der Datenart Fremdschlüsselfeld\/Lookuptabelle <\/b>verknüpft, außerdem stellt der Beispieldaten-Assistent automatisch die ersten beiden Parameter auf die verknüpfte Tabelle und den Namen ihres Primärschlüsselfeldes ein.<\/p>\n Wie funktioniert der Beispieldaten-Assistent<\/b><\/p>\n Der Beispieldaten-Assistent ist als Menü-Add-In ausgelegt, das heißt, dass Sie ihn über den Menüpunkt Extras|Add-Ins|Add-In-Manager <\/b>(Access 2003 und älter) beziehungsweise den Ribbon-Eintrag Datenbanktools|Add-Ins|Add-In-Manager <\/b>(Access 2007 und jünger) installieren müssen. Dort erscheint der Dialog Add-In-Manager<\/b>, mit dem Sie die Datei Beispieldaten-Assistent.mda <\/b>aus dem Verzeichnis auswählen, in dem Sie diese gespeichert haben, und diesen so installieren (s. Bild 12).<\/p>\n Bild 12: Installieren des Beispieldaten-Assistenten<\/span><\/b><\/p>\n Die Add-In-Datei Beispieldaten-Assistent.mda <\/b>enthält eine Tabelle namens USysRegInfo<\/b>. Diese liefert die Informationen, die beim Installieren des Add-Ins in die Windows-Registry eingetragen werden. Access liest diese Informationen beim Start aus und entdeckt, dass es in der Liste der Menü-Add-Ins einen Eintrag namens Beispieldaten-Assistent <\/b>einfügen soll, der beim Anklicken unsere Add-In-Datei startet. Einzelheiten zum Erstellen solcher Add-Ins erhalten Sie im Beitrag Access-Add-Ins <\/b>(www.access-im-unternehmen.de\/643<\/b>).<\/p>\n Funktionsweise des Hauptformulars<\/b><\/p>\n Das Hauptformular heißt frmBeispieldaten <\/b>und sieht in der Entwurfsansicht wie in Bild 13 aus.<\/p>\n Bild 13: Das Hauptformular des Assistenten in der Entwurfsansicht<\/span><\/b><\/p>\n Die Auswahl der mit Beispieldaten zu füllenden Tabelle erfolgt über ein Kombinationsfeld namens cboTabellen<\/b>. Dieses wird gleich beim Öffnen des Formulars mit den Namen der Tabellen der betroffenen Datenbankdatei gefüllt. Dies erledigt die folgende Prozedur, die durch das Ereignis Beim Öffnen <\/b>des Formulars ausgelöst wird:<\/p>\n Die Prozedur verwendet die RemoveItem<\/b>– und die Add<\/b>-Methoden des Kombinationsfeldes, um alle Tabellen anzuzeigen, deren Name nicht mit MSys… <\/b>oder USys… <\/b>beginnt – dies sind Systemtabellen, die sicher nicht mit Beispieldaten gefüllt werden sollen. Als erster Eintrag wird jedoch der Wert <Auswählen> <\/b>hinzugefügt. Damit dieser gleich beim Öffnen des Formulars im Kombinationsfeld erscheint, stellt die letzte Anweisung der Prozedur den Wert des Kombinationsfeldes auf den Wert des ersten Eintrags, hier <Auswählen><\/b>, ein.<\/p>\n Auswahl einer Tabelle<\/b><\/p>\n Die Auswahl einer Tabelle löst die Prozedur aus Listing 1<\/a> aus. Sie verwendet zwei Objektvariablen des Typs Database<\/b>, um jeweils einen Verweis auf die geöffnete und einen auf die Add-In-Datenbank zu speichern. Der Hintergrund ist, dass das Add-In sowohl auf die Tabellen des Frontends zugreifen muss (um die Beispieldaten zu schreiben) als auch auf die Daten der Add-In-Datenbank (etwa um Beispieldaten aus den dafür vorgesehenen Tabellen auszulesen).<\/p>\n Listing 1: Füllen des Unterformulars mit den Feldern der ausgewählten Tabelle und den entsprechenden Datenarten und Parametern<\/p>\n Den Verweis auf die aktuelle Datenbank liefert die Funktion CurrentDB<\/b>, den auf die Add-In-Datenbank die Funktion CodeDB<\/b>.<\/p>\n Die Prozedur speichert den Namen der Tabelle in einer Variablen und löscht dann zunächst alle Einträge der Tabelle tblTabellenfelder<\/b>. Diese Tabelle speichert die Konfiguration zum Anlegen der Beispieldaten in der ausgewählten Tabelle (s. Bild 14) und dient auch als Datenherkunft des Unterformulars frmTabellenfelder<\/b>, mit dem der Benutzer die Konfiguration editieren kann.<\/p>\n Bild 14: Diese Tabelle der Add-In-Datenbank speichert die Konfiguration für das anstehende Einfügen der Beispieldaten.<\/span><\/b><\/p>\n Anschließend erzeugt die Prozedur ein TableDef<\/b>-Objekt auf Basis dieser Tabelle und durchläuft ihre Felder, wobei das aktuelle Feld jeweils mit der Field<\/b>-Variablen fld <\/b>referenziert wird.<\/p>\n Hier kommt das bereits erwähnte Mapping von Feldern mit bestimmten Feldnamen auf die für das Anlegen vorgesehenen Datenarten ins Spiel: Die Funktion CLookup <\/b>durchsucht die Tabelle tblDatenartMapping <\/b>und liefert eine DatenartID <\/b>zurück, wenn sie einen Eintrag gefunden hat, der den Feldnamen des aktuellen Feldes enthält.<\/p>\n Warum CLookup <\/b>und nicht DLookup<\/b> Nun: DLookup <\/b>greift immer auf die Daten der aktuell geöffneten Datenbank zu, aber nicht auf die in der Add-In-Datenbank gespeicherten Tabellen. Daher haben wir eine kleine Ersatzfunktion geschrieben, die genau so wie DLookup <\/b>funktioniert, aber die Tabellen der Add-In-Datenbank verwendet. Sie finden diese Funktion im Modul mdlTools <\/b>der Add-In-Datenbank. Desweiteren lesen drei Aufrufe von CLookup <\/b>eventuell voreingestellte Parameter ein und schreiben diese in entsprechende Variablen.<\/p>\n Falls der Benutzer eine Beschriftung für ein Tabellenfeld eingegeben hat, wird diese statt des Feldnamens verwendet.<\/p>\n Danach erfolgt eine Untersuchung der Anzeige des jeweiligen Feldinhalts: Hier kommen Textfelder, Kontrollkästchen und Kombinationsfelder zum Einsatz. Falls es sich um ein Kombinationsfeld handelt, prüft die Prozedur, ob dieses Daten aus einer verknüpften Tabelle anzeigt. Falls ja, erhält das aktuelle Feld als Datenart den Eintrag Fremdschlüsselfeld\/Lookuptabelle<\/b> und die Parameter werden auf den Namen der verknüpften Tabelle sowie ihres Primärschlüsselfeldes eingestellt.<\/p>\n Felder, die zuvor über die Mapping-Tabelle für die Datenart AnredeID <\/b>erkannt wurden, erhalten ebenfalls eine Sonderbehandlung, da auch deren Inhalt meist aus einer verknüpften Tabelle stammt.<\/p>\n Schließlich wird für jedes Feld ein Datensatz in die Tabelle tblTabellenfelder <\/b>der Add-In-Datenbank geschrieben. Nach dem Durchlaufen aller Felder der Tabelle aktualisiert die Prozedur schließlich das Unterformular frmTabellenfelder<\/b>.<\/p>\n Schreiben der Beispieldaten<\/b><\/p>\n Wenn der Benutzer die über das Mapping ermittelte Konfiguration geprüft und gegebenenfalls korrigiert hat, betätigt er die Schaltfläche Beispieldaten schreiben<\/b>.<\/p>\n\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic002.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic003.png\")
<\/p>\nBeispieldaten mit Lookup-Tabellen<\/h3>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic006.png\")
<\/p>\n![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic007.png\")
<\/p>\n![\"pic008.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic008.png\")
\n<\/p>\n![\"pic009.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic009.png\")
<\/p>\n![\"pic010.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic010.png\")
<\/p>\n![\"pic011.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic011.png\")
<\/p>\n![\"pic012.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic012.png\")
<\/p>\n![\"pic013.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic013.png\")
<\/p>\nPrivate Sub Form_Open(Cancel As Integer)\r\n Dim objTable As Object\r\n Dim strTable As String\r\n Do While Me!cboTabellen.ListCount > 0\r\n Me!cboTabellen.RemoveItem 0\r\n Loop\r\n Me!cboTabellen.AddItem "<Auswählen>"\r\n For Each objTable In CurrentData.AllTables\r\n strTable = objTable.Name\r\n If Not strTable Like "MSys*" And Not strTable Like "USys*" Then\r\n Me!cboTabellen.AddItem strTable\r\n End If\r\n Next objTable\r\n Me!cboTabellen = Me!cboTabellen.ItemData(0)\r\nEnd Sub<\/pre>\n
Private Sub cboTabellen_AfterUpdate()\r\n ''Deklaration aus Platzgründen nicht abgedruckt\r\n Set db = CurrentDb\r\n Set dbc = CodeDb\r\n If Me!cboTabellen = "<Auswählen>" Then\r\n Exit Sub\r\n End If\r\n strTable = Me!cboTabellen\r\n dbc.Execute "DELETE FROM tblTabellenfelder", dbFailOnError\r\n Me!frmTabellenfelder.Form.Requery\r\n Set tdf = db.TableDefs(strTable)\r\n For Each fld In tdf.Fields\r\n lngDatenartID = Nz(CLookup("DatenartID", "tblDatenartMapping", "Feldname = ''" & fld.Name & "''"))\r\n strParameter1 = Nz(CLookup("Parameter1", "tblDatenarten", "DatenartID = " & lngDatenartID), "")\r\n strParameter2 = Nz(CLookup("Parameter2", "tblDatenarten", "DatenartID = " & lngDatenartID), "")\r\n strParameter3 = Nz(CLookup("Parameter3", "tblDatenarten", "DatenartID = " & lngDatenartID), "")\r\n On Error Resume Next\r\n strDisplayControl = fld.Properties("DisplayControl")\r\n If Err.Number = 0 Then\r\n Select Case strDisplayControl\r\n Case 109 ''Textbox\r\n Case 106 ''Checkbox\r\n Case 111 ''ComboBox\r\n If fld.Properties("RowSourceType") = "Table\/Query" Then\r\n Set rstCombo = db.OpenRecordset(fld.Properties("RowSource"), dbOpenDynaset)\r\n strParameter1 = rstCombo.Fields(0).SourceTable\r\n strParameter2 = rstCombo.Fields(fld.Properties("BoundColumn") - 1).Name\r\n If lngDatenartID = 14 Then ''AnredeID\r\n strColumnWidths = fld.Properties("ColumnWidths")\r\n For i = LBound(Split(strColumnWidths, ";")) To\r\n UBound(Split(strColumnWidths, ";"))\r\n If Split(strColumnWidths, ";")(i) > 0 Then\r\n strParameter3 = rstCombo.Fields(i).Name\r\n Exit For\r\n End If\r\n Next i\r\n Else\r\n lngDatenartID = 20\r\n End If\r\n End If\r\n Case Else\r\n Debug.Print strDisplayControl\r\n End Select\r\n Else\r\n strDisplayControl = ""\r\n End If\r\n On Error GoTo 0\r\n dbc.Execute "INSERT INTO tblTabellenfelder(Tabellenfeld, Fuellen, DatenartID, Parameter1, _\r\n Parameter2, Parameter3) VALUES(''" & fld.Name & "'', True, " & lngDatenartID & ", ''" _\r\n & strParameter1 & "'', ''" & strParameter2 & "'', ''" & strParameter3 & "'')", dbFailOnError\r\n Next fld\r\n Me!frmTabellenfelder.Form.Requery\r\nEnd Sub<\/pre>\n![\"pic014.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic014.png\")
<\/p>\n
![\"pic015.png\"](\"..\/fileadmin\/_temp_\/2010_05\/Testdatenassistent-web-images\/pic015.png\")
<\/p>\n