Tonisailer schrieb am 09.June.2010, 13:16:04 in der Kategorie pc.sw.office
Private Sub txt_AnmeldeNr_Exit(cancel As Integer)
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End Sub
Private Sub txt_AnmeldeNr_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Ende
Select Case KeyCode
Case 9, 34, 40 \' 9 = Tabulator, 34 = BildNachUnten, 40 = PfeilUnten
DoCmd.GoToControl \"Teilnehmer (Unterformular)\"
End Select
Ende:
End Sub
Bei Neuanlage einer Anmeldenummer läuft die Geschichte einwandfrei; mit dem Verlassen des txt_AnmeldeNr wird in tbl_Konten ein neuer Datensatz geschrieben und der Cursor in das Unterunterformular „Teilnehmer(Unterformular)“ gesetzt.
Bei einer bereits vorhandenen Anmeldenummer erfolgt logischerweise eine Fehlermeldung, da Access aufgrund der Indizierung ohne Duplikate den Datensatz nicht zurückschreiben kann. Demzufolge schlägt Access den Debug-Modus vor.
In diesem Fall möchte ich die Fehlermeldung und das Ausführen des Speicherns unterbinden, das txt_AnmeldeNr-Feld leeren und den Focus dort wieder setzen.
Kann mir jemand einen Tipp geben, mit welchem Ereignis ich die Fehlermeldungen abfangen und/oder unterbinden kann.
Bin für jeden Tipp dankbar.
Gruß aus dem Bergischen Land
Toni