Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Rekordsatz löschen
Autor: 1860
Datum: 21.03.03 12:46
Private Sub mnuBearbeitenloeschen_Click() 'Datensatz löschen If MsgBox("Soll der Datensatz gelöscht werden?", vbYesNo + vbCritical, _ "Datensatz löschen") = vbYes Then RsdbBuch.Delete RsdbBuch.MoveNext If RsdbBuch.EOF Then RsdbBuch.MoveLast End If End If End Sub versuch doch mal so: dim varBook as variant RsdbBuch.Move last RsdBuch.Movefirst if not RsBuch.eof then for i = 1 to RsBuch.recordcount if RsdBuch.Name = "suchname" then varBook = rsdBuch.bookmark end if RsdBuch.Movenext next RsdBuch.close set RsdBuch = OpenRec........... RsdBuch.Bookmark = varBook delete RsdBuch RsdBuch.Close Ich glaub so könnts gehen

Rekordsatz löschen	336	gerdie99	20.03.03 13:52
Re: Rekordsatz löschen	192	gerdie99	21.03.03 11:50
Re: Rekordsatz löschen	192	Sauron	21.03.03 11:53
Re: Rekordsatz löschen	213	gerdie99	21.03.03 12:32
Re: Rekordsatz löschen	37	1860	21.03.03 12:23
Re: Rekordsatz löschen	202	gerdie99	21.03.03 12:35
Re: Rekordsatz löschen	38	1860	21.03.03 12:36
Re: Rekordsatz löschen	193	gerdie99	21.03.03 12:41
Re: Rekordsatz löschen	39	1860	21.03.03 12:41
Re: Rekordsatz löschen	200	gerdie99	21.03.03 12:46
Re: Rekordsatz löschen	37	1860	21.03.03 12:46
Re: Rekordsatz löschen	199	gerdie99	21.03.03 12:56
Re: Rekordsatz löschen	196	gerdie99	21.03.03 13:40

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