Vraag : VBA om verslagen met een bepaalde waarde in alle lijsten te schrappen

Ik moet wijzigen deze code aan, in plaats van het laten vallen van lijsten die met „ruw“ beginnen, zou ik alle verslagen met een
[fldSeries] willen schrappen (gebiedsNaam) met een waarde van [vormen]! [frmMain]! [txtSeries].  

All dient namen in die met „ruw beginnen“ heeft de gebiedsnaam van [fldSeries].  Dank voor om het even welke suggesties! 


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

Public SubDropTables ()

Schemerige td als dao.TableDef, db als dao. Gegevensbestand
Vastgesteld db = CurrentDb

Voor Elke td in db.TableDefs
    Indien Weggegaan (td. Naam, 3) = „ruw“ toen
        db. Voer „dalingslijst uit [“ & td. Noem & „]“
    Beëindig als
Daarna

Sub van het eind

Antwoord : VBA om verslagen met een bepaalde waarde in alle lijsten te schrappen

wat anders?

Openbare SubDeleteRecords ()

Schemerige td als dao.TableDef, db als dao. Gegevensbestand, rs als dao.recordset
Vastgesteld db = CurrentDb

Voor Elke td in db.TableDefs
    Indien Weggegaan (td. Naam, 3) = „ruw“ toen
         als dcount („*“, td.name,“ [fldSeries] = ' „& [vormen]! [frmMain]! [txtSeries] &“ '“) >0 toen        
        db. Voer „schrapping * van uit [“ & td. Noem & „] waar [fldSeries] = '“ & [vormen]! [frmMain]! [txtSeries] & " '„
        beëindig als
    Beëindig als
Daarna

Sub van het eind
Andere oplossingen  
 
programming4us programming4us