Office: DAO Recordset Datensatz löschen

Hallo nach langer Zeit melde ich mich mal wieder, (mein Computer hat sich für immer verabschiedet Hat etwas gedauert bis ein neuer wieder da ist)
So nun zu meinem Problem.
Ich will einen Datensatz löschen
Ich hab in einem Formular eine Listbox mit Namen Liste1 also Me!Liste1
So bekomme ich einen Wert
In der Tabelle „TabAuftrag“ ist ein Feld „Artikel“ (Textfeld)

Jetzt will ich den Datensatz der mit Me!Liste1 und Me!Artikel übereindtimmt.
Denn anfang hab schon aber was fehlt ist wie kann ich den bestimmten Datensatz selektieren und ihn löschen.

Etwa so
If me.Liste1 = Me.Artikel then .delete
So weit hätte ich es schon
Code:

wie kann ich denn nun den datensatz löschen

Karl-Heinz


Access97 mit WindowsNT4 oder WindowsXP

:)

 

Generell werden Operationen an Daten in Tabellen nur über SQL oder einen Recordset in MS Access durchgeführt. D.h.

If Me.Artikel = Me.Liste1.Value then
DoCmd.RunSQL("Delete * FROM tabArtikel WHERE ArtikelID = " & Me.liste1.value & ";"
else
end if

oder über

dim rs as recordset
dim sqry as string

sqry = "Select * From tabArtikel WHERE ArtikelID = " & me.liste1.value & ";"
set rs = Currentdb.OpenRecordset(sQry, dbOpenDYnaset)

if rs.eof = True and rs.bof = True then
'dann wurde der Artikel nicht in der Tabelle gefunden
else
rs.delete
end if
rs.close

Versuch mal.
Greedins
Rocco

 

Hallo Rocco erst neinmal vielen Dank,
ich hab deinen Code ausprobiert. bekomme aber immer eine Fehlermeldung

Laufzeitfehler 3464
Data type mismatch in criteria expression.
Code:

Die Zeile Set AU = CurrentDb.OpenRecordset(sqry, dbOpenDynaset) ist gelb makiert.
Es handeldt sich um ein Textfeld

Was ist falsch

Karl-Heinz

 

Es fehlen wohl einfache Anführungszeichen:

Code:

 

Super es hat geklappt, DANKE

Karl-Heinz
was so kleine Zeichen alles ausmachen.