Questione : VBA per cancellare le annotazioni con certo valore in tutte le tabelle

Devo modificare questo codice a, anziché le tabelle cadenti che cominciano con “grezzo„, io vorrei cancellare tutte le annotazioni con un
[fldSeries] (nome di campo) con un valore di [forme]! [frmMain]! [txtSeries].  i nomi della tabella del

All che cominciano con “grezzo„ hanno il nome di campo di [fldSeries].  Ringraziamenti per qualsiasi suggerimenti! class= " lineNumbers " >

1 del >


Public del id= " codeSnippet812430 " del >
 " libero " di 

class= del 

Risposta : VBA per cancellare le annotazioni con certo valore in tutte le tabelle

che altro?

DeleteRecords secondario pubblico ()

Il TD fioco come dao.TableDef, db come dao. Base di dati, rs come dao.recordset
Regolar db = CurrentDb

Per l'ogni TD in db.TableDefs
    Se andato (il TD. Nome, 3) = “grezzo„ allora
         se dcount (“*„, td.name,„ [fldSeries] = ' “& [forme]! [frmMain]! [txtSeries] &„ '")>0 allora        
        db. Eseguire “la cancellazione * da [„ & il TD. Nome & “] dove [fldSeries] = '„ & [forme]! [frmMain]! [txtSeries] & " '“
        concluder se
    Concluder se
Dopo

Sommergibile dell'estremità