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

If modus_Datensatz_Kontodetails = DatensatzModus.Bearbeiten And _
          BS_Kontodetails_TypRow.Betrag <> Merker_Betrag Then

If (modus_Datensatz_Kontodetails = DatensatzModus.Bearbeiten) And _
          (BS_Kontodetails_TypRow.Betrag <> Merker_Betrag) Then

  'Eingaben in TextBoxen 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
 
        'auf 0 Eingabe reagieren wenn neuer Datensatz angelegt wird
        If (chb_Status_Neu.Checked = True) And (Merker_Betrag = 0) Then
            'Daten nicht speichern erst Datenfelder füllen >> speichern
        ElseIf (chb_Status_berabeiten.Checked = True) And (Merker_Betrag = 0) _
          Then  'auf 0 Eingabe und Änderung reagieren
            'Daten nicht speichern
        ElseIf (BS_Kontodetails_TypRow.Betrag <> Merker_Betrag) Then         _
                 'hier Datenabgleich mit Datarow
            'Datenänderung speichern abfrage ausgeben mit OK >> speichern
        Else
 
 
        End If

 Private Sub btnspeichern_Click(sender As Object, e As EventArgs) Handles _
   btnspeichern.Click
        Dim NL = Environment.NewLine
        Dim Titel As String = "Buchungsmeldung"
        Dim Merker_Betrag As Double
        '#
        Merker_Betrag = Format(CDbl(nud_Betrag_Eingabe.Value), "#,0.00")
 
        'Eingaben in TextBoxen 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
 
        'Datensatz Modus prüfen
        If (chb_Status_Neu.Checked = True) And (Merker_Betrag = 0) Then
            'Daten erst nach Meldung speichern 
            MessageBox.Show("Geben Sie Bitte einen Betrag ein.")
        ElseIf (chb_Status_berabeiten.Checked = True) And (Merker_Betrag = 0) _
          Then
            'Daten erst nach Meldung speichern 
            MessageBox.Show("Sie müssen noch einen Betrag eingeben.")
        ElseIf (chb_Status_berabeiten.Checked = True) And ( _
          BS_Kontodetails_TypRow.Betrag <> Merker_Betrag) Then
            'Datarow prüfen
            Meldung_Status_OK_aendern()
        Else
            Meldung_Status_OK()
        End If
 
    End Sub

 Private Sub Meldung_Status_OK_aendern()
        Dim NL As String = Environment.NewLine
        Dim Titel As String = "Buchungsmeldung"
        Dim istval = Format(CDbl(BS_Kontodetails_TypRow.Betrag), "#,0.00")
        Dim sollval = Format(CDbl(BetragTextBox.Text), "#,0.00")
        Dim Meldung As String = "Statusmeldung"
 
        Meldung = Meldung & NL & "----------------------------"
        Meldung = Meldung & NL & Format(Now, "dd.MM.yyyy HH:mm:ss")
        Meldung = Meldung & NL & "----------------------------"
        Meldung = Meldung & NL & "--------------Eingabe Wert: " & sollval
        Meldung = Meldung & NL & "############################"
        Meldung = Meldung & NL & "----------Datarow Wert Ist: " & istval
        Meldung = Meldung & NL & "----------------------------"
        Meldung = Meldung & NL & "-----Eingabewert übernehmen?"
 
        Dim Abfrage_Result As DialogResult = MessageBox.Show(Meldung, Titel, _
          MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
        If Abfrage_Result = System.Windows.Forms.DialogResult.OK Then
            _Speichern()
        Else
            _Eingabeabbrechen()
 
        End If
    End Sub

 Private Sub Meldung()
        Dim drowval = Format(CDbl(BS_Kontodetails_TypRow.Betrag), "#,0.00")
        Dim eingval = Format(CDbl(BetragTextBox.Text), "#,0.00")
        Using frm As New Messagebox_OK
            With frm
                .lbl_Status.Text = Format(Now, "dd.MM.yyyy HH:mm:ss")
                .lbl_Datensatzmodus.Text = "Neue Buchung"
                .lbl_Eingabewert.Text = eingval
                .lbl_Datarowwert.Text = drowval
                .ShowInTaskbar = True
                .BringToFront()
                .TopMost = True
                .ShowDialog(Me)
                'nachdem frm geschlossen wurde:
                If .Eingabe_OK = True Then
                    _Speichern()
                Else
                    _Eingabeabbrechen()
                End If
            End With
        End Using
        Me.Show()
    End Sub