<\/p>\n
Im Beitrag „Dynamische Standardwerte“ haben wir uns angesehen, wie Sie bestimmte Werte als Standardwerte für neue Datensätze nutzen können. Dabei haben wir immer die zuletzt angegebenen Werte in einer Tabelle gespeichert und diese beim Anlegen eines neuen Datensatzes als Standardwerte vorgegeben. Etwas mehr Flexibilität erhalten Sie noch, wenn Sie selbst festlegen können, welche Daten als Standardwerte für folgende Datensätze genutzt werden sollen. Sprich: Uns fehlt noch die Möglichkeit, einen Wert eines beliebigen Datensatzes als Standardwerts zu nutzen. Außerdem wollen wir noch komplette Datensätze als Vorlage für neue Datensätze nutzen können. Wie dies gelingt, erfahren Sie im vorliegenden Beitrag.<\/b><\/p>\nKompletten Datensatz als Vorlage speichern<\/h2>\n
Im Beitrag Dynamische Standardwerte <\/b>(www.access-im-unternehmen.de\/1052<\/b>) haben wir ein Formular mit einer Funktion ausgestattet, die immer die Daten des zuletzt geänderten oder neu angelegten Datensatzes als Standardwerte zu speichern (siehe auch das Formular frmArtikel_Standardwerttabelle <\/b>in der Beispieldatenbank).<\/p>\n
Nun wollen wir in einem weiteren Formular zeigen, wie Sie es dem Benutzer überlassen können, den Datensatz festzulegen, dessen Werte als Standardwerte gespeichert werden sollen. Dazu fügen wir einer Kopie des Formulars frmArtikel_Standardwerttabelle<\/b>, das wir hier unter dem Namen frmArtikel_Standarddatensatz <\/b>gespeichert haben, eine Schaltfläche namens cmdDatensatzAlsStandard<\/b> mit der Beschriftung wie in Bild 1 hinzu.<\/p>\n
![\"Schaltfläche](\"..\/fileadmin\/_temp_\/2016_06\/pic_1060_001.png\")
<\/p>\n
Bild 1: Schaltfläche zum Speichern des Datensatzes als Standard<\/span><\/b><\/p>\n Dieser Schaltfläche hinterlegen wir für die Ereigniseigenschaft Beim Klicken <\/b>die Ereignisprozedur aus Listing 1. Diese Prozedur ruft für jedes Steuerelement, dessen Standardwert wir speichern möchten (also alle außer dem Primärschlüsselfeld), je einmal die Prozedur StandardwertSpeichern <\/b>auf, die wir im oben genannten Artikel vorgestellt haben. Dabei übergibt sie einen Verweis auf das aufrufende Formular, den Namen des Steuerelements sowie einen Verweis auf den aktuellen Inhalt des Steuerelements an die Prozedur.<\/p>\n Listing 1: Diese Prozedur wird beim Anklicken der Schaltfläche Datensatz als Standard ausgelöst.<\/span><\/b><\/p>\n Wenn Sie nun auf die Schaltfläche klicken, werden die Daten des aktuellen Datensatzes in der Tabelle tblStandardwerte <\/b>gespeichert (s. Bild 2). <\/p>\n Bild 2: Kompletter gespeicherter Datensatz in der Tabelle tblStandardwerte<\/span><\/b><\/p>\n Nun benötigen wir noch einen Mechanismus, der diesen Datensatz beim Anzeigen eines neuen Datensatzes automatisch als Standardwert vorgibt. Dazu brauchen wir das Rad nicht neu zu erfinden – die entsprechenden Ereignisprozeduren werden durch die Ereignisse Beim Anzeigen <\/b>und Beim Entladen <\/b>des Formulars ausgelöst und wurden bereits im oben genannten Beitrag vorgestellt. Die Prozedur Form_Current <\/b>ruft im Falle eines neuen Datensatzes die Prozedur StandardwerteSetzen <\/b>auf und übergibt eine Referenz auf das aktuelle Formular. Die Prozedur Form_Unload <\/b>wird beim Entladen des Formulars ausgelöst und führt ihre Anweisungen ebenfalls nur aus, wenn aktuell ein neuer Datensatz angezeigt wird. Sie fragt dann, ob der neu angelegte Datensatz, der bis dahin noch nicht bearbeitet wurde, gespeichert oder verworfen werden soll. Dies nur zur Sicherheit, falls der Benutzer glaubt, der ausschließlich mit Standardwerten (und somit noch nicht in der Tabelle gespeicherte) gefüllte Datensatz würde automatisch gespeichert.<\/p>\n Bislang ist es noch etwas mühselig, immer alle als Standardwert zu verwendenden Felder wie in den beiden Beispielen des oben genannten Beitrags entweder per Code einzeln zu speichern oder diese zuerst mit einer Marke zu versehen. Zumal man ja vielleicht ohnehin meist eher alle Felder außer dem Primärschlüsselfeld als Standardwerte vorgeben möchte.<\/p>\n Also haben wir noch ein weiteres Formular namens frmArtikel_StandardwertePerSchleife <\/b>angelegt, in dem wir beim Anklicken der Schaltfläche cmdDatensatzAlsStandard <\/b>eine Prozedur aufrufen, die automatisch alle Steuerelemente durchläuft und für alle einen Standardwert in der Tabelle tblStandardwerte <\/b>hinterlegt, die nicht Primärschlüsselwert der zugrunde liegenden Datenherkunft sind.<\/p>\n <\/p>\n Hier legen wir für die Ereignisprozedur, die durch das Anklicken der Schaltfläche cmdDatensatzAlsStandard <\/b>ausgelöst wird, die folgende Anweisung an:<\/p>\n Die dort aufgerufene Prozedur StandardwerteSpeichernAusserPK<\/b> finden Sie in Listing 2. Die Prozedur erwartet wieder einen Verweis auf das zu untersuchende Formular als Parameter. Die Prozedur speichert einen Verweis auf das in der Recordset<\/b>-Eigenschaft des Formulars enthaltene Objekt in der Variablen rst<\/b>. Dann durchläuft es alle Steuerelemente der Controls<\/b>-Auflistung des Formulars und schreibt das aktuelle Steuerelement jeweils in die Variable ctl<\/b>. Nun fügt sie der Variablen strControlsource <\/b>eine leere Zeichenkette hinzu. Warum das Weil die Prozedur nachfolgend versucht, diese mit dem Inhalt der Eigenschaft ControlSource <\/b>des aktuellen Steuerelements aus ctl <\/b>zu füllen. Warum dies nur ein Versuch ist Weil wir ja alle Steuerelemente durchlaufen, also beispielsweise auch Bezeichnungsfelder oder Schaltflächen, die ja üblicherweise nicht nur keinen Steuerelementinhalt haben, sondern denen auch die entsprechende Eigenschaft fehlt. Und wenn wir auf die Eigenschaft ControlSource <\/b>beziehungsweise Steuerelement <\/b>zugreifen und diese nicht vorhanden ist, löst dies einen Fehler aus.<\/p>\n Listing 2: Speichern aller Standardwerte der Datenherkunft außer für den Primärschlüsselwert<\/span><\/b><\/p>\n Um zu verhindern, dass dies eine Fehlermeldung hervorruft, deaktivieren wir die eingebaute Fehlerbehandlung von Access vorher mit der Anweisung On Error Resume Next<\/b>. Dann versuchen wir, den Inhalt von ctl.ControlSource <\/b>in strControlsource <\/b>zu schreiben. Tritt hierbei kein Fehler auf (den wir ja nicht bemerken würden), enthält strControlsource <\/b>anschließend den Namen des gebundenen Feldes des aktuellen Steuerelements. Damit können wir nun weiterarbeiten. Hat die Länge von strControlSource <\/b>den Wert 0<\/b>, brauchen wir das Steuerelement nicht weiter zu untersuchen. Anderenfalls steht eine weitere Aktion an, für die wir die Fehlerbehandlung deaktivieren müssen: Wir wollen das Feld der Datenherkunft, dessen Feldname in der Eigenschaft ControlSource <\/b>benannt wurde, mit der Field<\/b>-Variablen fld <\/b>referenzieren. Dummerweise kann auch dies zu einem Fehler führen, und zwar dann, wenn die Eigenschaft Steuerelementinhalt <\/b>keinen Feldnamen, sondern einen berechneten Ausdruck enthält (wie etwa =Datum() <\/b>oder auch einen Ausdruck, der auf mehreren Feldern basiert). Auch diesem Fall beugen wir mit der vorherigen Leerung und der Deaktivierung der eingebauten Fehlerbehandlung vor. Erst dann füllen wir die Variable fld <\/b>mit dem Verweis auf das Feld des als Datenherkunft verwendeten Recordsets, das den Namen aus strControlsource <\/b>aufweist. Ist kein Feld dieses Namens im Recordset enthalten, bleibt fld <\/b>leer. In diesem Fall läuft die folgende If…Then<\/b>-Bedingung ins Leere und es geht mit dem folgenden Steuerelement weiter. Anderenfalls erfolgt der Aufruf der Funktion IstFeldPrimaerschluesselfeld<\/b>, die prüft, ob es sich bei dem Feld um das Primärschlüsselfeld handelt (siehe weiter unten). Dieses wollen wir auf keinen Fall mit einem Standardwert aus einem bestehenden Datensatz bestücken, da der Inhalt des Primärschlüsselfeldes ja immer eindeutig sein muss. Erst wenn wir herausgefunden haben, dass es sich nicht um ein Primärschlüsselfeld handelt, geht es weiter: Dann prüft die Prozedur, welcher Steuerelementtyp vorliegt, und formatiert den Wert entsprechend für die Prozedur StandardwertSpeichern<\/b> vor, die wie ja bereits im oben erwähnten Beitrag beschrieben haben.<\/p>\n Auf diese Weise durchläuft die Prozedur alle Steuerelemente des Formulars und trägt für alle an Felder der Datenherkunft gebundenen Elemente einen entsprechenden Standardwert in die Tabelle tblStandardwerte <\/b>ein.<\/p>\n Dieser Frage gehen wir in der Funktion IstFeldPrimaerschluesselfeld <\/b>nach (s. Listing 3). Diese trägt zuerst den Namen der Tabelle, zu welcher das Feld gehört und das über die Eigenschaft SourceTable <\/b>ermittelt wird, in die Variable strTable <\/b>ein. Dann erstellt sie ein TableDef<\/b>-Objekt für die Tabelle dieses Namens. Sie durchläuft alle Elemente der Indexes<\/b>-Auflistung, also alle Indizes der betroffenen Tabelle, in einer For Each<\/b>-Schleife. Darin prüft sie mit der Eigenschaft Primary <\/b>des in der Variablen idx <\/b>gespeicherten Indexes, ob es sich um einen Primärschlüssel handelt. Falls ja, folgt eine weitere For Each<\/b>-Schleife über alle Felder des Indexes. Ein Index wie ein Primärschlüssel kann ja auch mehrere Felder umfassen. Für alle Felder des Indexes prüft die Funktion dann, ob der Name des Feldes mit dem Namen des zu untersuchenden Feldes übereinstimmt. Ist dies der Fall, stellt die Funktion den Rückgabewert auf True <\/b>ein und verlässt die For Each<\/b>-Schleife – schließlich hat sie die gewünschte Information ja gefunden.<\/p>\nPrivate Sub <\/span>cmdDatensatzAlsStandard_Click()\r\n StandardwertSpeichern Me.Name, \"txtArtikelname\", Nz(Me!txtArtikelname)\r\n StandardwertSpeichern Me.Name, \"cboKategorieID\", Nz(Me!cboKategorieID)\r\n StandardwertSpeichern Me.Name, \"cboLieferantID\", Nz(Me!cboLieferantID)\r\n StandardwertSpeichern Me.Name, \"txtLiefereinheit\", Nz(Me!txtLiefereinheit)\r\n StandardwertSpeichern Me.Name, \"txtEinzelpreis\", Nz(Me!txtEinzelpreis)\r\n StandardwertSpeichern Me.Name, \"txtLagerbestand\", Nz(Me!txtLagerbestand)\r\n StandardwertSpeichern Me.Name, \"txtBestellteEinheiten\", Nz(Me!txtBestellteEinheiten)\r\n StandardwertSpeichern Me.Name, \"txtMindestbestand\", Nz(Me!txtMindestbestand)\r\n StandardwertSpeichern Me.Name, \"chkAuslaufartikel\", Nz(Me!chkAuslaufartikel)\r\n StandardwertSpeichern Me.Name, \"txtAufgenommenAm\", Nz(Me!txtAufgenommenAm)\r\nEnd Sub<\/span><\/pre>\n![\"Kompletter](\"..\/fileadmin\/_temp_\/2016_06\/pic_1060_002.png\")
<\/p>\nStandardwerte per Schleife<\/h2>\n
Private Sub <\/span>cmdDatensatzAlsStandard_Click()\r\n StandardwerteSpeichernAusserPK Me\r\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>StandardwerteSpeichernAusserPK(frm As <\/span>Form)\r\n Dim <\/span>ctl As <\/span>Control\r\n Dim <\/span>strControlsource As String<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>fld As <\/span>DAO.Field\r\n Dim <\/span>strValue As String<\/span>\r\n Set<\/span> rst = frm.Recordset\r\n For Each ctl In frm.Controls\r\n strControlsource = \"\"\r\n On Error Resume Next<\/span>\r\n strControlsource = ctl.ControlSource\r\n On Error GoTo<\/span> 0\r\n If <\/span>Not<\/span> Len<\/span>(strControlsource) = 0 Then<\/span>\r\n Set<\/span> fld = Nothing\r\n On Error Resume Next<\/span>\r\n Set<\/span> fld = rst.Fields(strControlsource)\r\n On Error GoTo<\/span> 0\r\n If <\/span>Not<\/span> fld Is Nothing Then<\/span>\r\n If <\/span>Not<\/span> IstFeldPrimaerschluessel(fld) Then<\/span>\r\n Select Case fld.Type\r\n Case <\/span>dbText, dbMemo\r\n strValue = Nz(ctl.Value)\r\n Case <\/span>dbDate\r\n strValue = ISODatum(ctl.Value)\r\n Case <\/span>dbDouble, dbSingle, dbDecimal, dbCurrency\r\n strValue = Replace<\/span>(ctl.Value, \",\", \".\")\r\n Case Else<\/span>\r\n strValue = Nz(ctl.Value)\r\n End Select<\/span>\r\n StandardwertSpeichern frm.Name, ctl.Name, strValue\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> ctl\r\nEnd Sub<\/span><\/pre>\nIst das Feld ein Primärschlüsselfeld<\/h2>\n
Public Function <\/span>IstFeldPrimaerschluessel(fld As <\/span>DAO.Field) As Boolean<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>tdf As <\/span>DAO.TableDef\r\n Dim <\/span>idx As <\/span>DAO.Index\r\n Dim <\/span>fldIndex As <\/span>DAO.Field\r\n Dim <\/span>strTable As String<\/span>\r\n Set<\/span> db = CurrentDb\r\n strTable = fld.SourceTable\r\n Set<\/span> tdf = db.TableDefs(strTable)\r\n For Each idx In tdf.Indexes\r\n If <\/span>idx.Primary Then<\/span>\r\n For Each fldIndex In idx.Fields\r\n If <\/span>idx.Fields(0).Name = fld.Name Then<\/span>\r\n IstFeldPrimaerschluessel = True<\/span>\r\n Exit For<\/span>\r\n End If<\/span>\r\n Next<\/span> fldIndex\r\n End If<\/span>\r\n Next<\/span> idx\r\nEnd Function<\/span><\/pre>\n