'Datensatz ändern
 
Private Sub cmd_ändern_Click()
 
On Error GoTo Fehler_Update
 
With Main.rec
.Fields("Knummer") = Me.txt_Knummer.Text
.Fields("Name") = Me.txt_Name.Text
.Fields("Vorname") = Me.txt_Vorname.Text
.Fields("Jahr") = Me.txt_Jahr.Text
.Fields("Diagnose") = Me.txt_Diag.Text
.Fields("Spezifikation") = Me.txt_Spez.Text
.Fields("Versicherung") = Me.txt_Vers.Text
.Fields("DokPfad") = Me.txt_Dok.Text
.Update
.Requery
End With
 
MsgBox "Der Datensatz wurde geändert!"
Me.txt_Knummer.Text = ""
Me.txt_Name.Text = ""
Me.txt_Vorname.Text = ""
Me.txt_Jahr.Text = ""
Me.txt_Diag.Text = ""
Me.txt_Spez.Text = ""
Me.txt_Vers.Text = ""
Me.txt_Dok.Text = ""
Call Unload(Maske)
Exit Sub
 
Fehler_Update:
MsgBox "Diese Änderung kann nicht vorgenommen werden. Die Kundennummer ist" & _
  "bereits vorhanden!"
Exit Sub
 
End Sub