فراخوانی تولبارهای ایجاد شده در صورت نیاز

[abdoreza57]

سلام


در صورتی که برای محدودیت در دسترسی کاربران بخواهیم برخی از فرمها را دسته بندی کنیم تصمیم دارم فرمهای موجود تو برنامه را تقسیم کرده و تو چند تولبار اختصاصی نمایش بدم !

من کد فراخوانی تولبار را به جای تولبار اصلی وارد میکنم ولی تو حالتهای مختلف جواب نمیده !!

ممنون میشم اگه از دوستان کسی راهنماییی کنه ...

[abdoreza57]

سلام

یافتم آزمون و خطا !....

Private Sub c1_Click()
DoCmd.ShowToolbar "Readonly_menu", acToolbarWhereApprop = acToolbarYes
DoCmd.ShowToolbar "form", acToolbarNo
End Sub

Private Sub c2_Click()
DoCmd.ShowToolbar "form", acToolbarWhereApprop = acToolbarYes
DoCmd.ShowToolbar "Readonly_menu", acToolbarNo
End Sub

Private Sub c3_Click()
DoCmd.ShowToolbar "Readonly_menu", acToolbarNo
DoCmd.ShowToolbar "form", acToolbarNo
End Sub

Private Sub c4_Click()
DoCmd.ShowToolbar "Readonly_menu", acToolbarWhereApprop = acToolbarYes
DoCmd.ShowToolbar "form", acToolbarWhereApprop = acToolbarYes
End Sub

Private Sub cl_Click()
DoCmd.Close
End Sub
موفق باشید

[iebu12]

با سلام
میشه لطف کنید یک فایل کامل که خودش تولبار هم داشته باشه بزارید؟

با تشکر