Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: ADO Recordset delete-Funktion
Autor: Prian0815
Datum: 09.06.05 09:02
Probier mal das hier aus, weiß nicht obs die Umstellung von Move First und Update ist, könnte aber durchaus möglich sein.If rsData.EOF = True And rsData.BOF = True Then MsgBox "Kein Eintrag vorhanden" Exit Sub Else If MsgBox("Wollen Sie den Artikel wirklich stornieren?", vbYesNo) = vbYes Then 'Sicherheitsabfrage, ob Artikel wirklich storniert werden soll rsStornoSum = rsData!Preis 'Auslesen des aktuellen ' Wertes rsData.Delete 'Aktuellen Datensatz löschen rsData.UpdateBatch adAffectCurrent rsData.MoveFirst End If Die Datenübertragung sieht so aus: Do While Not rsData.EOF 'Schleife zum Einfügen aller Datensätze bis erreichen EOF rsUmsätze.AddNew 'Datensatz in Datenbank einfügen rsUmsätze!Verk_ID = lbl_VerkID.Caption rsUmsätze!Artikel_ID = rsData!ArtikelNr rsUmsätze!SubArtikel_ID = rsData!LieferNr rsUmsätze!SubVerk_Preis = rsData!Preis rsUmsätze!BuchungArt = rsData!BuchArt rsUmsätze.Update rsData.MoveNext Loop Gruß Armin P.S.: always look on the bright side of Life!

ADO Recordset delete-Funktion	2.403	SpaXX2	08.06.05 21:24
Re: ADO Recordset delete-Funktion	1.316	Prian0815	09.06.05 09:02
Re: ADO Recordset delete-Funktion	1.254	SpaXX2	14.06.05 00:17

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übersicht

Suchen