<\/p>\n
Im ersten Teil dieser Beitragsreihe haben wir einen Assistenten vorgestellt, mit dem Sie die Format-Eigenschaft von Feldern in Tabellen, Abfragen, Formularen und Berichten einstellen k\u00f6nnen. Diesem Assistenten f\u00fcgen wir noch eine weitere n\u00fctzliche Funktion hinzu. Dabei wollen wir die Daten, die in diesem Feld angezeigt werden, auslesen und im Formatassistenten anzeigen, damit der Benutzer das Ergebnis der Formatierung direkt anhand seiner eigenen Daten betrachten kann. Dazu ist, wenn wir auf die Daten der gerade angezeigten Tabelle zugreifen wollen, noch ein kleiner Trick n\u00f6tig, denn wir k\u00f6nnen nicht auf die Daten zugreifen, solange die Tabelle in der Entwurfsansicht ge\u00f6ffnet ist. Bei Abfragen, Formularen und Berichten ist dies etwas einfacher – aber sehen Sie selbst!<\/b><\/p>\nBeispieldaten aus dem Feld einer Tabelle oder Abfrage beziehen<\/h2>\n
Nachdem wir ein wenig mit dem Format-Assistenten experimentiert haben, fiel uns auf, dass es eigentlich keinen richtigen Spa\u00df macht, mit vorgegebenen Beispieldaten zu arbeiten beziehungsweise diese manuell anzupassen.<\/p>\n
Viel cooler w\u00e4re es doch, wenn wir die Daten direkt aus dem zu formatierenden Feld beziehen k\u00f6nnten. Also f\u00fcgen wir f\u00fcr die Auswahl der Beispieldaten noch eine Schaltfl\u00e4che hinzu, mit der wir ein weiteres Formular \u00f6ffnen k\u00f6nnen. Dieses soll alle Tabellen und Abfragen der aktuellen Datenbank zur Auswahl anbieten.<\/p>\n
Nach der Auswahl der Tabelle oder Abfrage wollen wir dann die Felder der gew\u00e4hlten Datenquelle anbieten, um aus diesen das Feld mit den zu untersuchenden Daten auszuw\u00e4hlen.<\/p>\n
Das Formular hei\u00dft frmDatenquellenUndFeldAuswaehlen <\/b>und es enth\u00e4lt zwei Kombinationsfelder namens cboTabelleOderAbfrage <\/b>und cboFeld<\/b>. Zur Sicherheit sollen die Werte des gew\u00e4hlten Feldes auch noch in einem Listenfeld namens lstWerte <\/b>angezeigt werden. Au\u00dferdem f\u00fcgen wir zwei Schaltfl\u00e4chen namens cmdOK <\/b>und cmdAbbrechen <\/b>hinzu (siehe Bild 1).<\/p>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_001.png\")
<\/p>\n
Bild 1: Formular zum Ausw\u00e4hlen der Daten, die in der Format-Vorschau angezeigt werden sollen<\/span><\/b><\/p>\n F\u00fcr diese hinterlegen wir jeweils eine Ereignisprozedur. Die Schaltfl\u00e4che cmdOK <\/b>soll das Formular ausblenden, damit wir die gew\u00e4hlten Daten von der aufrufenden Prozedur aus auswerten k\u00f6nnen:<\/p>\n Die Schaltfl\u00e4che cmdAbbrechen <\/b>soll das Formular einfach schlie\u00dfen:<\/p>\n Bevor wir uns die Funktion des Formulars frmDatenquelleUndFeldAuswaehlen <\/b>genauer anschauen, werfen wir einen Blick auf die Schaltfl\u00e4che cmdBeispielwerteEinlesen<\/b> im aufrufenden Formular frmFormatassistent<\/b>, mit der wir das Formular frmDatenquelleUndFeldAuswaehlen <\/b>\u00f6ffnen (siehe Bild 2).<\/p>\n Bild 2: \u00d6ffnen des Formulars frmDatenquelleUndFeldAktualisieren<\/span><\/b><\/p>\n Diese Prozedur hei\u00dft cmdBeispielwerteEinlesen_Click <\/b>und ist in Listing 1 zu finden. Sie schlie\u00dft zun\u00e4chst sicherheitshalber das Formular frmDatenquelleUndFeldAuswaehlen<\/b>, falls dieses noch ge\u00f6ffnet sein sollte. Der Hintergrund ist, dass nur beim erneuten \u00d6ffnen per DoCmd.Open <\/b>auch die Parameter dieser Methode angewendet werden. Das Formular frmDatenquelleUndFeldAuswaehlen <\/b>soll als modaler Dialog ge\u00f6ffnet werden. Au\u00dferdem wollen wir einige Informationen als \u00d6ffnungsargument \u00fcbergeben.<\/p>\n Listing 1: Aufruf des Formulars frmDatenquelleUndFeldAuswaehlen<\/span><\/b><\/p>\n Wann immer wir hier mehr als eine Information \u00fcbermitteln, k\u00f6nnen wir diese durch das Pipe-Zeichen (|<\/b>) getrennt \u00fcbergeben und diesen Ausdruck im aufgerufenen Formular wieder auseinandernehmen. In diesem Fall \u00fcbergeben wir den Namen des Objekts (also Tabelle, Abfrage, Formular oder Bericht), den Namen des Feldes beziehungsweise Steuerelements und den Objekttyp.<\/p>\n Diese Informationen verarbeitet das Formular direkt in der Beim \u00d6ffnen<\/b>-Ereignisprozedur – was dort geschieht, lesen Sie weiter unten. Wir schauen uns nun noch an, was nach der Eingabe der gew\u00fcnschten Daten und dem Schlie\u00dfen des Formulars frmDatenquelleUndFeldAuswaehlen <\/b>durch den Benutzer in der aufrufenden Prozedur noch geschieht. Diese pr\u00fcft, ob das Formular noch ge\u00f6ffnet ist, was nur der Fall ist, wenn der Benutzer dort die OK<\/b>-Schaltfl\u00e4che bet\u00e4tigt hat. Ist das der Fall, aktualisiert die Prozedur die Daten im Unterformular und schlie\u00dft dann das Formular frmDatenquelleUndFeldAuswaehlen<\/b>.<\/p>\n Damit kommen wir nun zur Programmierung des Formulars frmDatenquellenUndFeldAuswaehlen<\/b>.<\/p>\n F\u00fcr das F\u00fcllen der Kombinationsfelder mit den Tabellen oder Abfragen der Datenbank, von der aus wir den Assistenten aufgerufen haben, brauchen wir eine Liste der entsprechenden Elemente. Das ist insofern kompliziert, als das wir nicht einfach die Eigenschaft Datensatzherkunft <\/b>auf die Tabelle MSysObjects <\/b>einstellen k\u00f6nnen, die uns alle Tabellen und Abfragen liefern w\u00fcrde.<\/p>\n Damit w\u00fcrden wir n\u00e4mlich auf die entsprechende Tabelle der Add-In-Datenbank zugreifen und nicht auf die der Host-Datenbank. Also erstellen wir in der gleich beschriebenen Ereignisprozedur, die durch das Ereignis Beim \u00d6ffnen <\/b>des Formulars frmDatenquelleUndFeldAuswaehlen <\/b>ausgel\u00f6st wird, ein Recordset auf Basis der entsprechenden Tabelle und weisen dieses dem Kombinationsfeld \u00fcber seine Eigenschaft Recordset <\/b>zu.<\/p>\n Als Datensatzherkunft f\u00fcr das Recordset des Steuerelements cboTabelleOderAbfrage <\/b>verwenden wir die folgende Abfrage:<\/p>\n Diese ermittelt die Namen und den Typ von Tabellen aller Typen (1<\/b>, 4<\/b>, 6<\/b>) und von Abfragen (5<\/b>). Au\u00dferdem schlie\u00dft sie Systemobjekte und einige weitere Objekte aus, f\u00fcr die der Benutzer vermutlich nicht die Format<\/b>-Eigenschaft einstellen m\u00f6chte. Und die Abfrage liefert nicht nur den Objektnamen, sondern auch noch den Objekttyp des jeweiligen Datenbankobjekts.<\/p>\n Insgesamt sieht die Prozedur wie in Listing 2 aus. Die Prozedur schreibt den SQL-Ausdruck f\u00fcr den Zugriff auf die Tabelle MSysObjects <\/b>in die Variable strSQL<\/b>. Dann erstellt sie ein Recordset auf Basis dieser Abfrage und weist dieses anschlie\u00dfend der Eigenschaft Recordset <\/b>des Kombinationsfeldes cboTabelleOderAbfrage <\/b>zu.<\/p>\n Listing 2: Diese Prozedur wird beim \u00d6ffnen des Formulars frmDatenquellenUndFeldAuswaehlen aufgerufen.<\/span><\/b><\/p>\n Danach parst sie die mit dem \u00d6ffnungsargument \u00fcbergebenen Daten. Dieses sieht beispielsweise wie folgt aus:<\/p>\n Diese Daten liest die Prozedur nun durch Aufteilen mit der Split<\/b>-Funktion und anschlie\u00dfendes Abgreifen der Elemente des damit erzeugten Arrays ein und speichert sie in den Variablen strObject<\/b>, strControl <\/b>und intObjectType<\/b>.<\/p>\n Dann pr\u00fcft sie den Wert von intObjectType<\/b>. Handelt es sich um eine Tabelle oder Abfrage (acTable <\/b>oder acQuery<\/b>), weist sie dem Kombinationsfeld cboTabelleOderAbfrage den entsprechenden Eintrag zu, also den Namen der mit dem \u00d6ffnungsargument \u00fcbergebenen Tabelle oder Abfrage.<\/p>\n Dann ruft sie die Prozedur FelderAktualisieren auf, die wir gleich im Anschluss beschreiben.<\/p>\n Dem Kombinationsfeld cboFeld <\/b>weist die Prozedur den Namen des \u00fcbergebenen Feldes zu. Anschlie\u00dfend ruft die Prozedur die Routine DatenAnzeigen <\/b>auf.<\/p>\n Im Falle eines Formulars oder Berichts wird einfach das Kombinationsfeld cboTabelleOderAbfrage <\/b>aktiviert und aufgeklappt.<\/p>\n Damit die Datensatzherkunft des zweiten Kombinationsfelds cboFeld<\/b> das mit dem \u00d6ffnungsargument \u00fcbergebene Feld \u00fcberhaupt enth\u00e4lt, m\u00fcssen diese nach der Festlegen des Eintrags im Kombinationsfeld cboTabelleOderAbfrage<\/b> aktualisieren. Das erledigen wir durch den Aufruf der Prozedur FelderAktualisieren <\/b>(siehe Listing 3).<\/p>\n Listing 3: Diese Prozedur aktualisiert die im Kombinationsfeld cboFeld angezeigten Felder<\/span><\/b><\/p>\n Diese leert zun\u00e4chst die Eigenschaft RowSource <\/b>des Kombinationsfeldes cboFeld<\/b>. Dann pr\u00fcft sie, ob im Kombinationsfeld cboTabelleOderAbfrage <\/b>\u00fcberhaupt ein Objekt ausgew\u00e4hlt ist. Falls ja, pr\u00fcft die Prozedur in einer Select Case<\/b>-Bedingung, ob die zweite Spalte des Kombinationsfeldes, die zwar nicht angezeigt wird, aber \u00fcber die Datensatzherkunft den Typ der Objekte enth\u00e4lt, dem Typ einer Tabelle oder Abfrage entspricht.<\/p>\n Im Falle einer Tabelle weist die Prozedur der Variablen tdf <\/b>ein TableDefs<\/b>-Objekt auf Basis der ausgew\u00e4hlten Tabelle zu. Anschlie\u00dfend durchl\u00e4uft sie die Eintr\u00e4ge der Fields<\/b>-Auflistung des TableDef<\/b>-Objekts in einer For Each<\/b>-Schleife und f\u00fcgt die Feldnamen mit der AddItem<\/b>-Methode zum Kombinationsfeld cboFeld <\/b>hinzu.<\/p>\n Damit wir dies \u00fcberhaupt so machen k\u00f6nnen, stellen wir die Eigenschaft Herkunftstyp <\/b>des Kombinationsfeldes auf Wertliste <\/b>ein.<\/p>\n Ist der gew\u00e4hlte Eintrag hingegen eine Abfrage, erstellt die Prozedur ein QueryDef<\/b>-Objekt und weist diesem das entsprechende Element der QueryDefs<\/b>-Auflistung zu. Dann durchl\u00e4uft sie wie bei der TableDefs<\/b>-Auflistung die Felder des QueryDef<\/b>-Objekts und f\u00fcgt die Felder zum Kombinationsfeld cboFeld <\/b>hinzu.<\/p>\n Die oben vorgestellte Prozedur FelderAktualisieren<\/b>, die direkt beim Start aufgerufen wird, soll auch dann ausgel\u00f6st werden, wenn der Benutzer eine andere Tabelle oder Abfrage aus dem Kombinationsfeld cboTabelleOderAbfrage<\/b> aufruft. Daher hinterlegen wir f\u00fcr das Ereignis Nach Aktualisierung <\/b>noch die folgende Ereignisprozedur:<\/p>\n Die Schaltfl\u00e4che cmdOK <\/b>soll nur aktiviert werden, wenn der Benutzer eine Tabelle oder Abfrage und ein Feld ausgew\u00e4hlt hat. Deshalb aktivieren wir diese nach der Auswahl eines der Eintr\u00e4ge und wenn das Kombinationsfeld nicht leer ist:<\/p>\n Nachdem der Benutzer die Tabelle\/Abfrage und das Feld, dessen Daten als Beispieldaten verwendet werden sollen, ausgew\u00e4hlt hat, rufen wir die Prozedur DatenAnzeigen <\/b>auf (siehe Listing 4).<\/p>\n Listing 4: Aktualisierung der Beispieldaten<\/span><\/b><\/p>\n Diese soll die ersten zehn Datens\u00e4tze aus dem entsprechenden Feld in das passende Feld der Tabelle tblWerteFormatierteWerte <\/b>eintragen, welche die Daten f\u00fcr den Formatassistenten selbst liefert (siehe Bild 3).<\/p>\n Bild 3: Tabelle mit Beispieldaten f\u00fcr den Formatassistenten<\/span><\/b><\/p>\n Dazu deklariert und initialisiert die Prozedur zwei Database<\/b>-Variablen – eine f\u00fcr die aktuelle Datenbank (db<\/b>) und eine f\u00fcr die Add-In-Datenbank (dbc<\/b>). Dann pr\u00fcft sie in einer Select Case<\/b>-Bedingung, ob eine Tabelle oder eine Abfrage die neuen Beispieldaten liefern soll. Im Falle einer Tabelle kann es entweder sein, dass der Formatassistent von der Entwurfsansicht einer Tabelle aus ge\u00f6ffnet wurde. Wenn wir nun die Daten aus einem Feld dieser Tabelle einlesen wollen, m\u00fcssten wir diese kurz in der Datenblattansicht \u00f6ffnen, da wir nicht auf die Daten einer Tabelle zugreifen k\u00f6nnen, solange diese in der Entwurfsansicht ge\u00f6ffnet ist. Es kann aber auch sein, dass der Benutzer eine andere Tabelle aus dem Kombinationsfeld ausgew\u00e4hlt hat – in diesem Fall ist der Schritt nicht n\u00f6tig.<\/p>\n Wir pr\u00fcfen also per If…Then<\/b>-Bedingung, ob die Tabelle, deren Format-Eigenschaft wir \u00e4ndern wollen, mit der Tabelle identisch ist, welche im Kombinationsfeld ausgew\u00e4hlt wurde. Falls ja, \u00f6ffnen wir die Tabelle in der Datenblattansicht. Die gleiche Abfrage folgt nach dem Einlesen der Beispieldaten erneut, um die Tabelle wieder in der Entwurfsansicht zu \u00f6ffnen – nur so k\u00f6nnen wir die \u00fcber den Assistenten ge\u00e4nderte Formateigenschaft wieder zur\u00fcck in die Tabelle schreiben.<\/p>\n Nachdem dies gekl\u00e4rt ist, \u00f6ffnen wir ein Recordset auf Basis der im Kombinationsfeld cboTabelleOderAbfrage <\/b>ausgew\u00e4hlten Tabelle oder Abfrage. Das Recordset soll nur die Werte des Feldes liefern, das wir im Kombinationsfeld cboFeld <\/b>ausgew\u00e4hlt haben. Au\u00dferdem wollen wir nur die ersten zehn Datens\u00e4tze selektieren und nur eindeutige Feldwerte und verwenden daher das Schl\u00fcsselwort DISTINCT TOP 10<\/b>.<\/p>\n Wir m\u00fcssen au\u00dferdem noch herausfinden, in welches der Felder der Tabelle tblWerteFormatierteWerte <\/b>wir die neuen Beispieldaten \u00fcberhaupt eintragen wollen – WertText<\/b>, WertDatum<\/b>, WertZahl<\/b>, WertBoolean<\/b>, WertWaehrung <\/b>oder WertZahlMitKomma<\/b>. Dazu rufen wir die Hilfsfunktion FeldErmitteln <\/b>auf und \u00fcbergeben den Datentyp des Feldes, den wir zuvor \u00fcber die Type<\/b>-Eigenschaft des Field<\/b>-Objekts ermitteln.<\/p>\n Den in die Variable strBeispielfeld <\/b>geschriebenen Namen des zu verwendenden Feldes verwenden wir dann, um ein Recordset auf Basis der Tabelle tblWerteFormatierteWerte <\/b>zu \u00f6ffnen. Wir durchlaufen nun alle Datens\u00e4tze des Recordsets mit den neuen Beispielwerten und schreiben diese in das aktuelle Recordset der Tabelle tblWerteFormatierteWerte<\/b>. Anschlie\u00dfend weisen wir dem Listenfeld lstWerte <\/b>das Recordset rstBeispiele <\/b>zu. Danach \u00f6ffnet die Prozedur die bearbeitete Tabelle gegebenenfalls wieder in der Entwurfsansicht. Falls wir die Format<\/b>-Eigenschaft des Feldes einer Abfrage bearbeiten, landen wir in der Select Case<\/b>-Bedingung im zweiten Zweig mit dem Wert acQuery<\/b>.<\/p>\n Dieser erledigt die gleichen Schritte wie der acTable<\/b>-Zweig – mit dem Unterschied, dass wir die Tabelle oder Abfrage, welche die Beispieldaten liefern soll, direkt \u00f6ffnen k\u00f6nnen und keine R\u00fccksicht auf eine eventuell in der Entwurfsansicht ge\u00f6ffnete und nicht verf\u00fcgbare Tabelle nehmen m\u00fcssen.<\/p>\n Nachdem wir die Tabelle und das Feld ausgew\u00e4hlt haben, das die neuen Beispieldaten f\u00fcr den Formatassistenten liefern soll, k\u00f6nnen wir den Dialog schlie\u00dfen und uns zur\u00fcck im Formatassistenten um das Einstellen der Format-Eigenschaft k\u00fcmmern.<\/p>\n Es fehlt noch die Funktion, mit der wir auf Basis des Datentyps des mit einem neuen Format zu versehenden Feldes das entsprechende Feld der Tabelle tblWerteFormatierteWerte <\/b>ermitteln. Diese sieht wie folgt aus und untersucht den mit dem Parameter intDataType <\/b>gelieferten Wert in einer Select Case<\/b>-Bedingung. Diese gibt den Namen des Feldes f\u00fcr den jeweiligen Felddatentyp zur\u00fcck – f\u00fcr den Typ dbDate <\/b>beispielsweise WertDatum<\/b>:<\/p>\n Zum Abschluss noch einmal eine Beschreibung der M\u00f6glichkeiten des Formatassistenten, der gerade Einsteigern beim Formatieren von Datumsfeldern wertvolle Dienste leisten kann. Der Ausgangspunkt ist der Wunsch des Entwicklers, ein spezielles Format f\u00fcr ein Feld zu definieren, beispielsweise f\u00fcr ein Datumsfeld wie in Bild 4. Nach der Installation des Add-Ins aus dieser Beitragsreihe finden wir nach dem Anklicken der Format-Eigenschaft eines Feldes die abgebildete Schaltfl\u00e4che mit den drei Punkten vor.<\/p>\n Bild 4: Aufrufen des Formatassistenten<\/span><\/b><\/p>\n Diese \u00f6ffnet den Formatassistenten, der die M\u00f6glichkeit zur Eingabe des Formatausdrucks in englisch oder deutsch erlaubt und direkt das Ergebnis der Formatierung anzeigt (siehe Bild 5)<\/p>\n Bild 5: Der Formatassistent im Einsatz<\/span><\/b><\/p>\n Wenn die im Formatassistenten angezeigten Beispieldaten nicht ausreichen, um das Format optimal einzustellen, kann man aus den Tabellen oder Abfragen der aktuellen Datenbank auch noch eigene Beispieldaten angeben. Dazu klickt man einfach auf die Schaltfl\u00e4che Werte aus Tabellenfeld als Beispiel einlesen<\/b> und \u00f6ffnet so den Dialog aus Bild 6. Hier w\u00e4hlt man eine Tabelle und ein Feld aus der aktuellen Datenbank aus, um neue Beispieldaten zu erhalten.<\/p>\n Bild 6: Dialog zum Festlegen der Datenquelle \u00f6ffnen<\/span><\/b><\/p>\n Zur\u00fcck im Assistenten kann man diese Daten dann wie gew\u00fcnscht formatieren (siehe Bild 7).<\/p>\n Bild 7: Ein ausgefeiltes Datumsformat<\/span><\/b><\/p>\n Nach dem Schlie\u00dfen des Assistenten landet das angegebene Format schlie\u00dflich in der Eigenschaft des Feldes in der Entwurfsansicht der Tabelle (siehe Bild 8).<\/p>\n Bild 8: Das Datumsformat in der Zieltabelle<\/span><\/b><\/p>\n Im zweiten Teil dieser Beitragsreihe haben wir den Formatassistenten noch um eine Funktion erweitert, mit welcher der Benutzer die f\u00fcr die Formatierung zu verwenden Beispieldaten selbst ausw\u00e4hlen kann. Damit haben wir nun ein Werkzeug, um direkt an den gew\u00fcnschten Daten das ben\u00f6tigte Format auszuprobieren und festzulegen.<\/p>\n Enthaltene Beispieldateien:<\/p>\n amvFormatAssistent.accda<\/p>\nPrivate Sub <\/span>cmdOK_Click()\n Me.Visible = False<\/span>\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAbbrechen_Click()\n DoCmd.Close acForm, Me.Name\nEnd Sub<\/span><\/pre>\n\u00d6ffnen des Formulars zum Ausw\u00e4hlen der zu formatierenden Daten<\/h2>\n
![\"\u00d6ffnen](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_002.png\")
<\/p>\nPrivate Sub <\/span>cmdBeispielwerteEinlesen_Click()\n Dim <\/span>strForm As String<\/span>\n Dim <\/span>strTabelleOderAbfrage As String<\/span>\n Dim <\/span>strFeld As String<\/span>\n strForm = \"frmDatenquelleUndFeldAuswaehlen\"\n On Error Resume Next<\/span>\n DoCmd.Close acForm, strForm\n On Error GoTo<\/span> 0\n DoCmd.OpenForm strForm, WindowMode:=acDialog, OpenArgs:=strObject & \"|\" & strControl & \"|\" & lngObjectType\n If <\/span>IstFormularGeoeffnet(strForm) Then<\/span>\n strTabelleOderAbfrage = Forms(strForm)!cboTabelleOderAbfrage\n strFeld = Forms(strForm)!cboFeld\n DoCmd.Close acForm, strForm\n End If<\/span>\nEnd Sub<\/span><\/pre>\nTabellen und Abfragen im Kombinationsfeld anzeigen<\/h2>\n
SELECT Name, Type FROM MSysObjects WHERE Type IN (1, 4, 5, 6) AND Not<\/span> Name LIKE ''~*'' AND Not<\/span> Name LIKE ''MSys*'' AND NOT Name LIKE ''USys*'' AND NOT Name LIKE ''f_*'' ORDER BY Name<\/pre>\nPrivate Sub <\/span>Form_Open(Cancel As Integer<\/span>)\n Dim <\/span>db As <\/span>DAO.Database\n Dim <\/span>rstTabellenUndAbfragen As <\/span>DAO.Recordset\n Dim <\/span>strSQL As String<\/span>\n Set<\/span> db = CurrentDb\n strSQL = \"SELECT Name, Type FROM MSysObjects WHERE Type IN (1, 4, 5, 6) AND Not<\/span> Name LIKE ''~*'' \" _\n & \"AND Not<\/span> Name LIKE ''MSys*'' AND NOT Name LIKE ''USys*'' AND NOT Name LIKE ''f_*'' ORDER BY Name\"\n Set<\/span> rstTabellenUndAbfragen = db.OpenRecordset(strSQL, dbOpenDynaset)\n Set<\/span> Me!cboTabelleOderAbfrage.Recordset = rstTabellenUndAbfragen\n If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\n strObject = Split<\/span>(Me.OpenArgs, \"|\")(0)\n strControl = Split<\/span>(Me.OpenArgs, \"|\")(1)\n intObjectType = Split<\/span>(Me.OpenArgs, \"|\")(2)\n End If<\/span>\n Select Case intObjectType\n Case <\/span>acTable, acQuery\n Me!cboTabelleOderAbfrage = strObject\n FelderAktualisieren\n Me!cboFeld = strControl\n DatenAnzeigen\n Case <\/span>acForm, acReport\n Me!cboTabelleOderAbfrage.SetFocus\n Me!cboTabelleOderAbfrage.Dropdown\n End Select<\/span>\nEnd Sub<\/span><\/pre>\ntblKunden|Eintrittsdatum|0<\/pre>\n
Aktualisieren der auszuw\u00e4hlenden Felder<\/h2>\n
Private Sub <\/span>FelderAktualisieren()\n Dim <\/span>db As <\/span>DAO.Database\n Dim <\/span>tdf As <\/span>DAO.TableDef\n Dim <\/span>qdf As <\/span>DAO.QueryDef\n Dim <\/span>fld As <\/span>DAO.Field\n Me!cboFeld.RowSource = \"\"\n If <\/span>Not<\/span> Nz(Me!cboTabelleOderAbfrage, \"\") = 0 Then<\/span>\n Set<\/span> db = CurrentDb\n Select Case Me!cboTabelleOderAbfrage.Column(1)\n Case <\/span>1, 4, 6\n Set<\/span> tdf = db.TableDefs(Me!cboTabelleOderAbfrage)\n For Each fld In tdf.Fields\n Me!cboFeld.AddItem fld.Name\n Next<\/span> fld\n Case <\/span>5\n Set<\/span> qdf = db.QueryDefs(Me!cboTabelleOderAbfrage)\n For Each fld In qdf.Fields\n Me!cboFeld.AddItem fld.Name\n Next<\/span> fld\n End Select<\/span>\n End If<\/span>\nEnd Sub<\/span><\/pre>\nFeld der Datenquelle ausw\u00e4hlen<\/h2>\n
Private Sub <\/span>cboTabelleOderAbfrage_AfterUpdate()\n FelderAktualisieren\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboFeld_AfterUpdate()\n If <\/span>Not<\/span> Len<\/span>(Nz(Me!cboFeld)) = 0 Then<\/span>\n DatenAnzeigen\n Me!cmdOK.Enabled = True<\/span>\n End If<\/span>\nEnd Sub<\/span><\/pre>\nNeue Beispieldaten einlesen<\/h2>\n
Private Sub <\/span>DatenAnzeigen()\n Dim <\/span>db As <\/span>DAO.Database\n Dim <\/span>dbc As <\/span>DAO.Database\n Dim <\/span>rst As <\/span>DAO.Recordset\n Dim <\/span>rstBeispiele As <\/span>DAO.Recordset\n Dim <\/span>strFeld As String<\/span>\n Dim <\/span>strBeispielfeld As String<\/span>\n Set<\/span> db = CurrentDb\n Set<\/span> dbc = CodeDb\n Select Case intObjectType\n Case <\/span>acTable\n If <\/span>Me!cboTabelleOderAbfrage = strObject Then<\/span>\n DoCmd.OpenTable Me!cboTabelleOderAbfrage, acViewNormal\n End If<\/span>\n Set<\/span> rst = db.OpenRecordset(\"SELECT DISTINCT TOP 10 \" & Me!cboFeld & \" FROM \" & Me!cboTabelleOderAbfrage _\n & \" WHERE NOT \" & Me!cboFeld & \" IS NULL\", dbOpenDynaset)\n strBeispielfeld = FeldErmitteln(rst(Me!cboFeld).Type)\n Set<\/span> rstBeispiele = dbc.OpenRecordset(\"SELECT \" & strBeispielfeld & \" FROM tblWerteFormatierteWerte\", _\n dbOpenDynaset)\n Do While<\/span> Not<\/span> rst.EOF\n rstBeispiele.Edit\n rstBeispiele(strBeispielfeld) = rst(Me!cboFeld)\n rstBeispiele.Update\n rstBeispiele.MoveNext<\/span>\n rst.MoveNext<\/span>\n Loop<\/span>\n rst.Close\n Set<\/span> rst = Nothing\n Set<\/span> Me!lstWerte.Recordset = rstBeispiele\n If <\/span>Me!cboTabelleOderAbfrage = strObject Then<\/span>\n DoCmd.OpenTable Me!cboTabelleOderAbfrage, acViewDesign\n End If<\/span>\n Case <\/span>acQuery\n ''...\n End Select<\/span>\nEnd Sub<\/span><\/pre>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_003.png\")
<\/p>\nErmitteln des Zielfeldes f\u00fcr die Beispieldaten<\/h2>\n
Private Function <\/span>FeldErmitteln(lngDataType As Long<\/span>) _\n As String<\/span>\n Dim <\/span>strFeld As String<\/span>\n Select Case lngDataType\n Case <\/span>dbDate\n strFeld = \"WertDatum\"\n Case <\/span>dbText\n strFeld = \"WertText\"\n Case <\/span>dbInteger, dbLong\n strFeld = \"WertZahl\"\n Case <\/span>dbDouble, dbSingle\n strFeld = \"WertZahlMitKomma\"\n Case <\/span>dbCurrency\n strFeld = \"WertWaehrung\"\n Case <\/span>dbBoolean\n strFeld = \"WertBoolean\"\n End Select<\/span>\n FeldErmitteln = strFeld\nEnd Function<\/span><\/pre>\nNutzung des Formatassistenten<\/h2>\n
![\"Aufrufen](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_004.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_005.png\")
<\/p>\n![\"Dialog](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_006.png\")
<\/p>\n![\"Ein](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_008.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2023_02\/pic_1419_009.png\")
<\/p>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n