{"id":55001206,"date":"2019-10-01T00:00:00","date_gmt":"2020-05-13T20:56:32","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1206"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Kombinationsfeld_mit_Extraeintraegen","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/","title":{"rendered":"Kombinationsfeld mit Extraeinträgen"},"content":{"rendered":"

\"\"<\/p>\n

Normalerweise enthalten Kombinationsfelder nur die Einträge einer Tabelle oder Abfrage als Datensatzherkunft. Manchmal wollen Sie dem Benutzer aber mit dem Kombinationsfeld noch mehr Funktionen bieten. Zum Beispiel wollen Sie vielleicht den Text anzeigen, damit der Benutzer sieht, dass hier eine Auswahl vorzunehmen ist oder Sie möchten dem Benutzer mit einem Eintrag wie die Möglichkeit geben, direkt über die Auswahl dieses Eintrags ein Detailformular zur Eingabe eines neuen Datensatzes zu öffnen. Dieser Beitrag zeigt, wie das funktioniert und welche Herausforderungen es gibt, wenn das Kombinationsfeld sonst noch keine Daten anzeigt.<\/b><\/p>\n

Wenn Sie in einem Kombinationsfeld die Daten einer Abfrage oder Tabelle zur Auswahl anbieten wollen, gelingt das ganz einfach durch Einstellen weniger Eigenschaften. Die wichtigste ist dabei die Eigenschaft Datensatzherkunft<\/b>, der Sie den Namen der zu verwendenden Tabelle oder der Abfrage zuweisen oder der für die Sie direkt einen SQL-Ausdruck hinterlegen.<\/p>\n

Dann verwenden Sie beispielsweise einen Ausdruck wie den folgenden, den Sie leicht über den Abfrage-Generator der Eigenschaft Datensatzherkunft <\/b>zusammenstellen können:<\/p>\n

SELECT tblKunden.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde \r\nFROM tblKunden \r\nORDER BY [Nachname] & \", \" & [Vorname];<\/pre>\n
Wenn Sie nun noch die Eigenschaft Spaltenanzahl <\/b>auf 2<\/b> und die Eigenschaft Spaltenbreiten <\/b>auf 0cm <\/b>einstellen, wird auch nur der Inhalt des zweiten Feldes im Kombinationsfeld angezeigt, nicht aber der Primärschlüsselwert aus dem ersten Feld. Dieser wird allein als Wert der gebundenen Spalte genutzt (siehe Bild 1).<\/p>\n
\"Einfache<\/p>\n
Bild 1: Einfache Auswahl<\/span><\/b><\/p>\n
Hier haben wir die beiden Felder Nachname <\/b>und Vorname<\/b>, getrennt durch ein Komma, zu einem neuen Feld namens Kunde <\/b>zusammengefasst, damit beide Feldinhalte sowohl in der Auswahlliste als auch als ausgewählter Eintrag angezeigt werden (siehe Bild 2).<\/p>\n
\"Anzeige<\/p>\n
Bild 2: Anzeige des gewählten Eintrags<\/span><\/b><\/p>\n
Eintrag  hinzufügen<\/h2>\n
Nun wollen wir dem Benutzer deutlich machen, dass er in diesem Feld einen Eintrag auswählen soll. Dazu soll das Feld einen Eintrag mit dem Text  <\/b>hinzufügen, der immer direkt beim Öffnen des Formulars angezeigt wird.<\/p>\n
Dazu wollen wir per UNION<\/b>-Abfrage einen Eintrag voranstellen. Die UNION<\/b>-Abfrage führt zwei einzelne SELECT<\/b>-Abfragen zusammen und sieht wie folgt aus:<\/p>\n
SELECT 0 AS KundeID, ''<Auswählen>'' AS Kunde \r\nFROM tblKunden \r\nUNION \r\nSELECT tblKunden.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde \r\nFROM tblKunden \r\nORDER BY [Nachname] & \", \" & [Vorname];<\/pre>\n
Damit erhalten wir beim Aufklappen des Kombinationsfeldes, das wir als neues Kombinationsfeld namens cboAuswaehlen <\/b>angelegt haben, allerdings direkt die erste Fehlermeldung (siehe Bild 3). Wir müssten also noch die Felder Nachname <\/b>und Vorname <\/b>in den ersten SELECT<\/b>-Ausdruck übernehmen, damit die Sortierung funktioniert.<\/p>\n
\"Fehlermeldung<\/p>\n
Bild 3: Fehlermeldung durch die ORDER BY-Klausel<\/span><\/b><\/p>\n
Das lässt sich allerdings leicht beheben, indem wir einfach in der vom Abfragegenerator erzeugten ORDER BY<\/b>-Klausel [Nachname] & „, “ & [Vorname] <\/b>durch das weiter vorn aus diesen Feldern zusammengesetzte Feld Kunde <\/b>ersetzen:<\/p>\n
SELECT 0 AS KundeID, ''<Auswählen>'' AS Kunde \r\nFROM tblKunden \r\nUNION \r\nSELECT tblKunden.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde FROM tblKunden\r\nORDER BY Kunde;<\/pre>\n
Damit erhalten wir dann auch wie in Bild 4 das angestrebte Zwischenergebnis – der Eintrag <\/b> wird als erster Eintrag der Auswahlliste angezeigt.<\/p>\n
\"Anzeige“ width=“424,7115″ height=“152,7926″\/><\/p>\n
Bild 4: Anzeige des Eintrags <\/span><\/b><\/p>\n
 als Standardwert<\/h2>\n
Wenn das Kombinationsfeld nun gleich beim Anzeigen den Eintrag  <\/b>anzeigen soll, müssen Sie noch eine Ereignisprozedur anlegen, die dies beim Öffnen des Formulars einrichtet. Das erledigen wir mit der Ereigniseigenschaft Beim Laden<\/b>, für die wir den Wert [Ereignisprozedur] <\/b>einstellen und dann mit einem Klick auf die Schaltfläche mit den drei Punkten eine Ereignisprozedur erstellen, die wir wie folgt füllen:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Me!cboAuswaehlen = Me!cboAuswaehlen.ItemData(0)\r\nEnd Sub<\/span><\/pre>\n
Dann erscheint der <\/b>-Eintrag auch direkt beim Öffnen des Formulars (siehe Bild 5).<\/p>\n
\"Anzeige gleich beim Öffnen des Formulars“ width=“424,7115″ height=“167,0532″\/><\/p>\n
Bild 5: Anzeige des Eintrags  gleich beim Öffnen des Formulars<\/span><\/b><\/p>\n
Dadurch, dass wir als Wert des Feldes KundeID <\/b>für den <\/b>-Eintrag die Zahl 0 <\/b>angegeben haben, könnten wir die Anweisung auch wie folgt formulieren:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Me!cboAuswaehlen = 0\r\nEnd Sub<\/span><\/pre>\n
Und dass der Eintrag  <\/b>direkt als erster Eintrag des Kombinationsfeldes erscheint, ist auch kein Zufall: Wir haben extra das Kleiner-Zeichen als erstes Zeichen gewählt, weil es in der Sortierung nach dem ASCII-Code vor den Buchstaben liegt.<\/p>\n
Sortierung nach dem Primärschlüsselwert<\/h2>\n
Wenn Sie etwa das Feld AnredeID <\/b>in einem Kombinationsfeld namens cboAnredeID <\/b>auf die gleiche Weise abbilden wollen – also etwa wie in Bild 6 -, können Sie die Sortierung auch anders erzeugen.<\/p>\n
\"Auswählen<\/p>\n
Bild 6: Auswählen von Anreden<\/span><\/b><\/p>\n
In diesem Fall verwenden wir die folgende Datensatzherkunft:<\/p>\n
SELECT 0 AS AnredeID, ''<Auswählen>'' AS Anrede \r\nFROM tblAnreden \r\nUNION \r\nSELECT tblAnreden.AnredeID, tblAnreden.Anrede \r\nFROM tblAnreden \r\nORDER BY AnredeID;<\/pre>\n
Der Unterschied ist, dass wir hier nach dem Feld AnredeID <\/b>sortieren und nicht nach dem Feld Anrede<\/b>. Der Grund ist, dass wir die Werte dieser Tabelle direkt in der gewünschten Reihenfolge eingegeben haben und daher eine Sortierung nach dem Primärschlüsselwert möglich ist. Auch hier können wir dann direkt den Wert des Kombinationsfeldes auf 0 <\/b>einstellen:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Me!cboAnreden = 0\r\nEnd Sub<\/span><\/pre>\n
Datensatzherkunft leer<\/h2>\n
Es kann sein, dass Sie diese Konstellation für eine leere Kundentabelle verwenden. Wenn Sie das Formular dann öffnen, zeigt das Kombinationsfeld überhaupt keinen Eintrag an – auch der Eintrag  <\/b>ist verschwunden (siehe Bild 7).<\/p>\n
\"UNION<\/p>\n
Bild 7: UNION mit einer leeren Tabelle zeigt keine Datensätze.<\/span><\/b><\/p>\n
Das ist übrigens ein Unterschied zu dem Fall, wo die zweite Abfrage lediglich keinen Wert zurückliefert, die referenzierte Tabelle aber bereits Datensätze enthält. Wenn tblKunden <\/b>nicht leer ist, wir aber als Kriterium 1=2 <\/b>definieren, wird nur der Eintrag  <\/b>angezeigt:<\/p>\n
SELECT 0 AS KundeID, ''<Auswählen>'' AS Kunde \r\nFROM tblKunden \r\nUNION \r\nSELECT tblKunden.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde \r\nFROM tblKunden \r\nWHERE 1=2 ORDER BY Kunde;<\/pre>\n
<\/p>\n
Wie aber zeigen wir nun den Eintrag  <\/b>an, auch wenn die Tabelle tblKunden <\/b>keine Einträge enthält Das Problem ist genau genommen, dass wir auch im ersten Teil der UNION<\/b>-Abfrage die Tabelle tblKunden <\/b>als Datenquelle angegeben haben.<\/p>\n
Wir brauchen also nur einen anderen Tabellennamen anzugeben, zum Beispiel MSysObjects <\/b>– diese Tabelle ist in einer Access-Anwendung immer vorhanden:<\/p>\n
SELECT 0 AS KundeID, ''<Auswählen>'' AS Kunde \r\nFROM MSysObjects \r\nUNION \r\nSELECT tblKundenLeer.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde \r\nFROM tblKundenLeer \r\nORDER BY Kunde;<\/pre>\n
Damit gelingt dann auch die Anzeige des Eintrags <\/b>, obwohl die hier verwendete Tabelle tblKundenLeer <\/b>keine Datensätze enthält (siehe Bild 8).<\/p>\n
\"UNION.“ width=“424,7115″ height=“107,2591″ \/><\/p>\n
Bild 8: UNION mit einer leeren Tabelle zeigt den Eintrag .<\/span><\/b><\/p>\n
Wenn Sie auch für den Fall sichergehen wollen, dass Sie einmal die Daten aus den Tabellen etwa einer SQL Server-Datenbank beziehen, können Sie auch eine Hilfstabelle namens tblKombihelfer <\/b>anlegen, die wie in Bild 9 aufgebaut ist.<\/p>\n
\"Entwurf<\/p>\n
Bild 9: Entwurf der Hilfstabelle tblKombihelfer<\/span><\/b><\/p>\n
In der Tabelle tblKombihelfer <\/b>legen wir dann die verschiedenen benötigten Einträge an (siehe Bild 10). In der UNION<\/b>-Abfrage fügen wir dann die entsprechenden Einträge zur Datensatzquelle des Kombinationsfeldes hinzu:<\/p>\n
\"Datenblattansicht<\/p>\n
Bild 10: Datenblattansicht der Hilfstabelle tblKombihelfer<\/span><\/b><\/p>\n
SELECT ID AS KundeID, Wert AS Kunde \r\nFROM tblKombihelfer \r\nWHERE ID IN (0) \r\nUNION \r\nSELECT tblKundenLeer.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde \r\nFROM tblKundenLeer \r\nORDER BY Kunde<\/pre>\n
Wir müssen allerdings nach wie vor die Alias-Bezeichnungen KundeID <\/b>und Kunde <\/b>verwenden, da die Feldnamen der per UNION <\/b>zusammengeführten Tabellen gleich lauten müssen. Nun finden wir den Eintrag ebenfalls im Kombinationsfeld vor – hier in cboUNIONMittblKombihelfer<\/b>.<\/p>\n
 im Kombinationsfeld<\/h2>\n
Auf die gleiche Weise können wir einen Eintrag namens  <\/b>hinzufügen. Dazu erweitern wir den Wert der Eigenschaft Datensatzherkunft <\/b>einfach um den entsprechenden Wert für die WHERE<\/b>-Klausel der ersten Tabelle vor dem UNION<\/b>-Schlüsselwort:<\/p>\n
SELECT ID AS KundeID, Wert AS Kunde \r\nFROM tblKombihelfer \r\nWHERE ID IN (0, -1) \r\nUNION \r\nSELECT tblKundenLeer.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde \r\nFROM tblKundenLeer\r\nORDER BY Kunde;<\/pre>\n
Die Voreinstellung realisieren wir wieder wie folgt:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Me!cboNeuerEintrag = 0\r\nEnd Sub<\/span><\/pre>\n
Das Ergebnis sieht wie in Bild 11 aus. Wenn Sie den Eintrag  <\/b>jedoch auswählen, wird dieser lediglich als ausgewählter Eintrag angezeigt – sonst geschieht nichts.<\/p>\n
\"Der“ width=“424,7115″ height=“172,716″ \/><\/p>\n
Bild 11: Der neue Eintrag <\/span><\/b><\/p>\n
Dazu müssen wir noch eine Ereignisprozedur hinterlegen, die durch das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes ausgelöst wird.<\/p>\n
Vorher erstellen wir allerdings noch das Formular frmKundendetails<\/b>. Dieses sieht im Entwurf wie in Bild 12 aus. Das Formular wird über die Eigenschaft Datensatzquelle <\/b>an die Tabelle tblKunden <\/b>gebunden und wir ziehen alle Felder dieser Tabelle aus der Feldliste in den Entwurfsbereich. Außerdem fügen wir die beiden Schaltflächen cmdOK <\/b>und cmdAbbrechen <\/b>zum Formular hinzu.<\/p>\n
\"Entwurf<\/p>\n
Bild 12: Entwurf des Formulars frmKundendetails<\/span><\/b><\/p>\n
Für die Schaltfläche cmdOK <\/b>hinterlegen wir die folgende Ereignisprozedur:<\/p>\n
Private Sub <\/span>cmdOK_Click()\r\n     Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\n
Dadurch wird das Formular ausgeblendet, aber nicht geschlossen, wenn der Benutzer diese Schaltfläche betätigt. Das ist so gewünscht, damit wir nach dem Schließen vom aufrufenden Formular aus noch auslesen können, welchen neuen Kunden der Benutzer zur Tabelle tblKunden <\/b>hinzugefügt hat. Die Abbrechen<\/b>-Schaltfläche statten wir mit dieser Prozedur aus:<\/p>\n
Private Sub <\/span>cmdAbbrechen_Click()\r\n     Me.Undo\r\n     DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\n
Die Ereignisprozedur soll die Änderungen einfach verwerfen und das Formular schließen.<\/p>\n
Für die Ereigniseigenschaft Nach Aktualisierung <\/b>des Kombinationsfeldes cboNeuerEintrag <\/b>hinterlegen wir danach die folgende Ereignisprozedur:<\/p>\n
Private Sub <\/span>cboNeuerEintrag_AfterUpdate()\r\n     Dim <\/span>lngKundeID As Long<\/span>\r\n     If <\/span>Me!cboAnreden = -1 Then<\/span>\r\n         DoCmd.OpenForm \"frmKundendetails\", _\r\n             WindowMode:=acDialog, DataMode:=acFormAdd\r\n         If <\/span>IstFormularGeoeffnet(\"frmKundendetails\") Then<\/span>\r\n             lngKundeID = _\r\n                 Nz(Forms!frmKundendetails!KundeID, 0)\r\n             DoCmd.Close acForm, \"frmKundendetails\"\r\n             If <\/span>Not<\/span> lngKundeID = 0 Then<\/span>\r\n                 Me!cboNeuerEintrag.Requery\r\n                 Me!cboNeuerEintrag = lngKundeID\r\n             End If<\/span>\r\n         End If<\/span>\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Die Prozedur prüft, ob das Kombinationsfeld den Wert -1 <\/b>aufweist, was dem Eintrag  <\/b>entspricht. Erst dann öffnet die Prozedur das Formular frmKundendetails <\/b>als modalen Dialog, das heißt, das Formular verliert innerhalb der Access-Anwendung erst den Fokus, wenn es geschlossen oder unsichtbar gemacht wird (siehe Bild 13). Außerdem legen wir für den Parameter DataMode <\/b>den Wert acFormAdd <\/b>fest, was bedeutet, dass das Formular mit einem neuen, leeren Datensatz geöffnet wird.<\/p>\n
\"Öffnen<\/p>\n
Bild 13: Öffnen des Formulars zum Anlegen eines neuen Datensatzes<\/span><\/b><\/p>\n
Die aufrufende Prozedur läuft erst weiter, wenn das Formular frmKundendetails <\/b>den Fokus verliert, was – wie oben beschrieben – nur beim Schließen oder Unsichtbarmachen geschieht. Dann prüft sie mit der Hilfsfunktion IstFormularGeoeffnet<\/b>, ob das Formular noch offen ist. Das ist nur der Fall, wenn der Benutzer das Formular mit der OK<\/b>-Schaltfläche schließt, beim Schließen mit Abbrechen <\/b>wird das Formular geschlossen (dazu später mehr). Ist das Formular noch geöffnet, fragt die Prozedur den Wert des Feldes KundeID <\/b>ab. Hat der Benutzer einen neuen Datensatz angelegt, hat KundeID <\/b>einen Wert ungleich Null. Dann liefert die Nz<\/b>-Funktion den tatsächlichen Wert des Feldes KundeID <\/b>an die Variable lngKundeID<\/b>. Anderenfalls liefert die Nz<\/b>-Funktion den Wert des zweiten Parameters zurück, in diesem Fall 0<\/b>.<\/p>\n
Bevor dieser Wert in der folgenden If…Then<\/b>-Bedingung geprüft wird, schließt die Prozedur zunächst einmal das Formular. Das führt dazu, dass der dort angelegt Datensatz in die zugrunde liegende Tabelle tblKunden <\/b>übertragen wird – vorher ist das noch nicht der Fall. Erst danach können wir mit der Requery<\/b>-Methode das Kombinationsfeld cboNeuerEintrag <\/b>so aktualisieren, dass der neue Eintrag danach auch im Kombinationsfeld angezeigt wird (siehe Bild 14). Dann können wir diesen im Kombinationsfeld durch Einstellen des Wertes von cboNeuerEintrag <\/b>auf lngKundeID <\/b>per Code auswählen.<\/p>\n
\"Speichern<\/p>\n
Bild 14: Speichern und Auswählen des neuen Datensatzes im Kombinationsfeld<\/span><\/b><\/p>\n
 und  in gebundenen Feldern<\/h2>\n
Bisher haben wir mit einem ungebundenen Formular gearbeitet. Nun wollen wir ausprobieren, ob dies auch in einem gebundenen Formular wie gewünscht funktioniert. Dazu legen wir in der Datenbank eine neue Tabelle namens tblProjekte <\/b>an, die aus den Feldern ProjektID<\/b>, Projektbezeichnung <\/b>und KundeID <\/b>besteht, wobei Kunde-ID<\/b> ein Nachschlagefeld zur Auswahl eines der Einträge der Tabelle tblKunden <\/b>ist.<\/p>\n
Im Formular frmProjektdetails <\/b>verwenden wir die Tabelle tblProjekte <\/b>als Datensatzquelle für das Formular und ziehen alle Einträge der Tabelle aus der Feldliste in den Formularentwurf (siehe Bild 15). Dann benennen wir das Kombinationsfeld KundeID <\/b>in cboKundeID <\/b>um und statten es mit der folgenden Datensatzherkunft aus:<\/p>\n
\"Entwurf<\/p>\n
Bild 15: Entwurf des Formulars frmProjektdetails<\/span><\/b><\/p>\n
SELECT ID AS KundeID, Wert AS Kunde \r\nFROM tblKombihelfer WHERE ID IN (0, -1) \r\nUNION \r\nSELECT tblKunden.KundeID, [Nachname] & \", \" \r\n     & [Vorname] AS Kunde \r\nFROM tblKunden ORDER BY Kunde;<\/pre>\n
Nun soll das Kombinationsfeld auch noch den Eintrag  <\/b>anzeigen, wenn noch kein Eintrag ausgewählt wurde (siehe Bild 16). In den ungebundenen Formularen haben wir dazu einfach beim Öffnen des Formulars eine Prozedur aufgerufen, welche den Wert des Kombinationsfeldes auf 0 <\/b>eingestellt hat – also den Wert des Eintrags  <\/b>in der Datensatzherkunft des Kombinationsfeldes.<\/p>\n
\"Das<\/p>\n
Bild 16: Das Formular frmProjektdetails mit Standardwert im Kombinationsfeld zur Auswahl der Kunden<\/span><\/b><\/p>\n
Das funktioniert hier schon deshalb nicht, weil es sich um ein gebundenes Formular handelt und sich der Wert des Kombinationsfeldes für jeden Datensatz ändern können soll. Wir müssen also beim Anzeigen eines jeden Datensatzes tätig werden. Ein erster Versuch sieht so aus:<\/p>\n
Private Sub <\/span>Form_Current()\r\n     Me!cboKundeID = 0\r\nEnd Sub<\/span><\/pre>\n
Damit erreichen wir allerdings nur, dass das Feld Kunde-ID <\/b>für jeden so angezeigten Datensatz auf den Wert 0 <\/b>eingestellt wird – und das ist sicher nicht, was wir wollen! Davon abgesehen können die Datensätze so auch nicht gespeichert werden, denn es existiert ja kein Primärschlüsselwert mit dem Wert 0 <\/b>in der verknüpften Tabelle tblKunden<\/b>.<\/p>\n
Stattdessen stellen wir die Eigenschaft DefaultValue <\/b>auf den Wert 0 <\/b>ein, und zwar einmalig beim Öffnen des Formulars:<\/p>\n
Private Sub <\/span>Form_Load()\r\n     Me!cboKundeID.DefaultValue = 0\r\nEnd Sub<\/span><\/pre>\n
Fehler bei Auswahl und Speichern von <\/h2>\n
Wenn der Benutzer nun beim Anlegen eines neuen Datensatzes im Formular frmProjektdetails <\/b>den Eintrag  <\/b>stehen lässt und versucht, den Datensatz zu speichern, erhält er die Meldung aus Bild 17. Das Gleiche geschieht, wenn er für einen bereits gespeicherten Datensatz hier nachträglich den Eintrag  <\/b>festlegt und versucht, den Datensatz erneut zu speichern.<\/p>\n
\"Fehler“ width=“700″ height=“182,7434″ \/><\/p>\n
Bild 17: Fehler nach der Auswahl des Eintrags <\/span><\/b><\/p>\n
Das ist keine Frage in unmittelbarem Zusammenhang mit der vorliegenden Technik, sondern eine Frage der Validierung. Sie müssen hier schlicht vor dem Speichern des Datensatzes prüfen, ob der Benutzer für das Feld KundeID <\/b>einen gültigen Wert ausgewählt hat. Der Fehler tritt auch auf, wenn wir ein herkömmliches Kombinationsfeld leer lassen würden. Um die Sache rund zu machen, fügen wir noch die folgende Ereignisprozedur hinzu, die durch das Ereignis Vor Aktualisierung <\/b>ausgelöst wird:<\/p>\n
Private Sub <\/span>Form_BeforeUpdate(Cancel As Integer<\/span>)\r\n     If <\/span>Nz(Me!cboKundeID, 0) = 0 Then<\/span>\r\n         MsgBox<\/span> \"Sie müssen einen Eintrag für das Feld  ''Kunde'' auswählen.\"\r\n         Me!cboKundeID.SetFocus\r\n         Me!cboKundeID.Dropdown\r\n         Cancel = True<\/span>\r\n     End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Dadurch erscheint bei fehlender Eingabe eines Kunden eine Meldung wie in Bild 18. Nachdem der Benutzer auf die Schaltfläche OK <\/b>geklickt hat, wird der Fokus auf cboKundeID <\/b>verschoben, die Liste der möglichen Werte aufgeklappt und der Parameter Cancel <\/b>auf True <\/b>eingestellt, damit das Speichern des Datensatzes abgebrochen wird.<\/p>\n
\"Meldung<\/p>\n
Bild 18: Meldung nach fehlender Auswahl eines Kunden<\/span><\/b><\/p>\n
Zusammenfassung und Ausblick<\/h2>\n
Damit haben Sie einige Techniken rund um zusätzliche Einträge in Kombinationsfeldern mit und ohne Funktion neben der eigentlichen Anzeige kennengelernt.<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
KombiAuswahlNeu.accdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Normalerweise enthalten Kombinationsfelder nur die Einträge einer Tabelle oder Abfrage als Datensatzherkunft. Manchmal wollen Sie dem Benutzer aber mit dem Kombinationsfeld noch mehr Funktionen bieten. Zum Beispiel wollen Sie vielleicht den Text  anzeigen, damit der Benutzer sieht, dass hier eine Auswahl vorzunehmen ist oder Sie möchten dem Benutzer mit einem Eintrag wie  die Möglichkeit geben, direkt über die Auswahl dieses Eintrags ein Detailformular zur Eingabe eines neuen Datensatzes zu öffnen. Dieser Beitrag zeigt, wie das funktioniert und welche Herausforderungen es gibt, wenn das Kombinationsfeld sonst noch keine Daten anzeigt.<\/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":[662019,66052019,44000023],"tags":[],"class_list":["post-55001206","post","type-post","status-publish","format-standard","hentry","category-662019","category-66052019","category-Mit_Formularen_arbeiten"],"yoast_head":"\nKombinationsfeld mit Extraeinträgen - Access im Unternehmen<\/title>\n<meta name=\"description\" content=\"Nur der Metatext.\" \/>\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\/Kombinationsfeld_mit_Extraeintraegen\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Kombinationsfeld mit Extraeinträgen\" \/>\n<meta property=\"og:description\" content=\"Nur der Metatext.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-13T20:56:32+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg06.met.vgwort.de\/na\/8760f5cf88304881b69696553af76733\" \/>\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=\"13\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Kombinationsfeld mit Extraeinträgen\",\"datePublished\":\"2020-05-13T20:56:32+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/\"},\"wordCount\":2215,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/8760f5cf88304881b69696553af76733\",\"articleSection\":[\"2019\",\"5\\\/2019\",\"Mit Formularen arbeiten\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/\",\"name\":\"Kombinationsfeld mit Extraeinträgen - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/8760f5cf88304881b69696553af76733\",\"datePublished\":\"2020-05-13T20:56:32+00:00\",\"description\":\"Nur der Metatext.\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/8760f5cf88304881b69696553af76733\",\"contentUrl\":\"http:\\\/\\\/vg06.met.vgwort.de\\\/na\\\/8760f5cf88304881b69696553af76733\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Kombinationsfeld_mit_Extraeintraegen\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Kombinationsfeld mit Extraeinträgen\"}]},{\"@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":"Kombinationsfeld mit Extraeinträgen - Access im Unternehmen","description":"Nur der Metatext.","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\/Kombinationsfeld_mit_Extraeintraegen\/","og_locale":"de_DE","og_type":"article","og_title":"Kombinationsfeld mit Extraeinträgen","og_description":"Nur der Metatext.","og_url":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-13T20:56:32+00:00","og_image":[{"url":"http:\/\/vg06.met.vgwort.de\/na\/8760f5cf88304881b69696553af76733","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"13\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Kombinationsfeld mit Extraeinträgen","datePublished":"2020-05-13T20:56:32+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/"},"wordCount":2215,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#primaryimage"},"thumbnailUrl":"http:\/\/vg06.met.vgwort.de\/na\/8760f5cf88304881b69696553af76733","articleSection":["2019","5\/2019","Mit Formularen arbeiten"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/","url":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/","name":"Kombinationsfeld mit Extraeinträgen - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#primaryimage"},"thumbnailUrl":"http:\/\/vg06.met.vgwort.de\/na\/8760f5cf88304881b69696553af76733","datePublished":"2020-05-13T20:56:32+00:00","description":"Nur der Metatext.","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#primaryimage","url":"http:\/\/vg06.met.vgwort.de\/na\/8760f5cf88304881b69696553af76733","contentUrl":"http:\/\/vg06.met.vgwort.de\/na\/8760f5cf88304881b69696553af76733"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Kombinationsfeld_mit_Extraeintraegen\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Kombinationsfeld mit Extraeinträgen"}]},{"@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\/55001206","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=55001206"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55001206\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55001206"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55001206"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55001206"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}