nadpisywanie lub usuwanie tabeli (VBA + SQL)

[Bear]

Dzien dobry
Probuje znalezc rozwiazanie:
potrzebuje zapisac dane wybrane na podstawie warunku SQL do tabeli i z
tym nie ma problemu,
ale po utworzeniu tabeli nastepne uruchomienie procedury generuje blad
(Tabela_parametrow juz jest), kwerenda tworzaca tabele pyta czy
nadpisac a w kodzie jak zapisac aby:
procedura nadpisywala istniejaca tabele
lub
usuwala tabele

---------------------------------------------------------------
meSQL = "SELECT * INTO Tabela_parametrow FROM " & Zrodlo_raportu & "
WHERE czas BETWEEN " & CLng(Data1) & " AND " & CLng(Data2)
Set db = CurrentDb
Set qdf = db.CreateQueryDef("", meSQL)
qdf.Execute
-----------------------------------------------------------------

Pozdrawiam

[Bear]

wstawilam

DoCmd.DeleteObject acTable, "Tabela_parametrow"
przed
qdf.Execute

Dziala.

[Jacek]

Proponuje rowniez, przed usunieciem tabeli, sprawdzic, czy taki obiekt
istnieje, bo znowu otrzymasz blad, jezeli z jakichs wzgledow tej tabeli nie
bedzie.

[Bear]

> Proponuje rowniez, przed usunieciem tabeli, sprawdzic, czy taki obiekt
> istnieje, bo znowu otrzymasz blad, jezeli z jakichs wzgledow tej tabeli nie
> bedzie.

Oczywiście.

Korzystam z funckji znalezionej na grupie (: (dziękuję autorowi)

Function JestTabela(NazwaTabeli As String) As Boolean
On Error Resume Next
Debug.Print CurrentDb.TableDefs(NazwaTabeli).Name
JestTabela = (Err = 0)
End Function

A w Sub()
mam warunek:

If JestTabela(Tabela) Then
DoCmd.DeleteObject acTable, Tabela
End If
Pozdrawiam