meohenmiao > 25-02-12, 08:34 PM
If TableExists("table1") = True Then
DoCmd.DeleteObject acTable, "table1"
End If
If TableExists("table2") = True Then
DoCmd.DeleteObject acTable, "table2"
End If
If TableExists("table3") = True Then
DoCmd.DeleteObject acTable, "table3"
End If
..................................................
Noname > 26-02-12, 12:09 AM
[code]Dim i as Integer
Dim n as Interger
n= 3 ' thay số n bằng 1 số bất kỳ thể hiện phần đuôi tên bảng
For i=1 to n
If TableExists("table" & i ) = true Then
DoCmd.DeleteObject acTable, "table" &i
End If
Next i