Private Sub btnspeichern_Click(sender As Object, e As EventArgs) Handles _
    btnspeichern.Click
        Dim NL = Environment.NewLine
        Dim Buchungswert As Double = nud_Betrag_Eingabe.Value
        Dim strBuchungsart01 As String = "Ausgabe"
        Dim strBuchungsart02 As String = "Einnahme"
        Dim Merker_Betrag As Double
        Merker_Betrag = String.Format("{0:N2}", BetragTextBox.Text)
 
        'Eingaben prüfen
        If String.IsNullOrEmpty(BuchungsdatumTextBox.Text) Then : _
          Fehler_Pflichtfeld_Angelegt("Datum:") : Return : End If
        If String.IsNullOrEmpty(BuchungsartTextBox.Text) Then : _
        Fehler_Pflichtfeld_Buchungsart("Buchungsart:") : Return : End If
        If String.IsNullOrEmpty(KategorieTextBox.Text) Then : _
        Fehler_Pflichtfeld_Kategorie("Kategorie:") : Return : End If
        If String.IsNullOrEmpty(KommentarTextBox.Text) Then : _
        Fehler_Pflichtfeld_Kommentar("Kommentar:") : Return : End If
 
 
        If modus_Datensatz_Kontodetails = DatensatzModus.Neu And Buchungswert = _
          0 Then
            Fehler_Pflichtfeld_Betrag(Buchungswert)
            Return
        End If
 
        If modus_Datensatz_Kontodetails = DatensatzModus.Bearbeiten And _
          BS_Kontodetails_TypRow.Betrag <> Merker_Betrag Then
 
            'Abfrage
            Dim Titel As String = "Buchungswert"
            Dim val = String.Format("{0:N2}", BetragTextBox.Text)
            Dim Meldung As String = String.Concat(NL, "Betrag:", NL, _
                                                   val & " uebernehmen")
            Dim Abfrage_Result As DialogResult = MessageBox.Show(Meldung, _
              Titel, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Abfrage_Result = System.Windows.Forms.DialogResult.No Then Return
            BS_Kontodetails_TypRow.Betrag = Merker_Betrag
            End If
 
        'die Prüfung überspringt er immer im Einzelschritt probiert.
        'speichern
        Me.Cursor = Cursors.WaitCursor
        Me.Validate()
        BS_Kontodetails.EndEdit()
 
 
        dict_BS_Pos.Clear()
        dict_BS_Pos.Add(BS_Kontodetails, BS_Kontodetails.Position)
        mod_Saver.SaveDataset(Me.HBDatenbankDS, dict_BS_Pos, _
          KontodetailsTableAdapter.Adapter)
 
        'Dateneingabe fertigstellen und Speichervorgang beenden
        modus_Datensatz_Kontodetails = DatensatzModus.Fertig
        Eingabe_frei_Kontodetails(False, modus_Datensatz_Kontodetails) : _
          TP_gesperrt = False
 
        DGV_Details_SelectRow()
        BS_Kontodetails.MoveFirst()
        BS_Kontodetails.MoveLast()
 
        cbo_Controls()
        Me.Cursor = Cursors.Default
        MessageBox.Show("Daten gespeichert.", "Meldung", MessageBoxButtons.OK, _
          MessageBoxIcon.Information)
 
    End Sub