Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.

Share this Page URL
Help

3 Formulare > 3.9Suchen in Formularen - Pg. 258

Kapitel 3 Formulare Fehler ausgelöst wurde, und behandeln den Fehler dem betroffenen Feld entsprechend. Ähnlich ist es beim Speichern des Datensatzes ohne Füllen des Pflichtfeldes KundeID. Die Fehlernummer lautet 3201 und Sie ermitteln ganz einfach, ob das Feld KundeID für die- sen Fehler verantwortlich ist, indem Sie dessen Inhalt überprüfen. Ist dieser Null, muss der Benutzer den entsprechenden Kunden noch nachreichen. Wenn Sie nicht sicher sind, welche Fehlernummer sich hinter den eingebauten Feh ler mel dungen verbirgt, lassen Sie sich in dieser Routine einfach den Wert DataErr mit der Debug.Print-Methode ausgeben. Private Sub Form_Error(DataErr As Integer, Response As Integer) Dim ctl As Control Select Case DataErr Case 2113 Set ctl = Screen.ActiveControl Select Case ctl.Name Case "Startdatum", "Enddatum" MsgBox "Bitte geben Sie ein Datum im Format " _ "'dd.mm.jjjj' ein.", vbOKOnly + vbExclamation, _ "Eingabefehler" Response = acDataErrContinue Exit Sub