Frage : VBA zum Löschen Aufzeichnungen mit einem bestimmten Wert in allen Tabellen

Ich muss diesen Code zu, anstelle von fallenden Tabellen ändern, die mit „rohem“ beginnen, ich möchte alle Aufzeichnungen mit einem
[fldSeries] (Feldname) mit einem Wert von löschen [Formen]! [frmMain]! [txtSeries].  

All die Tabellennamen, die mit „rohem“ beginnen, haben den Feldnamen von [fldSeries].  Dank für irgendwelche Vorschläge! 


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Public VorDropTables ()

Schwaches TD als dao.TableDef, DB als dao. Datenbank
Einstellen DB = CurrentDb

Für jedes TD in db.TableDefs
    Wenn Sie verlassen (TD. Name, 3) = „roh“ dann
        DB. „Tropfentabelle durchführen [“ u. TD. Name u. „]“
    Beenden wenn
Zunächst

Enden-Unterseeboot

Antwort : VBA zum Löschen Aufzeichnungen mit einem bestimmten Wert in allen Tabellen

was sonst?

Allgemeines VorDeleteRecords ()

Schwaches TD als dao.TableDef, DB als dao. Datenbank, rs als dao.recordset
Einstellen DB = CurrentDb

Für jedes TD in db.TableDefs
    Wenn Sie verlassen (TD. Name, 3) = „roh“ dann
         wenn dcount („*“, td.name,“ [fldSeries] = ' „u. [Formen]! [frmMain]! [txtSeries] u.“ '")>0 dann        
        DB. „Löschung * von durchführen [“ u. TD. Name u. „] wo [fldSeries] = '“ u. [Formen]! [frmMain]! [txtSeries] u. " '„
        beenden wenn
    Beenden wenn
Zunächst

Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us