किसी विशेष तालिका का उपयोग करने वाली सभी क्वेरी खोजें

हमने अभी टेनेसी में एक क्लाइंट के लिए SQL सर्वर में एक विशाल 39 डेटाबेस रूपांतरण पूरा किया है जो काफी चुनौतीपूर्ण था, हमें न केवल सभी तालिकाओं को अपसाइज़ करना था, बल्कि सिस्टम को डेटाबेस के बीच आयात/निर्यात से लिंक्ड टेबल का उपयोग करने के लिए स्विच करना था। कभी-कभी हमें यह पता लगाने की आवश्यकता होती थी कि कौन-सी क्वेरी एक तालिका का उपयोग कर रही है, इसलिए हमने सभी प्रश्नों में एक तालिका को शीघ्रता से खोजने के लिए निम्नलिखित कोड का उपयोग किया:
Public Function SearchQueries(strTableName As String)
Dim qdf As DAO.QueryDef
Dim strSQL As String
On Error GoTo ErrorHandler

CurrentDb में प्रत्येक qdf के लिए। qdf.Name प्रिंट करें
अंत अगर
अगला qdf

qdf =कुछ भी नहीं सेट करें
MsgBox "खोज पूर्ण"

एग्जिट फंक्शन
ErrorHandler:
अगर Err.Number =3258 तो
strSQL =""
रिज्यूमे
End if
End Function
मान लें हमें यह पता लगाने की आवश्यकता है कि क्वेरी संग्रह में tblCustomers का उपयोग कहाँ किया जा रहा है, हम तत्काल विंडो पर जाने के लिए Ctrl-G दबाएंगे और टाइप करेंगे:
?SearchQueries("tblCustomers")
सिस्टम उन सभी प्रश्नों को वापस कर देगा जहां एक ही तत्काल विंडो में उपयोग किया जाता है:
qryCustomerList
qryOrdersByCustomer
qryOrderHistory
मुझे आशा है कि आपको यह कोड मददगार लगा होगा! मुझे टिप्पणियों में बताएं, कोई भी टिप्पणी छोड़ने वाले को $25 Amazon.com उपहार प्रमाण पत्र में दर्ज किया जाएगा, जल्दी करो, प्रतियोगिता 6/10/16 को समाप्त होती है!