Вопрос : VBA для того чтобы уничтожить показатели с некоторым значением в всех таблицах

Мне нужно доработать это Кодего к, вместо падая таблиц которые начинают с «сырцовым», я хотел был бы уничтожить все показатели с
[fldSeries] (названием поля) с значением [формы]! [frmMain]! [txtSeries].  имена таблицы

All начиная с «сырцовым» имеют название поля [fldSeries].  Спасибо для всех предложений! class= " lineNumbers " >

1 >


Public Sub DropTables id= " codeSnippet812430 " >
 

  
  class= 

Ответ : VBA для того чтобы уничтожить показатели с некоторым значением в всех таблицах

что еще?

Общественное Sub DeleteRecords ()

Тусклый td как dao.TableDef, db как dao. База данных, rs как dao.recordset
Установите db = CurrentDb

Для каждого td в db.TableDefs
    Если о, то (td. Имя, 3) = «сырцово» после этого
         если dcount, то («*», td.name,» [fldSeries] = ' «& [формы]! [frmMain]! [txtSeries] &» '")>0 после этого        
        db. Исполните «delete * от [» & td. Имя & «] где [fldSeries] = '» & [формы]! [frmMain]! [txtSeries] & " '«
        закончитесь если
    Закончитесь если
Затем

Подводная лодка конца