माइक्रोसॉफ्ट एक्सेस में अभिव्यक्ति में वर्तमान फॉर्म का संदर्भ कैसे लगा सकता हूं?

Question

मैं कोई एक्सेस विशेषज्ञ नहीं हूं, और मेरे पास एक (मुझे उम्मीद है!) सरल सवाल है ...

मेरे पास कई रिकॉर्ड हैं। कुछ टेक्स्टबॉक्स में मैं केवल अंतर्निहित तालिका से मान प्रस्तुत करता हूं - इसलिए वे संबंधित फ़ील्ड से बंधे होते हैं।

लेकिन कुछ टेक्स्टबॉक्स में गणना मूल्य होना चाहिए। कुछ गणना जटिल हैं और तालिका से कई फ़ील्ड शामिल हैं। मैं गणना को वीबीए फ़ंक्शन के रूप में लिखता हूं। मैं के रूप में "नियंत्रण स्रोत" कुछ इस तरह प्रवेश कर सकता है:

=MyFunction([Field1], [Field2], [Field3] ...) 

लेकिन मैं समारोह कॉल में क्षेत्रों के दर्जनों को सूचीबद्ध नहीं करना चाहते हैं। इसके बजाय, मैं पैरामीटर के रूप में पूरा फॉर्म (या वर्तमान रिकॉर्ड) भेजना चाहता हूं, और फ़ंक्शन को आवश्यक फ़ील्ड को संदर्भित करने दें। मैं इसे इस तरह कर सकता हूं:

=MyFunction([Forms]![MyForm]) 

लेकिन मुझे कॉल में फॉर्म का नाम नहीं देना पसंद है। फ़ंक्शन तर्क के रूप में "वर्तमान फ़ॉर्म" भेजने का कोई तरीका नहीं है? वीबीए में, आप "मी! [फ़ील्ड 1]" exampel के लिए बस "मुझे" कीवर्ड का उपयोग करें। लेकिन ऐसा लगता है कि "मी" अभिव्यक्ति में स्वीकार नहीं किया गया है।

क्या अभिव्यक्ति में वर्तमान फ़ॉर्म को संदर्भित करने का कोई और तरीका है?

(यह एक कॉस्मेटिक सवाल है, मुझे पता है। लेकिन यह "[फॉर्म]! [माईफॉर्म]" का उपयोग करने के लिए अच्छा प्रोग्रामिंग नहीं है। बाद में आप नियंत्रण को किसी अन्य रूप में कॉपी करते हैं और अभिव्यक्ति में नाम बदलना भूल जाते हैं .. ।)

आपकी मदद के लिए आभारी! :-)

/ऐन्डर्स

Answer 1

आप उपयोग कर सकते हैं:

=MyFunction([Form]) 

कोड होगा:

Function MyFunction(frm As Form) 
MsgBox frm.Name 
End Function 

Answer 2

'मैं' केवल इसी रूप वस्तु के भीतर से कहा जा सकता है (यानी वस्तु की प्रक्रियाओं, कार्यों और घटनाओं में)।

मेरा पसंदीदा मौजूदा फार्म का उल्लेख करने के रास्ते screen.activeForm वस्तु कॉल करने के लिए है ...

screen.activeForm.recordset.fields(myFieldname).value 
screen.activeForm.controls(myControl).value 
screen.activeForm.name 
.... 

बेशक

आप एक कस्टम समारोह

my Result = myCustomFunction(screen.activeForm) 

के रूप वस्तु भेज सकते हैं या आप उपयोगकर्ता द्वारा परिभाषित वस्तु बना सकते हैं। इसके बाद आवश्यक फ़ील्ड को संबंधित गुणों के Class_Initialize उप में सेट आंतरिक गुणों के रूप में माना जा सकता है।

Answer 3

यदि आप फॉर्म में कोड का उपयोग कर रहे हैं, तो "मुझे" वर्तमान रूप में संदर्भकर्ता हैं। तो

Call SomeFunction(me) 

हालांकि, "मुझे" टेक्स्ट बॉक्स से जुड़ी अभिव्यक्ति के संदर्भ में उपयोग नहीं किया जा सकता है।

उस स्थिति में आप या तो स्क्रीन के साथ नियमित रूप से स्क्रीन पर सक्रिय स्क्रीन उठा सकते हैं।

मैं अक्सर जाना:

Dim f  as form 
Set f = screen.ActiveForm 

Answer 4

Screen.ActiveControl.Parent 
' or 
someControlVariable.Parent 

मैं इस का उपयोग करता है, तो मैं वर्तमान उप-प्रपत्र चाहते हैं (या यदि वर्तमान में नहीं एक उप-प्रपत्र में फार्म) क्योंकि Screen.ActiveForm का उपयोग कर मौजूदा उप-प्रपत्र प्रदान नहीं करता है, लेकिन केवल उस सबफॉर्म युक्त फॉर्म। अपने संदर्भ से अवगत रहें, अगर नियंत्रण टैब नियंत्रण में है तो उसके माता-पिता उस टैब नियंत्रण हैं और फॉर्म नहीं हैं।

Answer 5

ACC2013 में मैं fionnuala के उत्तर का उपयोग नहीं कर सका। संपत्ति-विंडो में

ईवेंट हैंडलर: तो मैं करने के लिए बदल

=MyFunction() 

मेरे कोड होगा:

Function MyFunction() 
    Dim frm As Form 
    Set frm = Screen.ActiveForm 
    MsgBox frm.Name 
End Function