Cuestión : VBA para suprimir expedientes con cierto valor en todas las tablas

¡Necesito modificar este código a, en vez de las tablas de caída que comienzan con “crudo”, yo quisiera suprimir todos los expedientes con un
[fldSeries] (nombre de campo) con un valor de [las formas]! ¡[frmMain]! [txtSeries].  los nombres de la tabla del

All que comienzan con “crudo” tienen el nombre de campo de [los fldSeries].  ¡Gracias por cuaesquiera sugerencias! class= " lineNumbers " >

1 del >


Public del id= " codeSnippet812430 " del >
 " claro " de 

class= del 

Respuesta : VBA para suprimir expedientes con cierto valor en todas las tablas

¿qué más?

DeleteRecords secundario público ()

TD dévil como dao.TableDef, DB como dao. Base de datos, rs como dao.recordset
Fijar DB = CurrentDb

Para cada TD en db.TableDefs
    Si está ido (TD. Nombre, 3) = “crudo” entonces
         ¡si dcount (“*”, td.name,” [fldSeries] = ' “y [formas]! ¡[frmMain]! [txtSeries] y” '")>0 entonces        
        DB. Ejecutar la “cancelación * de [” y TD. ¡Nombre y “] donde [fldSeries] = '” y [formas]! ¡[frmMain]! [txtSeries] y " '“
        terminar si
    Terminar si
Después

Submarino del extremo