Hallo.
Ich habe eine Listboxerstellt mit Einträgen die er aus ner tabelle holt.
Darunter habe ich noch 3 buttons erstellt.
new, edit, delete.
den edit button bekomme ich hin.
aber new und delete net !?
der new button ist etwas komplex. deshalb lasse ich ihn erstmal weg.
der delete button:
wie bekomme ich denn den realisiert?
mit DeleteObject ? …
ich hab keinen Plan im Moment !
ich müßte ja eingriffe in die datenbank machen mit den beiden buttons.
bin füür jeden tip dankbar.
mfg Martin
Zu allererst solltest du mal schreiben, um welche Access-Version es geht. Und dann, was „er sich aus der Tabelle holt“ - geht es um eine Listbox, die eine Tabelle/Abfrage als Datensatzherkunft hat? Arbeitest du mit AddItem?
Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)
Zu allererst solltest du mal schreiben, um welche
Access-Version es geht.
Access 2000
Und dann, was „er sich aus der Tabelle
holt“ - geht es um eine Listbox, die eine Tabelle/Abfrage als
Datensatzherkunft hat?
ja. per sql hol sich die listbox ne tabelle mit 3 spalten.
Arbeitest du mit AddItem?
nein.
ich hab im code nur ne Proc. „Private Sub Form_Current()“
und da drin den RowSource festgelegt.
Und willst du die Löschungen nur in der Listbox machen (das geht bei einer derartigen Konstruktion nicht!) oder in der zugrunde liegenden Tabelle - das sähe dann so aus:
Dim Conn as ADODB.Connection
Set Conn = CurrentProject.Connection
Conn.Execute "DELETE FROM DeineTabelle WHERE ID = " & Me!Listenfeld.Column(0)
… hierbei mal angenommen, dass die Tabelle einen ganzzahligen Primärschlüssel namens „ID“ hat, der sich in der ersten (ggf. auch ausgeblendeten) Spalte des Listenfelds wiederfindet.
Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)
Dim Conn as ADODB.Connection
geht net … warum?
hab ich was vergessen?
bin für die Hilfe wirklich dankbar, da ich allein an einem access project arbeiten muß…
und ich null plan hab.
mfg … Martin
Ich bin davon ausgegangen, dass du ADO als Datenzugriffs-Objekt verwendest (Standard in A2000), ansonsten - bei DAO:
Dim DB AS DAO.Database
Set DB = Currentdb
DB.Execute "DELETE FROM DeineTabelle WHERE ID = " & Me!Listenfeld.Column(0)
Und dann fehlt noch ein
Me!Listenfeld.Requery
Gruß aus dem Norden
Reinhard Kraasch
1000 mal Danke
klappt bestens …
vielen Dank !!!