warum klappt das bei mir nicht ? habe schon gesucht aber nichts geeignetes gefunden (oder verstanden)
ich möchte abfragen ob der "Betrag" geändert werden soll, macht er leider nicht
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 |