Option Compare Database Private Sub cmdAbbrechen_Click() DoCmd.Close End Sub Private Sub cmdSpeichern_Click() Dim dbs_mic As Database Dim rst_Ort As Recordset Dim SQL As String SQL = "SELECT tbl_ORT.* FROM tbl_ORT WHERE (((tbl_ORT.ORT_ID)='" & ORT_ID & "') AND ((tbl_ORT.ORT_LDC_ID)='" & ORT_LDC_ID & "'));" Set dbs_mic = CurrentDb Set rst_Ort = dbs_mic.OpenRecordset(SQL, dbOpenDynaset) On Error GoTo ERR_cmdSpeichern_Click If rst_Ort.EOF = True Then rst_Ort.AddNew rst_Ort!ORT_LDC_ID = ORT_LDC_ID rst_Ort!ORT_ID = ORT_ID rst_Ort!ORT_NAME = ORT_NAME rst_Ort.Update Else rst_Ort.Edit rst_Ort!ORT_NAME = ORT_NAME rst_Ort.Update End If DoCmd.Close Exit Sub '//Fehlerbehandlung ERR_cmdSpeichern_Click: MsgBox Err.Description Exit Sub End Sub