Code für Abfrage möglich (A03) ?

11/05/2009 - 12:15 von Marc Ahrens | Report spam
Hallo,

in einem Formular bearbeite ich einen DS einzeln mit einem Code. Um
das nicht 100x machen zu müssen, kann ich auch eine Abfrage mit den DS
erstellen und den Code für alle DS durchlaufen lassen?


Dim ds As Database, rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("meinetbl")

rs.AddNew
rs![filter_name] = "search_text1"
rs![filter_value] = Chr$(34) & Titel & Chr$(34) & " " & Autor
rs![folder_id] = Me!nummer
rs.Update

rs.AddNew
rs![filter_name] = "search_in_desc"
rs![filter_value] = "-1"
rs![folder_id] = Me!nummer
rs.Update

end sub



Grüße Marc
 

Lesen sie die antworten

#1 Peter Doering
11/05/2009 - 12:26 | Warnen spam
Hallo,

Marc Ahrens wrote:

in einem Formular bearbeite ich einen DS einzeln mit einem Code. Um
das nicht 100x machen zu müssen, kann ich auch eine Abfrage mit den DS
erstellen und den Code für alle DS durchlaufen lassen?
[...]
rs![filter_value] = Chr$(34) & Titel & Chr$(34) & " " & Autor
rs![folder_id] = Me!nummer
[...]



Kommt darauf an ...

Wenn Me!nummer, Titel und Autor immer gleich sind, bzw. wenn eine Regel
besteht, aus der sie sich ableiten lassen: ja.

Ansonsten, trag die 100 Kombinationen in eine Tabelle ein und verknuepfe
diese mit "meinetbl" im Abfrageeditor.

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com
3. SEK Sa/So 16./17.5.2009, Nürnberg http://www.donkarl.com/SEK/

Ähnliche fragen