Private Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\nEnd Sub<\/span><\/pre>\nEs bietet einen Parameter namens Cancel<\/b>, mit dem sich das öffnen abbrechen lässt, und das ist einer der wesentlichen Unterschiede zum Ereignis Form_Load<\/b>, das wir gleich vorstellen.<\/p>\nDas Ereignis Beim Laden<\/h2>\n
Dieses Ereignis wird nach dem Ereignis Form_Open <\/b>ausgelöst. Der wesentliche Unterschied zwischen beiden Ereignissen ist, dass Sie das öffnen des Formulars im Ereignis Beim öffnen <\/b>abbrechen können. Außerdem bietet das Form_Load<\/b>-Ereignis die Möglichkeit, die angezeigten Daten bereits beim Laden per VBA-Code anzupassen.<\/p>\nöffnungsvorgang abbrechen<\/h2>\n
Wenn Sie den Parameter Cancel <\/b>auf den Wert True <\/b>einstellen, wird das Formular gar nicht erst geöffnet – probieren Sie es aus:<\/p>\nPrivate Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n Cancel = True<\/span>\r\nEnd Sub<\/span><\/pre>\nNatürlich macht es keinen Sinn, ein Formular mit einer Prozedur auszustatten, die dieses sofort wieder schließt. Dafür sollte es schon eine entsprechende Bedingung geben – zum Beispiel, dass das Formular keine Daten enthält. Dies lässt sich wie folgt realisieren:<\/p>\n
Private Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n If <\/span>Me.Recordset.EOF Then<\/span>\r\n MsgBox<\/span> \"Das Formular enthält keine Daten.\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDas Recordset<\/b>-Objekt ermöglicht den Zugriff auf die Daten des Formulars. Wenn die Eigenschaft EOF <\/b>wahr ist, bedeutet dies, dass der Datensatzzeiger sich hinter dem letzten Datensatz befindet, was gleichbedeutend mit einer leeren Datenherkunft ist. In diesem Fall soll eine Meldung erscheinen und der Parameter Cancel <\/b>auf den Wert True <\/b>eingestellt werden, damit das Formular nach der Anzeige der Meldung gar nicht erst geöffnet wird.<\/p>\n
Wie können Sie dies ausprobieren Indem Sie das Formular mit der DoCmd.OpenForm<\/b>-Methode öffnen und dabei eine WhereCondition <\/b>übergeben, die garantiert für keinen Datensatz der Datenherkunft gilt. Ein passender Kandidat für eine solche Bedingung lautet 1=2<\/b>. Setzen Sie die folgende Anweisung im Direktbereich des VBA-Editors ab:<\/p>\nDoCmd.OpenForm \"frmOhneDaten\", WhereCondition:=\"1=2\"<\/pre>\nDie Meldung erscheint wie erwartet, aber leider zieht der Aufruf auch noch einen Fehler nach sich (siehe Bild 1). Um diesen Fehler zu verhindern, müssen Sie die DoCmd.OpenForm<\/b>-Methode in eine kleine Fehlerbehandlung integrieren. Diese sorgt dafür, dass im Falle des Fehlers 2501 <\/b>keine Meldung angezeigt wird, sondern nur bei anderen Fehlercodes:<\/p>\n
![\"Fehler](\"..\/tl_files\/images\/pic_118_001.png\")
<\/a><\/p>\nBild 1: Fehler beim Abbruch des öffnungsvorgangs<\/p>\n
Public Sub <\/span>FormularOeffnenAbbrechen()\r\n On Error Resume Next<\/span>\r\n DoCmd.OpenForm \"frmOhneDaten\", WhereCondition:=\"1=2\"\r\n Select Case Err.Number\r\n Case <\/span>0, 2501\r\n Case Else<\/span>\r\n MsgBox<\/span> \"Fehler\"\r\n End Select<\/span>\r\n On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\nDatenherkunft einstellen<\/h2>\n
Meistens ist die Tabelle oder Abfrage, welche die Daten für ein Formular liefert, bereits vor dem öffnen bekannt und wird für die Eigenschaft Datenherkunft <\/b>des Formulars eingestellt. Gegebenfalls geben Sie beim öffnen mit Docmd.OpenForm <\/b>noch eine WhereCondition <\/b>oder einen Filter <\/b>mit, um die Daten einzuschränken.<\/p>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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