Question : VBA pour supprimer des disques avec une certaine valeur dans toutes les tables

Je dois modifier ce code selon, au lieu des tables de chute qui commencent par « cru », je voudrais supprimer tous les disques avec un
[fldSeries] (nom de champ) avec une valeur de [des formes] ! [frmMain] ! [txtSeries].  les noms de table du

All commençant par « cru » ont le nom de champ de [des fldSeries].  Merci pour toutes suggestions ! class= " lineNumbers " >

1 de >


Public de l'id= " codeSnippet812430 " de >
 " clair " de 

class= de 

Réponse : VBA pour supprimer des disques avec une certaine valeur dans toutes les tables

quoi encore ?

DeleteRecords secondaire public ()

Le faible TD comme dao.TableDef, DB comme dao. Base de données, rs comme dao.recordset
Placer DB = CurrentDb

Pour le chaque TD dans db.TableDefs
    Si parti (le TD. Nom, 3) = « cru » puis
         si dcount (« * », td.name, » [fldSeries] = ' « et [formes] ! [frmMain] ! [txtSeries] et » '")>0 alors        
        DB. Exécuter la « suppression * de [ » et le TD. Nom et « ] où [fldSeries] = ' » et [formes] ! [frmMain] ! [txtSeries] et " '« 
        finir si
    Finir si
Après

Sous-marin d'extrémité