Pergunta : VBA para suprimir de registros com algum valor em todas as tabelas

Eu preciso de modificar este código a, em vez das tabelas deixando cair que começam com o “cru”, mim gostaria de suprimir de todos os registros com um
[fldSeries] (nome de campo) com um valor de [formulários]! [frmMain]! [txtSeries].  os nomes da tabela do

All que começam com o “cru” têm o nome de campo de [fldSeries].  Agradecimentos para algumas sugestões! class= " lineNumbers " >

1 do >


Public do id= " codeSnippet812430 " do >
 " desobstruído " de 

class= do 

Resposta : VBA para suprimir de registros com algum valor em todas as tabelas

que outro?

DeleteRecords secundário público ()

TD não ofuscante como dao.TableDef, DB como o dao. Base de dados, rs como dao.recordset
Ajustar DB = CurrentDb

Para cada TD em db.TableDefs
    Se saido (TD. Nome, 3) = “cru” então
         se dcount (“*”, td.name,” [fldSeries] = ' “& [formulários]! [frmMain]! [txtSeries] &” '")>0 então        
        DB. Executar a “supressão * de [” & TD. Nome & “] onde [fldSeries] = '” & [formulários]! [frmMain]! [txtSeries] & " '“
        terminar se
    Terminar se
Em seguida

Submarino da extremidade