Tìm tất cả các truy vấn sử dụng một bảng cụ thể

Chúng tôi vừa hoàn thành 39 chuyển đổi cơ sở dữ liệu lớn sang SQL Server cho một khách hàng ở Tennessee, điều này khá khó khăn, chúng tôi không chỉ phải tăng kích thước tất cả các bảng mà còn phải chuyển hệ thống từ nhập / xuất giữa các cơ sở dữ liệu sang sử dụng các bảng được liên kết. Đôi khi, chúng tôi cần tìm truy vấn nào đang sử dụng bảng, vì vậy chúng tôi đã sử dụng đoạn mã sau để nhanh chóng tìm thấy bảng trong tất cả các truy vấn:
Public Function SearchQueries(strTableName As String)
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo ErrorHandler

Đối với mỗi qdf Trong Ứng dụng CurrentDb.QueryDefs
.Echo True, qdf.Name
strSQL =qdf.SQL
If InStr (1, strSQL, strTableName)> 0 Then
Debug. In qdf.Name
End If
Next qdf

Đặt qdf =Nothing
MsgBox “Đã hoàn thành tìm kiếm”

Hàm Exit
ErrorHandler:
If Err.Number =3258 Then
strSQL =“”
Resume
End If
End Function
Hãy nói chúng tôi cần tìm nơi tblCustomers đang được sử dụng trong bộ sưu tập truy vấn, chúng tôi sẽ nhấn Ctrl-G để chuyển đến cửa sổ Ngay lập tức và nhập:
?SearchQueries("tblCustomers")
Hệ thống sẽ trả về tất cả các truy vấn được sử dụng trong cùng một cửa sổ ngay lập tức:
qryCustomerList
qryOrdersByCustomer
qryOrderHistory
Tôi hy vọng bạn thấy mã này hữu ích! Hãy cho tôi biết trong phần nhận xét, bất kỳ ai để lại nhận xét sẽ được nhận phiếu quà tặng trị giá $ 25 trên Amazon.com, nhanh lên, cuộc thi kết thúc vào 6/10/16!