ChiMai > 14-10-16, 01:07 PM
ongke0711 > 14-10-16, 01:30 PM
Dim T As TableDef
DoCmd.SetWarnings False
For Each T In CurrentDb.TableDefs
If T.Name Like "d2s_*" Then
DoCmd.RunSQL "DELETE * FROM " & T.Name
End If
Next T
DoCmd.SetWarnings True
ChiMai > 15-10-16, 09:49 AM
cpucloi > 15-10-16, 02:47 PM