मैंने डेटाबेस विभाजित किया है। मैंने लोड पर एक इवेंट प्रक्रिया की DoCmd.ShowToolbar "Ribbon", acToolbarNo
रिबन टूलबार छुपाने के लिए।
अब मैं अपने डेटाबेस के सामने वाले अंत को वितरित करने के लिए ACCDE संस्करण बनाना चाहता हूं। मेरी समस्या यह है कि रिबन टूलबार दिखाई नहीं दे रहा है जब मैं ACCDE संस्करण नहीं बना सकता। इसके अलावा अगर मैं पहले ACCDE बनाते हैं DoCmd.ShowToolbar "Ribbon", acToolbarNo
मैं ऐसा नहीं कर सकता क्योंकि ACCDE फॉर्म के डिज़ाइन व्यू को अक्षम कर देगा।
इसके लिए सबसे अच्छा समाधान क्या है? मैं रिबन को छिपाना चाहूंगा जैसा कि इसके साथ है DoCmd.ShowToolbar "Ribbon", acToolbarNo
.
उत्तर:
जवाब के लिए 0 № 1यदि आपके पास स्टार्टअप पर लोड होने वाला एक फॉर्म है तो उसके बाद निम्न कोड On_Load
जब आप फ़ॉर्म को डिज़ाइन कर रहे हों तो ईवेंट रिबन को सक्षम करेगा और जब आप अपने उपयोगकर्ताओं को एक संस्करण दबाएंगे तो इसे अक्षम कर दें।
If LCase(Right(CurrentDb.Name, 3)) = "mdb" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accde" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
ElseIf LCase(Right(CurrentDb.Name, 5)) = "accdr" Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
Else
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End If