Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Danke schon mal für Deine/Eure Mühe!
Public Function makeDouble(ByVal dblVal As Variant) As String
If IsNumeric(dblVal) Then
makeDouble = Replace(dblVal, ",", ".")
Else
Err.Raise vbObjectError + 1000, "mdlGlobal->makeDouble", "Der eingegebene Wert ist keine Zahl!"
End If
End Function
Public Function forceComma(ByVal dblVal As Variant) As String
forceComma = Replace(dblVal, ".", ",")
If Not IsNumeric(forceComma) Then
Err.Raise vbObjectError + 1000, "mdlGlobal->forceComma", "Der eingegebene Wert ist keine Zahl!"
End If
End FunctionPrivate Sub speichern_Click()
If Len(Nz(Me.StartnummerIn, "")) = 0 Then Exit Sub
If Not checkCorrectness(forceComma(Me.ErgebnisIn)) Then 'checkCorrectness needs a Double Value
MsgBox "eingegebener Wert ist nicht korrekt!", vbInformation + vbOKOnly
Me.ErgebnisIn = vbNullString
Me.ErgebnisIn.SetFocus
Else
Set db = CurrentDb
db.Execute "Update tabStarts set Ergebnis = " & makeDouble(Me!ErgebnisIn) & ", Anz10 = " & Me!ZehnerIn & " Where Startnummer = " & Me!StartnummerIn & " And sportjahr = " & pSportjahr
Me.Parent!Ufo1.Requery
Set db = Nothing
clearFields Me, "xd"
Me!StartnummerIn.SetFocus
Me.Parent.Ufo2.Form.Requery
End If
End Sub