![\"Beispiel](\"..\/tl_files\/images\/pic_370_001.png\")
<\/a><\/p>\nBild 1: Beispiel für das Aufrufen eines Detailformulars<\/p>\n
Hier gibt es nun im Detailformular die Möglichkeit, einen anderen Datensatz, also einen anderen Vertrag, auszuwählen. Die Auswahl in diesem Formular soll dann beim Schließen in das aufrufende Formular übernommen werden – gegebenenfalls auch erst nach Rückfrage an den Benutzer, da dieser sich möglicherweise nicht im Klaren darüber ist, dass er damit auch den Eintrag im Kombinationsfeld manipuliert.<\/p>\n
Herkömmliche Technik<\/h2>\n
Normalerweise würden Sie, wenn Sie wie hier per Doppelklick auf ein Kombinationsfeld von einem Formular aus ein Detailformular öffnen, eine bewährte Vorgehensweise nutzen.<\/p>\n
Damit wir die Originalformulare der Beispieldatenbank nicht bearbeiten müssen, haben wir die beiden Formulare unter den Namen frmSIMKarten_Herkoemmlich <\/b>und frmVertragsdetails_Herkoemmlich <\/b>kopiert.<\/p>\n
Die Vorgehensweise sieht so aus, dass wir beim Doppelklick auf das Kombinationsfeld das Formular frmVertragsdetails_Herkoemmlich <\/b>als modalen Dialog öffnen.<\/p>\n
Die beiden Schaltflächen cmdSpeichern <\/b>und cmdVerwerfen<\/b> statten wir dabei mit entsprechenden Funktionen aus: cmdSpeichern <\/b>speichert den Datensatz und macht das Formular dann unsichtbar. cmdVerwerfen <\/b>verwirft die änderungen und schließt das Formular.<\/p>\n
Warum Weil die Prozedur, die das Formular frmVertragsdetails_Herkoemmlich <\/b>als modalen Dialog geöffnet hat, erst nach dem Fokusverlust von frmVertragsdetails_Herkoemmlich<\/b> fortgesetzt wird. Der Fokusverlust tritt sowohl beim Schließen als auch beim Verbergen des Formulars ein. In der aufrufenden Prozedur prüfen wir dann, ob das Formular noch geöffnet ist. Falls nicht, ist der Fall klar: Der Benutzer hat die änderungen verworfen und es sind keine weiteren Schritte im aufrufenden Formular nötig. Ist das Formular jedoch noch geöffnet, muss es zumindest unsichtbar sein, denn sonst würde die aufrufende Prozedur nicht weiter ausgeführt werden.<\/p>\n
In diesem Fall haben wir von dieser Prozedur aus vollen Zugriff auf das Formular – auch wenn dieses nicht mehr sichtbar ist. Wir können dann prüfen, ob der Benutzer einen anderen Datensatz im Formular ausgewählt hat und diesen dann entweder in das Kombinationsfeld im aufrufenden Formular übernehmen oder Rücksprache mit dem Benutzer halten, ob dies gewünscht ist.<\/p>\n
Schauen wir uns den benötigten Code an. Wir starten mit der Prozedur, die durch das Ereignis Beim Doppelklicken <\/b>auf das Kombinationsfeld cboVertragID <\/b>ausgelöst wird und die wie in Listing 1 aussieht.<\/p>\n Listing 1: Aufrufen des Formulars frmVertragsdetails_Herkoemmlich und Auswerten des dort selektierten Vertrags<\/p>\n Hier ist zunächst nur interessant, wie wir das Formular frmVertragsdetails_Herkoemmlich <\/b>aufrufen. Wir übergeben dabei nämlich keinen WhereCondition<\/b>-Parameter, denn dies würde die Datenherkunft des Formulars einschränken und man könnte nicht mehr leicht über das Kombinationsfeld einen anderen Vertrag auswählen.<\/p>\n Stattdessen übergeben wir mit dem Parameter OpenArgs <\/b>den Wert der gebundenen Spalte des Kombinationsfeldes cboVertragID<\/b>, also die VertragID <\/b>des anzuzeigenden Vertrags.<\/p>\n Entscheidend ist auch, dass wir für den Parameter WindowMode <\/b>den Wert acDialog <\/b>angeben, wodurch das Formular frmVertragsdetails_Herkoemmlich <\/b>als modaler Dialog geöffnet wird – die aufrufende Prozedur wird erst dann fortgesetzt, wenn das Formular geschlossen oder unsichtbar gemacht wird.<\/p>\n Damit gelangen wir zur Ereignisprozedur Form_Load<\/b>, die beim Laden des Formulars frmVertragsdetails_Herkoemmlich <\/b>ausgelöst wird.<\/p>\n Diese prüft, ob Me.OpenArgs <\/b>einen Wert enthält (Not IsNull(Me.OpenArgs)<\/b>) und verschiebt dann den Datensatzzeiger zu dem Datensatz, dessen Feld Vertrag-ID <\/b>den Wert von Me.OpenArgs <\/b>aufweist:<\/p>\n Damit zeigt das Formular beim öffnen den beim Doppelklick in das Kombinationsfeld ausgewählten Vertrag an. Nun kann der Benutzer die Werte der gebundenen Felder im Formular frmVertragsdetails_Herkoemmlich <\/b>ändern oder auch mit dem Kombinationsfeld cboSchnellauswahl <\/b>einen ganz anderen Vertrag auswählen.<\/p>\n In jedem Fall sollte er eine der Schaltflächen cmdSpeichern <\/b>oder cmdVerwerfen <\/b>anklicken, um die änderungen zu übernehmen oder zu verwerfen. Die Schaltfläche cmdSpeichern_Click <\/b>löst die folgende Ereignisprozedur aus:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private Sub <\/span>cboVertragID_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>strFormular As String<\/span>\r\n strFormular = \"frmVertragdetails_Herkoemmlich\"\r\n If <\/span>Not<\/span> IsNull(Me!cboVertragID) Then<\/span>\r\n DoCmd.OpenForm strFormular, WindowMode:=acDialog, OpenArgs:=Me!cboVertragID\r\n If <\/span>IstFormularGeoeffnet(strFormular) Then<\/span>\r\n If <\/span>Not<\/span> Me!cboVertragID = Forms(strFormular)!VertragID Then<\/span>\r\n If <\/span>MsgBox<\/span>(\"Es wurde ein anderer Vertrag ausgewählt. übernehmen\", vbYesNo) = vbYes Then<\/span>\r\n Me!cboVertragID = Forms(strFormular).VertragID\r\n End If<\/span>\r\n End If<\/span>\r\n DoCmd.Close acForm, strFormular\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n If <\/span>Not<\/span> IsNull(Me.OpenArgs) Then<\/span>\r\n Me.Recordset.FindFirst \"VertragID = \" & Me.OpenArgs\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdSpeichern_Click()\r\n Me.Dirty = False<\/span>\r\n SchaltflaechenDeaktivieren\r\n Me.Visible = False<\/span>\r\nEnd Sub<\/span><\/pre>\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