GoldenLine
Zaloguj się

konto usunięte

Temat: Jak szybko usunąć stare kwerendy?

Mam bazę w której mam wiele kwerend.
Chciałbym w łatwy sposób móc usunąć np. te które nie były uruchamiane w 2011r.
Gdzie mogę to łatwo podejrzeć, albo jak to zrobić?

dzięki
Link do wypowiedziLink
Wojciech W.

Wojciech W. Kierownik IT /
Analityk IT

Temat: Jak szybko usunąć stare kwerendy?

'vsNazwa moze zawierac znaki globalne np
' *Kwer*
' zostana usuniete wszystkie kwerendy, ktore maja w nazwie "kwer"
Public Sub DeleteQueries(byval vsNazwa as string)
Dim rcs as Recordset
Set rcs=currentdb.openrecordset("SELECT NAME FROM MSysObjects WHERE " & _
"(Flags=0 or Flags=96 or Flags=64 or Flags=32 or Flags=48) " & _
"AND Type=5 AND [Name] Like '" & vsNazwa & "'")
Do while Not rcs.Eof
docmd.runsql "DROP TABLE " & rcs.fields(0).value
rsc.movenext
loop
rcs.close
set rcs=nothing
End Sub
Link do wypowiedziLink
Paweł B.

Paweł B. Kierownik Działu
Administracji, ITI
Neovision

Temat: Jak szybko usunąć stare kwerendy?

Jest prosty sposób, wręcz banalny. Ale nie wiem, czy do końca będziesz mógł zastosować u siebie, zależy co chcesz usunąć i jak dobrze znasz tę bazę.
W 2007 można zaznaczyć wiele kwerend i wcisnąć delete, oczywiście wcześniej posortować po np. dacie modyfikacji itp.
Link do wypowiedziLink

konto usunięte

Temat: Jak szybko usunąć stare kwerendy?

Paweł

nie - doprecyzuje, chce skasować te których nie wykonywałem w 2011r.
czyli że nie że zmodyfikowałem

Chyli jak takiej kwerendy nie wykonałem, nie pobrałem danych to chce ją skasować

... po porostu mam taki brzydki zwyczaj, że narobie sobie tych kwerend, czasem nie skasuje i potem nie pamiętam czy gdzieś ich nie używam, w jakimś excelu czy gdzie indziejAdam Zieliński edytował(a) ten post dnia 27.04.11 o godzinie 15:02
Link do wypowiedziLink
Wojciech W.

Wojciech W. Kierownik IT /
Analityk IT

Temat: Jak szybko usunąć stare kwerendy?

Public Sub DeleteQueries()
Dim rcs as Recordset
Set rcs=currentdb.openrecordset("SELECT NAME FROM MSysObjects WHERE " & _
"(Flags=0 or Flags=96 or Flags=64 or Flags=32 or Flags=48) " & _
"AND Type=5 AND [DateUpdate]<#01/01/2012 00:00:00#)
Do while Not rcs.Eof
docmd.runsql "DROP TABLE " & rcs.fields(0).value
rsc.movenext
loop
rcs.close
set rcs=nothing
End SubWojciech Wojtulewski edytował(a) ten post dnia 27.04.11 o godzinie 15:39
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj