Access: Query di eliminazione record in base a data

[nman]

Potrei con una sola query di eliminazione fare la stessa cosa su più tabelle contemporaneamente?

La classica query di eliminazione è quella che ti ho postato sopra.

Se volessimo arrampicarci sui vetri si potrebbe tentare di mettere in JOIN più tabelle e poi lanciare la eliminazione
ma la vedo estremamente brutta, lo sconsiglio


invece se usi VBA lo puoi fare tranquillamente,
ti crei tante query semplici e le lanci singolarmente

Public Sub ElimPiuTabelle()   

' dichiaro una variabile stringa
Dim strSql As String

' creo una stringa che sia una qyery DELETE da Tab 1
strSql = "DELETE * FROM Tab1 AS T WHERE T.Data=(SELECT Max(Tab1.Data) FROM Tab1;);"
' eseguo la prima query
DBEngine(0)(0).Execute strSql

' Modifico la stringa per eliminare da un'altra tabella ( Tab 2 )
strSql = "DELETE * FROM Tab2 AS T WHERE T.Data=(SELECT Max(Tab2.Data) FROM Tab2;);"
' eseguo la seconda query
DBEngine(0)(0).Execute strSql

' Modifico la stringa per eliminare da un'altra tabella ( Tab 3 )
strSql = "DELETE * FROM Tab3 AS T WHERE T.Data=(SELECT Max(Tab3.Data) FROM Tab3;);"
' eseguo la terza query
DBEngine(0)(0).Execute strSql

' eccetera per tutte le tabelle
End Sub