{"id":55000295,"date":"2005-08-01T00:00:00","date_gmt":"2020-05-06T15:18:05","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=295"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"FAQ","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/FAQ\/","title":{"rendered":"FAQ"},"content":{"rendered":"

\"\"<\/p>\n

Zusammenfassung<\/h3>\n

Sie erhalten Antworten auf die meistgestellten Fragen zu Kombinations- und Listenfeldern.<\/p>\n

Techniken<\/h3>\n

Formulare, Listenfelder, Kombinationsfelder, VBA<\/p>\n

Voraussetzungen<\/h3>\n

Access 97 oder höher<\/p>\n

Beispieldateien<\/h3>\n

FAQ9_97.mdb<\/a><\/p>\n

FAQ9_00.mdb<\/p>\n

<\/h3>\n

Karl Donaubauer, Wien<\/b><\/p>\n

In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im neunten Teil lernen Sie die Lösungen zu den häufigsten Problemen im Zusammenhang mit Kombinations- und Listenfeldern in Formularen kennen.<\/b><\/p>\n

Es steht zwar nicht in der Online-Hilfe, aber die nicht änderbare maximale Zeilenanzahl für beide Steuerelemente beträgt in allen Access-Versionen 65536. Wenn die Datensatzherkunft mehr Datensätze enthält, werden die überzähligen ignoriert und nicht dargestellt. Sie sollten ohnehin niemals in diese Verlegenheit kommen, sondern dafür sorgen, dass nicht mehr als einige hundert oder wenige tausend Zeilen in einem Kombinationsfeld oder Listenfeld dargestellt werden. Der Grund ist die schlechte Performance bei sehr vielen Zeilen. Es ist fast immer möglich, große Datensatzmengen für die Verwendung sinnvoll vorzufiltern, sei es nach Anfangsbuchstabe, Gruppe, Bereich, Region oder ähnlich. Mehr dazu später in diesem Artikel.<\/p>\n

Das Problem der oft schlechten Performance mit Kombinations- und Listenfeldern wird verschärft, wenn sich mehrere davon in einem Formular befinden. Das öffnen des Formulars kann dann sehr lange dauern und unzumutbar für den Benutzer werden. Die erste Maßnahme in solchen Fällen wäre natürlich die Reduzierung dieser Steuerelemente. Da sie aber großartige Funktionalität bieten und der Anwender dadurch leicht verwöhnt wird, ist das nicht immer möglich, vor allem, wenn sich erst im Laufe der Verwendung einer Datenbank die Datenmengen stark erhöhen und die Performance immer schlechter wird.<\/p>\n

Teil des Performance-Problems ist, dass die Datensatzherkunft von Kombinations- und Listenfeldern immer schon beim öffnen des Formulars geladen wird, um die Steuerelemente zu füllen. Hier kann man lösungsmäßig ansetzen.<\/p>\n

Lassen Sie einfach die Eigenschaft Datensatzherkunft leer, oder, wenn Sie unbedingt schon beim öffnen des Formulars Werte anzeigen müssen, belegen Sie sie standardmäßig mit stark einschränkenden Abfragen. Erst wenn der Anwender aktiv auf das Kombinations- oder Listenfeld zugreift, setzen Sie die Datensatzherkunft per VBA.<\/p>\n

Dafür reichen drei Zeilen Code im Ereignis Beim Hingehen des Steuerelementes. Angenommen, Sie möchten das Kombinationsfeld cboOrte mit den Daten aus der Tabelle tblOrte füllen:<\/p>\n

If Me!cboOrte.RowSource <> \"tblOrte\" Then\r\n    Me!cboOrte.RowSource = \"tblOrte\"\r\nEnd If<\/pre>\n
Die Prüfung mit If vorneweg sorgt dafür, dass das Befüllen nicht unnötig wiederholt wird, wenn der Anwender erneut auf das bereits gefüllte Kombinationsfeld zugreift.<\/p>\n
Ein häufig gewünschtes Feature für Klickfaule ist, dass sich die Auswahlliste eines Kombinationsfeldes beim Hingehen wie von Geisterhand öffnen möge, ohne dass der Anwender auf den entsprechenden Abwärtspfeil klicken muss.<\/p>\n
In den ersten Versionen von Access konnte man das nur mit dem fehlerbehafteten Sendkeys-Befehl regeln, mit dem man eine der Windows-Tastenkombinationen zum öffnen von Auswahllisten, Alt + Pfeil nach unten oder F4, losschickte.<\/p>\n
Heutzutage ist das eine Unsitte, die man aber immer noch entweder als Tipp oder in Anwendungen zu sehen bekommt. Bereits seit Access 95 gibt es für diesen Zweck die Methode Dropdown.<\/p>\n
Zu ihrer Ausführung muss das Kombinationsfeld den Fokus haben. Sie müssen also entweder, wie im Beispielformular gezeigt (siehe Bild 1), zuerst den Fokus auf das Kombinationsfeld setzen oder das Ereignis Beim Hingehen des Kombinationsfeldes verwenden. Der Code ist dann einfach:<\/p>\n
Me!cboOrte.Dropdown<\/pre>\n
<\/p>\n
Bild 1:  Kombinationsfeld per Schaltfläche geöffnet<\/span><\/b><\/p>\n
In der Eigenschaft Value eines Kombinations- oder Listenfeldes befindet sich immer nur der Wert aus der gebundenen Spalte. Den Zugriff auf die Werte anderer Spalten ermöglicht die Eigenschaft Column(Spalte, Zeile). Die Parameter für die Spalte und die Zeile sind beide nullbasierend. Den Wert der zweiten Spalte aus der zweiten Zeile erhalten Sie daher mit:<\/p>\n
Me!cboOrte.Column(1,1)<\/pre>\n
Wenn Sie nur den ersten Parameter angeben, also jenen für die Spalte, zum Beispiel<\/p>\n
Me!cboOrte.Column(1)<\/pre>\n
dann wird der Wert aus der aktuell ausgewählten Zeile zurückgeliefert.<\/p>\n
Ein Bezug dieser Art wird auch gerne verwendet, um in ungebundenen Textfeldern eines Formulars die Werte aus den nicht gebundenen Spalten eines Kombinationsfeldes anzuzeigen. Wenn es nur um die Anzeige geht, reicht für das anzeigende Textfeld ein Steuerelementinhalt wie:<\/p>\n
=[cboOrte].[Column](1)<\/pre>\n
Beispiele für die Verwendung von Column finden Sie ebenfalls im Formular frmKombinationsfeldOeffnen aus Bild 1.<\/p>\n
Möchten Sie hingegen den Wert in einem gebundenen Textfeld speichern, so müssen Sie ihn, am besten im Ereigniscode Nach Aktualisierung des Kombinationsfeldes, per VBA zuweisen:<\/p>\n
Me!MeinFeld = Me!cboOrte.Column(1)<\/pre>\n
Noch ein Hinweis auf einen Trick, um Column() auch in Bezügen in Abfragen verwenden zu können. Ein Bezug wie der folgende (in einer Zeile) in einem Abfragekriterium funktioniert nicht, weil JET mit der Column-Eigenschaft nichts anfangen kann:<\/p>\n
Forms!MeinFormular!MeinListenFeld.Column(1)<\/pre>\n
Abhilfe bringt, wie so oft, die Verwendung der Funktion Eval(), die dafür sorgt, dass der Expression Service von JET den Bezug auswertet, bevor die Abfrage von der JET-Query-Engine weiter verarbeitet wird. Der Bezug in der Abfrage muss dafür lauten (in einer Zeile):<\/p>\n
Eval(\"Forms!MeinFormular!MeinListenFeld.Column(1)\")<\/pre>\n
<\/p>\n
<\/b><\/p>\n
Bild 2:  Automatische Markierung bestimmter Zeilen<\/span><\/b><\/p>\n
Eine häufige Anforderung an Kombinationsfelder und gelegentlich auch an Listenfelder ist ein voreingestellter Wert. Meistens geht es darum, den ersten oder letzten Wert aus der Liste automatisch auszuwählen.<\/p>\n
Für diese Zwecke eignet sich am besten die Eigenschaft ItemData. Der Index von ItemData ist wieder nullbasierend, das heißt ItemData(0) ist die erste Zeile des Steuerelementes, ItemData(1) die zweite und so weiter.<\/p>\n
Das Listenfeld lstOrte im Beispielformular (siehe Bild 2) ist so präpariert, dass beim öffnen des Formulars die erste Zeile vorausgewählt ist. Erreicht wird das durch folgenden Eintrag in der Eigenschaft Standardwert des Listenfeldes:<\/p>\n
[lstOrte].[ItemData](0)<\/pre>\n
In Bild 2 sehen Sie auch mehrere Schaltflächen, die weitere Varianten vorführen. Der Code, um die erste Zeile eines Listenfeldes oder Kombinationsfeldes per VBA auszuwählen, lautet schlicht:<\/p>\n
Me!lstOrte = Me!lstOrte.ItemData(0)<\/pre>\n
Etwas komplizierter ist das dynamische Weiterspringen um jeweils eine Zeile (ohne Zeilenumbruch):<\/p>\n
Me!lstOrte = Me!lstOrte.ItemData(Me!lstOrte.ListIndex + 1)<\/pre>\n
Die aktuell ausgewählte Zeile wird dabei mithilfe der Eigenschaft ListIndex ausgelesen und um 1 erhöht. Der Code zum Auswählen der letzten Zeile lautet:<\/p>\n
Me!lstOrte = Me!lstOrte.ItemData(Me!lstOrte.ListCount - 1)<\/pre>\n
Mithilfe der Eigenschaft ListCount wird dabei die Anzahl der Zeilen ermittelt und, da ItemData ja nullbasierend ist, 1 subtrahiert.<\/p>\n
ListCount können Sie auch für andere nützliche Zwecke einsetzen. So kann es etwa für den Anwender eine sinnvolle Information sein, wenn er weiß, die wievielte Zeile von wie vielen vorhandenen er gerade ausgewählt hat. In Bild 2 sehen Sie unterhalb des Listenfeldes ein entsprechendes Textfeld mit folgendem Steuerelementinhalt:<\/p>\n
=[lstOrte].[ListIndex]+1 & \" \/ \" & [lstOrte].[ListCount]<\/pre>\n
<\/p>\n
ListIndex ist wiederum eine nullbasierende Eigenschaft, die den aktuell gewählten Eintrag wiedergibt.<\/p>\n
Es gibt mehrere Varianten, um den im Textteil eines Kombinationsfeldes eingegebenen Wert per VBA in seine Auswahlliste aufzunehmen. In der ersten hier demonstrierten Variante wird der Wert unmittelbar nach der Eingabe und ohne Nachfrage in die Liste aufgenommen.<\/p>\n
Voraussetzung für den Zugriff per VBA ist, dass die Eigenschaft Nur Listeneinträge des Kombinationsfeldes auf Ja steht. Als Folge dieser Einstellung können Sie Code im Ereignis Bei nicht in Liste des Steuerelementes verwenden, um den Datensatz an die Datensatzherkunft anzufügen und das Kombinationsfeld zu aktualisieren.<\/p>\n
Quellcode 1 zeigt den im Beispielformular frmKombiHinzufuegen verwendeten Code, um einen Eintrag an eine Artikeltabelle anzufügen.<\/p>\n
In der ersten Codezeile wird der Parameter Response auf acDataErrAdded gesetzt. Standardmäßig bringt Access bei einem neuen Eintrag die schöne Meldung: „Der von Ihnen eingegebene Text ist kein Element der Liste.“<\/p>\n
adDataErrAdded sorgt dafür, dass diese Standardmeldung unterbleibt und der neue Eintrag kommentarlos angefügt wird.<\/p>\n
Quellcode 1: Anfügen eines Eintrags an eine Tabelle<\/b><\/p>\n
Response = acDataErrAdded\r\nDim db As DAO.Database\r\nDim rs As DAO.Recordset\r\nSet db = CurrentDb\r\nSet rs = db.OpenRecordset(\"tblArtikel\", dbOpenDynaset)\r\nrs.AddNew\r\nrs!Bezeichnung = NewData\r\nrs.Update\r\nrs.Close: Set rs = Nothing\r\nSet db = Nothing\r\n<\/pre>\n
Quellcode 2: öffnen eines Eingabeformulars<\/b><\/p>\n
Response = acDataErrContinue\r\nIf MsgBox(\"Dieser Artikel ist neu. \" _\r\n    & \"Möchten Sie ihn anlegen\", vbYesNo) = _    vbYes Then\r\n    DoCmd.OpenForm \"frmArtikelNeu\", , , , _        acFormAdd\r\n    Forms!frmArtikelNeu!Bezeichnung = NewData\r\nElse\r\n    Response = acDataErrContinue\r\n    Me!cboArtikel2.Undo\r\nEnd If\r\n<\/pre>\n
Dazu wird ein DAO-Recordset auf Basis der dem Kombinationsfeld zugrunde liegenden Tabelle geöffnet. Der im Textfeld des Kombinationsfeldes neu eingegebene Begriff befindet sich im Parameter Newdata des NotInList-Ereignisses. Damit kann er dem passenden Feld im Recordset zugewiesen werden. Mit AddNew wird der neue Datensatz an die Tabelle angefügt. <\/p>\n
Diese einfache Variante eignet sich nur für neue Einträge in Tabellen, bei denen keine weiteren Felder auszufüllen sind. Andernfalls ist das übliche Vorgehen, bei Eingabe eines neuen Begriffs in das Kombinationsfeld ein Eingabeformular für den Anwender zu öffnen, in das er alle nötigen weiteren Daten für den neuen Datensatz eintragen kann. Beim Schließen des Eingabeformulars wird dann der neue Eintrag in der Liste des Kombinationsfeldes hinzugefügt.<\/p>\n
Quellcode 2 zeigt den Code im Beispielformular frmKombiHinzufuegen, der das Eingabeformular öffnet. Zuerst wird der Parameter Response auf adDataErrContinue gesetzt. Das ermöglicht eine selbst definierte Meldung anstelle der Access-Standardmeldung.<\/p>\n
Dann erfolgt die Rückfrage an den Anwender, ob er den neuen Artikel wirklich anlegen möchte. Wenn er verneint, etwa im Falle eines Irrtums oder Tippfehlers, wird die Eingabe mit Undo rückgängig gemacht.<\/p>\n
Wenn er hingegen bejaht, wird das Eingabeformular geöffnet und der neue Eintrag für die Artikelbezeichnung aus dem Kombinationsfeld in das entsprechende Textfeld im Eingabeformular übernommen (siehe Bild 3).<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 3:  Eingabeformular zum Hinzufügen eines neuen Eintrags in die Auswahlliste eines Kombinationsfeldes<\/span><\/b><\/p>\n
Der Anwender kann nun das Eingabeformular ausfüllen. Im Ereignis Beim Schließen des Eingabformulares wird dann mit den folgenden zwei Codezeilen dafür gesorgt, dass der neue Eintrag sofort in der Auswahlliste des Kombinationsfeldes sichtbar ist:<\/p>\n
Forms!frmKombiHinzufuegen!cboArtikel2 _    = Me!ArtikelId<\/pre>\n
<\/p>\n
<\/b><\/p>\n
Bild 4:  Abhängige Kombinationsfelder<\/span><\/b><\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 5:  Abhängige Listenfelder<\/span><\/b><\/p>\n
Forms!frmKombiHinzufuegen!cboArtikel2. _    Requery<\/pre>\n
Das Kombinationsfeld wird auf den Wert der neuen ArtikelId gesetzt, damit dieser der aktuelle Eintrag wird. Das abschließende Requery sorgt für die Aktualisierung der Auswahlliste.<\/p>\n
Der häufigste Beziehungstyp in der Datenbankpraxis ist 1:n. In der Regel wird er mit dem System Hauptformular-Unterformular abgebildet.<\/p>\n
In vielen Anwendungsfällen passt aber die Umsetzung in zwei abhängige Kombinations- oder Listenfelder besser, besonders für die Filterung und Vorauswahl aller Art. <\/p>\n
Das Prinzip ist einfach: Man lässt das zweite abhängige Steuerelement auf einer Abfrage basieren, die einen Bezug auf das erste Steuerelement enthält. Bild 4 zeigt eine solche klassische Anordnung zweier Kombinationsfelder.<\/p>\n
Im linken Kombinationsfeld befinden sich die 1er-Daten, mit einer Liste von Artikelgruppen. Im rechten Kombinationsfeld befinden sich die gefilterten n-Daten, nämlich die zur ausgewählten Gruppe gehörenden Artikel.<\/p>\n
Entscheidend ist die Eigenschaft Datensatzherkunft des zweiten Kombinationsfeldes. Sie ist leer, bis sie in der Ereignisprozedur Nach Aktualisierung des ersten Kombinationsfeldes gefüllt wird:<\/p>\n
Me!cboArtikel.RowSource = _\r\n    \"SELECT Bezeichnung \" & _\r\n    \"FROM tblArtikel \" & _\r\n    \"WHERE AGId \" = Forms! _    frmAbhaengigeKombinationsfelder! _    cboArtikelgruppen  & _\r\n    \" ORDER BY Bezeichnung\"<\/pre>\n
In der WHERE-Bedingung des SQL-Statements wird die ID der Artikelgruppe durch einen Bezug auf das erste, übergeordnete Kombinationsfeld gefiltert. Dadurch erscheinen bei jedem Wechsel der Artikelgruppe im anderen Kombinationsfeld nur die dazu gehörenden Artikel.<\/p>\n
In Bild 5 sehen Sie ein weiteres Beispiel mit Listenfeldern und einer etwas anderen Technik zur Behandlung der Abhängigkeit.<\/p>\n
Im linken Listenfeld befinden sich wieder die 1er-Daten, in diesem Fall eine Liste von Artikelbezeichnungen.<\/p>\n
Im rechten Listenfeld befinden sich die gefilterten n-Daten, nämlich die Lieferungen für den ausgewählten Artikel. Die Eigenschaft Datensatzherkunft des zweiten Listenfeldes ist hier nicht leer, sondern enthält folgenden SQL-Text:<\/p>\n
SELECT L.LieferlID, A.Bezeichnung, L.Stueck, L.Preis, L.Lieferdatum\r\nFROM tblArtikel AS A INNER JOIN tblLieferungen AS L ON A.ArtikelID = L.ArtikelID\r\nWHERE L.ArtikelID=[Forms]![frmAbhaengigeListenfelder]![lstArtikel];<\/pre>\n
Aus den beiden verknüpften Tabellen werden also Felder geholt und als Kriterium beim Verknüpfungsfeld ArtikelID wird wieder der Wert des linken, übergeordneten Listenfeldes verwendet.<\/p>\n
Die gebundene Spalte dieses übergeordneten Listenfeldes enthält die ArtikelID des gewählten Artikels und damit erscheinen nur seine Lieferungen.<\/p>\n
Was nicht fehlen darf, ist die Aktualisierung des zweiten Listenfeldes im Ereignis Nach Aktualisierung des ersten Listenfeldes, das heißt bei jeder Auswahl eines anderen Artikels:<\/p>\n
Me!lstLieferungen.Requery<\/pre>\n
Im ersten Beispiel war keine Aktualisierung mit Requery nötig, weil sie durch die änderung der RowSource automatisch erfolgt.<\/p>\n
Welche der beiden Varianten Sie verwenden oder eventuell sogar eine mit einer gespeicherten und im Datenbankfenster sichtbaren Abfrage, ist eher eine Frage der persönlichen Vorliebe bezüglich Speicherung von Abfragen oder SQL-Strings im Code.<\/p>\n
Ein Feature, das vielen Anwendern in Listenfeldern fehlt, ist die Möglichkeit, die Einträge dynamisch zu filtern. Kombinationsfelder haben diese Funktionalität zumindest ansatzweise durch ihre Eigenschaft Automatisch ergänzen, die beim Eintippen jedes Zeichens zum nächst passenden Eintrag springt.<\/p>\n
Eine wirkliche dynamische Filtermöglichkeit besitzen sie aber auch nicht. Mithilfe eines ungebundenen Textfeldes und zwei bis drei Zeilen VBA-Code ist das aber für Listenfelder schnell erledigt.<\/p>\n
Bild 6 zeigt das Beispielformular frmListenfeldDynamisch mit zwei leicht unterschiedlichen Filtervarianten.<\/p>\n
<\/p>\n
Bild 6:  Dynamisches Filtern eines Listenfeldes<\/span><\/b><\/p>\n
Das Listenfeld enthält eine Auswahl österreichischer Postleitzahlen und Orte. <\/p>\n
Bei jedem Eintippen einer Ziffer in das erste Textfeld werden die Einträge des Listenfeldes entsprechend dem Vorhandensein der eingegebenen Ziffern gefiltert.<\/p>\n
Der dafür nötige Code im Ereignis Bei änderung (OnChange) des Textfeldes ist sehr kurz:<\/p>\n
Me!lstOrte.RowSource = _\r\n    \"SELECT PLZ, Ort \" & _\r\n    \"FROM tblOrte \" & _\r\n    \"WHERE PLZ Like ''*\" & _    Me!txtFilternPLZ.Text & \"*''\"<\/pre>\n
Die Datensatzherkunft des Listenfeldes wird also mit einem SQL-String versorgt, in dem das Feld für die Postleitzahl mit dem aktuellen Inhalt des filternden Textfeldes verglichen wird.<\/p>\n
Der Operator Like und die Sternchen (*) vor und hinter dem Filterbegriff sorgen dafür, dass die Position der eingegebenen Ziffernkombination in der Postleitzahl egal ist.<\/p>\n
Die Verwendung der Eigenschaft Text ist nötig, weil während des Eintippens des Wertes dieser noch nicht in der Standardeigenschaft Value des Textfeldes vorhanden ist, sondern eben vorläufig nur in der Text-Eigenschaft.<\/p>\n
Zum Value des Textfeldes wird er erst, wenn auf irgendeine Weise dessen Aktualisieren-Ereignisse ausgelöst werden, etwa durch Verlassen, Speichern oder Aktualisieren der Anzeige.<\/p>\n
Das zweite Textfeld zum Filtern der Ortsnamen besitzt einen erweiterten Code im Change-Ereignis:<\/p>\n
Me!lstOrte.RowSource = _    \"SELECT PLZ, Ort \" & _\r\n    \"FROM tblOrte \" & _<\/pre>\n
<\/p>\n
<\/b><\/p>\n
Bild 7:  Sprung zum ersten zutreffenden Wert<\/span><\/b><\/p>\n
    \"WHERE Ort Like ''\" & _    Me!txtFilternOrt.Text & \"*''\"\r\nMe.Recalc\r\nMe!txtFilternOrt.SelStart = _    Nz(Len(Me!txtFilternOrt))<\/pre>\n
Zuerst werden wieder die Daten des Listenfeldes anhand der Text-Eigenschaft des Textfeldes gefiltert.<\/p>\n
Die Methode Recalc behebt einen kleinen Schönheitsfehler der als Erstes beschriebenen Filtervariante. Es bewirkt nämlich die Aktualisierung des Textfeldes unterhalb des Listenfeldes, in dem dessen aktuelle Zeilenanzahl angezeigt wird.<\/p>\n
Durch das Recalc wird allerdings auch der Inhalt des Filterfeldes gespeichert und der gesamte Feldinhalt markiert.<\/p>\n
Somit wird das einfache Ergänzen des Filterbegriffs unmöglich. Sie können diesen Effekt testen, indem Sie die letzte Codezeile des Beispiels auskommentieren.<\/p>\n
Diese letzte Zeile sorgt dafür, dass der Cursor nach dem Recalc wieder hinter der letzten Position im Filter-Textfeld steht.<\/p>\n
Dazu wird einfach die Eigenschaft SelStart auf die Länge des enthaltenen Textes gesetzt.<\/p>\n
Das dritte Textfeld filtert nicht, sondern springt zur ersten Zeile, die mit dem eingegebenen Postleitzahlen-Teil beginnt (siehe Bild 7).<\/p>\n
Der Code im Ereignis Bei änderung lautet folgendermaßen:<\/p>\n
Me!lstOrte = DLookup(\"PLZ\", \"tblOrte\", _    \"PLZ Like ''\" _    & Me!txtSpringenPLZ.Text & \"*''\")<\/pre>\n
Mit der Funktion DLookup wird nach einer Postleitzahl gesucht, die mit dem eingegebenen Text beginnt.<\/p>\n
Das Listenfeld beziehungsweise dessen Standard-Eigenschaft Value wird auf diesen Wert gesetzt. Das bewirkt, dass der entsprechende Eintrag markiert wird.<\/p>\n
Ein ewiges Problem mit Kombinationsfeldern und noch viel stärker mit Listenfeldern ist die Einschränkung, dass alle Spalten linksbündig ausgerichtet sind. <\/p>\n
Das sieht bei Zahlen und besonders Geldbeträgen nicht gut aus. Es gibt leider keine eingebaute Möglichkeit in Access, um Spalten rechtsbündig auszurichten, sondern nur zwei etwas holprige Workarounds.<\/p>\n
Das Problem dabei sind in erster Linie die verschiedenen Buchstabenbreiten bei Proportionalschriften.<\/p>\n
Manchmal ist die Rechtsausrichtung jedoch so wichtig für den Anwender, dass man über die kleinen Mängel in den Lösungen hinweg sehen wird.<\/p>\n
<\/p>\n
<\/b><\/p>\n
Bild 8:  Spalte Lieferpreis ist rechtsbündig ausgerichtet<\/span><\/b><\/p>\n
Der eine Workaround basiert auf heftiger API-Programmierung, um die Buchstabenbreiten zu ermitteln und die Listenfelder entsprechend einzustellen.<\/p>\n
Basteleien dazu sind auf der Webseite des kanadischen Access-MVP Stephen Lebans zu finden (http:\/\/www.lebans.com\/justicombo.htm).<\/p>\n
Das Ergebnis ist optisch nie ganz perfekt, sondern immer nur eine Annäherung an eine exakte Ausrichtung.<\/p>\n
Die andere Lösungsvariante ist die Verwendung von Festbreitenschriften. Diese „Schreibmaschinen-Schriften“ wirken heutzutage zwar etwas ungewohnt und altmodisch, liefern in Bezug auf die Ausrichtung aber sehr brauchbare Ergebnisse. Zu empfehlen ist hier die auf jedem Windows-PC standardmäßig vorhandene Schriftart Courier New, die etwas schlanker und eleganter ist als die klassische Courier-Schrift.<\/p>\n
Bild 8 zeigt das Beispielformular frmListenfeldRechtsbuendig, in dem Courier New zur Ausrichtung der Spalte mit dem Lieferpreis eingesetzt wird.<\/p>\n
Der zweite Bestandteil der Lösung, neben der Festbreitenschrift, ist, das Feld in der zugrund liegenden Abfrage für alle Datensätze auf die gleiche Breite einzustellen.<\/p>\n
Das wird mithilfe der Funktion Format und durch Auffüllen mit Leerzeichen erreicht. Das Preisfeld im Beispiel wird in der Abfrage mit folgender Formel formatiert:<\/p>\n
Leerzchn(12-Länge(Format([L].[Preis];\"#.##0,00\"))) & Format([L].[Preis];\"#.##0,00\")<\/pre>\n
Im ersten Teil dieses Ausdrucks werden mittels der Funktion Leerzchn (Space in VBA) Leerzeichen erzeugt. Ihre Anzahl beträgt 12, was für normale Geldbeträge reichen sollte, abzüglich der tatsächlichen Länge des im Feld Preis vorhandenen Betrags.<\/p>\n
Wobei das Preisfeld mit der Funktion Format vor allem in Hinblick auf die gleiche Anzahl von Kommastellen formatiert wird. Mit dem identischen Formatierungsausdruck wird dann der Betrag angehängt.<\/p>\n
Das Ergebnis ist ein Text, der immer zwölf Zeichen lang ist. Rechts steht der formatierte Betrag und links wird je nach Länge des Betrags mit Leerzeichen aufgefüllt, damit sich der Betrag immer auf den „rechtesten“ Positionen innerhalb der zwölf Zeichen befindet.<\/p>\n
Da der Text also stets gleich lang ist und in Festbreitenschrift ausgegeben wird, ist eine exakte Rechtsausrichtung möglich.<\/p>\n","protected":false},"excerpt":{"rendered":"
In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im neunten Teil lernen Sie die Lösungen zu den häufigsten Problemen im Zusammenhang mit Kombinations- und Listenfeldern in Formularen kennen.<\/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":[662005,66042005,44000004],"tags":[],"class_list":["post-55000295","post","type-post","status-publish","format-standard","hentry","category-662005","category-66042005","category-Tipps_und_Tricks"],"yoast_head":"\nFAQ - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/FAQ\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"FAQ\" \/>\n<meta property=\"og:description\" content=\"In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im neunten Teil lernen Sie die Lösungen zu den häufigsten Problemen im Zusammenhang mit Kombinations- und Listenfeldern in Formularen kennen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/FAQ\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-06T15:18:05+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg08.met.vgwort.de\/na\/f9853a9423914801a0e8c56d0b229127\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"16\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"FAQ\",\"datePublished\":\"2020-05-06T15:18:05+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/\"},\"wordCount\":2978,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/f9853a9423914801a0e8c56d0b229127\",\"articleSection\":[\"2005\",\"4\\\/2005\",\"Tipps und Tricks\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/\",\"name\":\"FAQ - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/f9853a9423914801a0e8c56d0b229127\",\"datePublished\":\"2020-05-06T15:18:05+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/f9853a9423914801a0e8c56d0b229127\",\"contentUrl\":\"http:\\\/\\\/vg08.met.vgwort.de\\\/na\\\/f9853a9423914801a0e8c56d0b229127\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/FAQ\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"FAQ\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"FAQ - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/FAQ\/","og_locale":"de_DE","og_type":"article","og_title":"FAQ","og_description":"In der Access-FAQ von Karl Donaubauer (www.donkarl.com) finden Sie die meistgestellten Fragen und Anworten zum Thema Microsoft Access. In dieser Beitragsreihe stellt Karl Donaubauer die wichtigsten Einträge im Detail vor und zeigt Ihnen entsprechende Lösungen anhand praxisnaher Beispiele. Im neunten Teil lernen Sie die Lösungen zu den häufigsten Problemen im Zusammenhang mit Kombinations- und Listenfeldern in Formularen kennen.","og_url":"https:\/\/access-im-unternehmen.de\/FAQ\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-06T15:18:05+00:00","og_image":[{"url":"http:\/\/vg08.met.vgwort.de\/na\/f9853a9423914801a0e8c56d0b229127","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"16\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/FAQ\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/FAQ\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"FAQ","datePublished":"2020-05-06T15:18:05+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/FAQ\/"},"wordCount":2978,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/FAQ\/#primaryimage"},"thumbnailUrl":"http:\/\/vg08.met.vgwort.de\/na\/f9853a9423914801a0e8c56d0b229127","articleSection":["2005","4\/2005","Tipps und Tricks"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/FAQ\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/FAQ\/","url":"https:\/\/access-im-unternehmen.de\/FAQ\/","name":"FAQ - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/FAQ\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/FAQ\/#primaryimage"},"thumbnailUrl":"http:\/\/vg08.met.vgwort.de\/na\/f9853a9423914801a0e8c56d0b229127","datePublished":"2020-05-06T15:18:05+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/FAQ\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/FAQ\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/FAQ\/#primaryimage","url":"http:\/\/vg08.met.vgwort.de\/na\/f9853a9423914801a0e8c56d0b229127","contentUrl":"http:\/\/vg08.met.vgwort.de\/na\/f9853a9423914801a0e8c56d0b229127"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/FAQ\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"FAQ"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000295","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000295"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000295\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000295"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000295"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000295"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}