<\/p>\n
Im vorigen Artikel haben wir ein Hauptformular mit einem Unterformular in der Datenblattansicht erstellt. Neue Datensätze wurden direkt in der Datenblattzeile angelegt. Das funktioniert gut für einfache Tabellen, stößt aber schnell an Grenzen, wenn viele Felder zu füllen sind oder Nachschlagefelder und Anlagefelder übersichtlich dargestellt werden sollen. In diesem Artikel erweitern wir das Formular um ein modales Detailformular, das alle Felder der Tabelle tblBuecher<\/b> komfortabel in der normalen Formularansicht anzeigt.<\/p>\nBeispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels findest Du in der Datenbank FormularBasics_DetailformOeffnenUndAuswerten.accdb<\/b>.<\/p>\nDas Konzept<\/h2>\n
In diesem Artikel fügen wir dem Beispiel aus dem Artikel Formulare [basics]: Datenblattansicht effizient nutzen <\/b>(www.access-basics.de\/715<\/b>) ein Detailformular hinzu, mit dem neue Datensätze angefügt und vorhandene Datensätze bearbeitet werden können.<\/p>\n
Das Detailformular wird modal geöffnet, das heißt, der Benutzer kann erst dann mit dem aufrufenden Formular weiterarbeiten, wenn er das Detailformular geschlossen oder ausgeblendet hat. Das Detailformular enthält zwei Schaltflächen: OK<\/b> und Abbrechen<\/b>.<\/p>\n
Ein Klick auf OK<\/b> blendet das Detailformular lediglich aus, anstatt es zu schließen. Dadurch läuft der Code im aufrufenden Formular weiter, der das Unterformular aktualisiert und den neu angelegten Datensatz markiert. Anschließend schließt der aufrufende Code das Detailformular endgültig.<\/p>\n
Ein Klick auf Abbrechen<\/b> verwirft den neuen Datensatz und schließt das Detailformular. Der aufrufende Code erkennt, dass das Formular geschlossen wurde, und verzichtet auf die Aktualisierung des Unterformulars.<\/p>\n
Um zu unterscheiden, ob der Benutzer OK<\/b> oder Abbrechen<\/b> geklickt hat, verwenden wir eine öffentliche Variable blnOK<\/b> im Klassenmodul des Detailformulars. Ob das Formular überhaupt noch geöffnet ist, prüfen wir mit der Hilfsfunktion IstFormularGeoeffnet<\/b>.<\/p>\nDie Hilfsfunktion IstFormularGeoeffnet<\/h2>\n
Die Funktion IstFormularGeoeffnet<\/b> prüft über SysCmd<\/b>, ob ein Formular mit dem angegebenen Namen aktuell geöffnet ist. Wir legen ein allgemeines Modul mdlTools<\/b> an und fügen dort folgende Funktion ein:<\/p>\n SysCmd<\/b> gibt mit dem Parameter acSysCmdGetObjectState<\/b> den Zustand des angegebenen Objekts zurück. Ein Rückgabewert größer als 0 bedeutet, dass das Formular geöffnet ist – gleichgültig, ob es sichtbar ist oder nicht.<\/p>\n Wir legen das Detailformular über den Ribbonbefehl Erstellen|Formulare|Formularentwurf<\/b> an und wählen als Datensatzquelle die Tabelle tblBuecher<\/b>.<\/p>\n Dann ziehen wir alle Felder aus der Feldliste in den Detailbereich. Die Nachschlagefelder VerlagID<\/b>, Kategorie-ID<\/b> und GenreID<\/b> werden von Access automatisch als Kombinationsfelder angelegt, da die entsprechenden Nachschlage-Eigenschaften bereits in der Tabelle hinterlegt sind. Sie zeigen die Klartextwerte aus den Lookup-Tabellen an.<\/p>\n Im Eigenschaftenblatt des Formulars stellen wir folgende Eigenschaften ein (siehe Bild 1):<\/p>\n Bild 1: Eigenschaften des Detailformulars<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public Function <\/span>IstFormularGeoeffnet( _\r\n strFormularname As String<\/span><\/span>) _\r\n As Boolean<\/span><\/span>\r\n If SysCmd(acSysCmdGetObjectState, _\r\n acForm, strFormularname) > 0 Then\r\n IstFormularGeoeffnet = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nDas Detailformular anlegen<\/h2>\n
![\"Eigenschaften](\"..\/tl_files\/images\/pic_646_001.png\")
<\/a><\/p>\n\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t