Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VBA-Problem
Autor: bärbel
Datum: 15.04.03 15:58
Halihalo, brauche Hilfe in meinem Code, möchte gerne in einer Spalte doppelte DS suchen und wenn einer gefunden wurde einen davon herrauslöschen. Function search() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs_2 As DAO.Recordset Dim rs_delete As DAO.Recordset Dim datum, datum_ausgang, datum_2, datum_2_vergleich As Variant Set db = CurrentDb Set rs = db.OpenRecordset("" _ & " SELECT Querry_table.Ausgang" _ & " FROM Querry_table" _ & " WHERE (((Querry_table.Ausgang) Is Not Null));", dbOpenDynaset) rs.MoveFirst Do datum = rs!Ausgang datum_ausgang = Format(datum, "\#yyyy-mm-dd hh\:nn\:ss\#") Set db = CurrentDb Set rs_2 = db.OpenRecordset("" _ & " SELECT Querry_table.Ausgang" _ & " FROM Querry_table" _ & " WHERE Querry_table.Ausgang Is Not Null", dbOpenDynaset) '& " And (Querry_table.Ausgang)=" & datum_ausgang & "))" rs_2.MoveFirst Do datum_2 = rs_2!Ausgang datum_2_vergleich = Format(datum_2, "\#yyyy-mm-dd hh\:nn\:ss\#") If datum_2_vergleich = datum_ausgang Then Set db = CurrentDb db.Execute "" _ & " DELETE Ausgang" _ & " FROM Querry_table" _ & " WHERE(((Ausgang )=" & datum_2_vergleich & "));" End If Loop While Not rs_2.EOF Loop While Not rs.EOF End Function Das haut aber so hinten und vorne nicht hin. Gruß babsi

VBA-Problem

66

bärbel

15.04.03 15:58

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