Ovo gore navedeno mora da radi
evo primjer:
Private Sub Command1_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query3"
DoCmd.SetWarnings True
End Sub
a moze i na drugi nacin ako vec hoces
Private Sub Command1_Click()
DoCmd.DeleteObject acTable, "Ime_Tabele"
DoCmd.OpenQuery "Query3"
End Sub
zxz