vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Ein- und Umsteiger
Eintrag ändern abfragen 
Autor: Erichbru
Datum: 02.04.23 11:12

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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Eintrag ändern abfragen384Erichbru02.04.23 11:12
Re: Eintrag ändern abfragen175emaNoN02.04.23 14:41
Re: Eintrag ändern abfragen197emaNoN02.04.23 15:54
Re: Eintrag ändern abfragen179Erichbru03.04.23 19:15
Re: Eintrag ändern abfragen162Erichbru04.04.23 15:05
Re: Eintrag ändern abfragen154emaNoN04.04.23 17:21
Re: Eintrag ändern abfragen143Erichbru04.04.23 17:27
Re: Eintrag ändern abfragen156Erichbru04.04.23 19:53
Re: Eintrag ändern abfragen143emaNoN04.04.23 20:48
Re: Eintrag ändern abfragen136Erichbru05.04.23 14:06
Re: Eintrag ändern abfragen189emaNoN05.04.23 17:14
Re: Eintrag ändern abfragen131Erichbru05.04.23 17:23

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel