Temukan Semua Query yang Menggunakan Tabel Tertentu

Kami baru saja menyelesaikan 39 konversi database besar-besaran ke SQL Server untuk klien di Tennessee yang cukup menantang, kami tidak hanya harus memperbesar semua tabel, tetapi mengalihkan sistem dari mengimpor/mengekspor antar database menjadi menggunakan tabel tertaut sebagai gantinya. Terkadang kami perlu menemukan kueri mana yang menggunakan tabel, jadi kami menggunakan kode berikut untuk menemukan tabel dengan cepat di semua kueri:
Public Function SearchQueries(strTableName As String)
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo ErrorHandler

Untuk Setiap qdf Di CurrentDb.QueryDefs
Application.Echo True, qdf.Name
strSQL =qdf.SQL
If InStr(1, strSQL, strTableName)> 0 Kemudian
Debug. Cetak qdf.Name
End If
Next qdf

Set qdf =Tidak Ada
MsgBox “Pencarian Selesai”

Exit Function
ErrorHandler:
If Err.Number =3258 Kemudian
strSQL =“”
Resume
End If
End Function
Katakanlah kita perlu menemukan di mana tblCustomers digunakan dalam kumpulan kueri, kita akan menekan Ctrl-G untuk membuka jendela Segera dan ketik:
?SearchQueries("tblCustomers")
Sistem akan mengembalikan semua kueri yang digunakan dalam jendela langsung yang sama:
qryCustomerList
qryOrdersByCustomer
qryOrderHistory
Saya harap kode ini bermanfaat bagi Anda! Beri tahu saya di komentar, siapa pun yang meninggalkan komentar akan dimasukkan ke dalam sertifikat hadiah Amazon.com $25, cepat, kontes berakhir 10/06/16!