UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
6 Pages V « < 3 4 5 6 >  (Go to first unread post)
   Reply to this topicStart new topic
> Side Menu Interface Revisioned, Office 2007    
 
   
Katty
post Aug 30 2011, 09:29 AM
Post#81



Posts: 169
Joined: 1-February 10
From: Lincolnshire UK


I think your problem is likely the syntax of how you are calling the property and from where. As frmDesktop is the main form, sfrmWorkspace is the 1st subform and your childform is the second subform. Your button sounds like it is running from sfrmWorkspace (which is holding your main form as the source object).
Is per The Access Web, I think you should be using Me![childform].Form.RecordSource.
Not exactly sure, but the link gives the best write up I've ever found on referring to subforms.
Kat
Go to the top of the page
 
recall
post Aug 30 2011, 10:37 AM
Post#82



Posts: 723
Joined: 21-December 04
From: St Helens, UK


Sorted thanks.
olution was :
CODE
[Forms]![frmDesktop]![sfrmWorkspace]![ChildForm].Form.RecordSource = "QryKeyCostingsUncosted_ForDatsheet"
Go to the top of the page
 
recall
post Sep 8 2011, 08:27 AM
Post#83



Posts: 723
Joined: 21-December 04
From: St Helens, UK


Can anyone help me with a problem I've got.
I'm using the side menu interface and it looks / works really well. The only issue I have is that on some PCs I put it on the bottom menu / menus disappear off the bottom of the screen. It may have something to do with the screen resolution. Has anyone had similar experiences and if so how have they been able to resolve?
Thanks for any advice offered.
Go to the top of the page
 
Jackns
post Sep 21 2011, 01:03 PM
Post#84



Posts: 61
Joined: 23-November 10



HELP HELP!!!! Wondering if someone can give me a hand on this issue im having seems when i click on the dialog box (certification / Drill ) it shrinks the interface like a (dialog box) im a bit stumped everything works great and i much appriciate the interface design ..
Attached File(s)
Attached File  needhelp.JPG ( 117.71K )Number of downloads: 667
 
Go to the top of the page
 
constantG
post Dec 8 2011, 09:56 PM
Post#85



Posts: 2
Joined: 26-February 10



Got it!!! < < I had to use ---- Forms!frmdesktop!sfrmworkspace!. ----- followed by the control on the frmPersonal. If I understand it correctly the control sfrmWorkSpace becomes the form frmPersonal when it is initiated from the sidebar. Very confusing but I got it working. yey.
Go to the top of the page
 
jhcarrell
post Dec 13 2011, 04:49 PM
Post#86



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


This may help ...
frmWorkspace is not a form itself, but rather an unbound control within frmDesktop.
The Source Object for the sfrmWorkspace control is managed via VBA code.
J
Go to the top of the page
 
jhcarrell
post Dec 22 2011, 11:41 AM
Post#87



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


This will be my last posted example of this side menu interface example indefinitely.
ersion 10 as posted here is in an experimental stage and is not ready for production use as is.
The permissions functions have been reworked and are functional, but need to be incorporated into frmSideMenuAdmin (see frmSideMenuAdminGroupAccess).
I was working on several new features when an as of yet unknown source of performance lag (VBA) was discovered when using as a split database application.
There are many interesting pieces of code within this example that UA members may find useful in other projects outside of this interface.
I welcome and encourge other members to use, modify, and share this example.
My only request is that comments regarding credit for authoring/editing code contained within remain.
J
[attachment=50241:SideMenu...10_a2007.zip]
Go to the top of the page
 
jhcarrell
post Dec 23 2011, 09:54 AM
Post#88



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


After taking a fresher look at this, I realized that I had made additional modifications to the side menu permissions setup that were nearly complete and will greater benefit members experimenting with this interface.
will finish and implement the permissions manager and repost version 10.
J
Go to the top of the page
 
lkbree51
post Dec 23 2011, 10:21 AM
Post#89



Posts: 1,608
Joined: 21-October 10
From: South Central Kentucky


Hello jhcarrell
downloaded your new version and you seem to have left out the Log Out...just wanted to let you know.
Larry
Go to the top of the page
 
jhcarrell
post Dec 23 2011, 11:39 AM
Post#90



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


The code is still there, you just need to add a button named cmdLogOut to frmDashboard and reference [Event Procedure] in the On Click property of cmdLogOut.
'll add one when I repost.
J
Go to the top of the page
 
lkbree51
post Dec 23 2011, 12:17 PM
Post#91



Posts: 1,608
Joined: 21-October 10
From: South Central Kentucky


Also I noticed that from any user type you can go into the design view of your DataBase? Just for your information...am not complaining...you all have done a great job on this and I am very greatful for you time and effort.
Thanks
Larry
Go to the top of the page
 
jhcarrell
post Dec 23 2011, 02:31 PM
Post#92



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


That can be corrected by adding code basing visibility of that button to the On Open event of frmDashboard.
--
THere is Version 10 Repost.
If you open frmSideMenuAdmin, you will notice a new button "Menu Permissions". This opens the menu permissions manager.
Now you have the ability to not only control which groups are visible based on the user's access level, but also which items are visible within the groups.
Enjoy.
J
Attached File  SideMenuInterface_v10_a2007_Final.zip ( 801.7K )Number of downloads: 1988
Go to the top of the page
 
lkbree51
post Dec 23 2011, 05:23 PM
Post#93



Posts: 1,608
Joined: 21-October 10
From: South Central Kentucky


Thanks a lot jhcarrell
Any ways...have a safe and happy holidays...hope to see you around much more next year.
When it comes to adding code to something...I am not that good at it...been trying to get a function to get the previous balance from the last record enter for each Clients and haven't been able to come up with nothing.
So have a good one.
Thanks
Larry
Go to the top of the page
 
jhcarrell
post Dec 23 2011, 05:29 PM
Post#94



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


Thanks and same to you.
I'm pretty sure I can help you with that as I've done something very similar in another project.
I did you start a thread regarding what you're trying to do? If so, PM me the link and I'll chime in.
J
Go to the top of the page
 
lkbree51
post Dec 23 2011, 05:47 PM
Post#95



Posts: 1,608
Joined: 21-October 10
From: South Central Kentucky


I started a thread on it but I don't know how to link them.
Thanks
Larry
Go to the top of the page
 
port_call
post Jan 11 2012, 07:44 AM
Post#96



Posts: 9
Joined: 8-September 10



Is there anyway you can add more than 20 items in each Menu/ SubMenu? if so, how and where do you add it at?
Go to the top of the page
 
jhcarrell
post Jan 11 2012, 09:10 AM
Post#97



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


Yes, but it'll take some work to do so.
irst find these lines of code in clsSideMenu
CODE
Private WithEvents m_ItemPane As Form
Private WithEvents m_ItemCover01 As Access.CommandButton
Private WithEvents m_ItemCover02 As Access.CommandButton
Private WithEvents m_ItemCover03 As Access.CommandButton
Private WithEvents m_ItemCover04 As Access.CommandButton
Private WithEvents m_ItemCover05 As Access.CommandButton
Private WithEvents m_ItemCover06 As Access.CommandButton
Private WithEvents m_ItemCover07 As Access.CommandButton
Private WithEvents m_ItemCover08 As Access.CommandButton
Private WithEvents m_ItemCover09 As Access.CommandButton
Private WithEvents m_ItemCover10 As Access.CommandButton
Private WithEvents m_ItemCover11 As Access.CommandButton
Private WithEvents m_ItemCover12 As Access.CommandButton
Private WithEvents m_ItemCover13 As Access.CommandButton
Private WithEvents m_ItemCover14 As Access.CommandButton
Private WithEvents m_ItemCover15 As Access.CommandButton
Private WithEvents m_ItemCover16 As Access.CommandButton
Private WithEvents m_ItemCover17 As Access.CommandButton
Private WithEvents m_ItemCover18 As Access.CommandButton
Private WithEvents m_ItemCover19 As Access.CommandButton
Private WithEvents m_ItemCover20 As Access.CommandButton

and add the desired number of command button item covers. Example:
CODE
Private WithEvents m_ItemCover21 As Access.CommandButton
Private WithEvents m_ItemCover22 As Access.CommandButton

You will also need to open the form ctlSideMenuPane in design view and add the following controls for each new item (example is for 2 new items):
Icon21
Icon22
Item21
Item22
ItemCover21
ItemCover22
See exisiting items. You could copy, paste and rename to save time.
A word of caution ... ctlSideMenuPane's detail section is set to have no scroll bars ... as you add additional items, it may become necessary to change this setting. I would recommend doing in in code based upon the itempane record set count or similar as opposed to making scroll bars visible by default.
You will also need to add the following code to clsSideMenu:
CODE
Private Sub m_ItemCover21_click()
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'//
'// AUTHOR : Rex
'//
'// REVISIONS BY : jhcarrell
'//
'// HISTORY : 26 Jul 2011 - Added error handling. (JHC)
'//
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
On Error GoTo Error_Handler
OpenItem ItemMenuID(21)

Exit_Procedure:
Exit Sub
Error_Handler:
DisplayError Err.Number, Err.Description
Resume Exit_Procedure
Resume
End Sub
Private Sub m_ItemCover21_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'//
'// AUTHOR : Rex
'//
'// REVISIONS BY : jhcarrell
'//
'// HISTORY : 26 Jul 2011 - Added error handling. (JHC)
'//
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
On Error GoTo Error_Handler
HighlightItem "Item21"
Exit_Procedure:
Exit Sub
Error_Handler:
DisplayError Err.Number, Err.Description
Resume Exit_Procedure
Resume
End Sub
Private Sub m_ItemCover22_click()
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'//
'// AUTHOR : Rex
'//
'// REVISIONS BY : jhcarrell
'//
'// HISTORY : 26 Jul 2011 - Added error handling. (JHC)
'//
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
On Error GoTo Error_Handler
OpenItem ItemMenuID(22)
Exit_Procedure:
Exit Sub
Error_Handler:
DisplayError Err.Number, Err.Description
Resume Exit_Procedure
Resume
End Sub
Private Sub m_ItemCover22_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
'//
'// AUTHOR : Rex
'//
'// REVISIONS BY : jhcarrell
'//
'// HISTORY : 26 Jul 2011 - Added error handling. (JHC)
'//
'// =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
On Error GoTo Error_Handler
HighlightItem "Item22"
Exit_Procedure:
Exit Sub
Error_Handler:
DisplayError Err.Number, Err.Description
Resume Exit_Procedure
Resume
End Sub

Please note that I have not tested this and can't guarantee that I've thought of all steps necessary, but this should get you started.
Hope that helps.
Go to the top of the page
 
lkbree51
post Jan 11 2012, 07:04 PM
Post#98



Posts: 1,608
Joined: 21-October 10
From: South Central Kentucky


Hello
irst off...thank you for all the work that you all have put into the Side Bar Menu and it is very great. ...
I have been trying to work with your Version 10 and I can't get anything to work on it...it seems. I can't even get it to add my forms and reports to the menu.
Guess I am just not smart enough for something like this.
Thanks
Larry
Go to the top of the page
 
jhcarrell
post Jan 11 2012, 10:18 PM
Post#99



Posts: 573
Joined: 31-October 10
From: Birmingham, Alabama


After adding your forms as menu items to the selected group, you will need to open the permissions manager and select what groups and menu items each access level can see in the side menu.
se attached screenshots as a reference ...
click blue arrow to add menu items, click red arrow to set menu permissions. Select the user group from the combo and then select which groups AND which menu items in those groups the user group can see. This process could be streamlined and further improved upon.
Note: As I stated in earlier posts, this is not a production ready interface, but more so an experiment with functionality based loosely on Rex's original side menu example. A fair amount of refinement and testing should be considered necessary before deploying in a live user environment.
Hope this helps.
Attached File  addMenuItems.PNG ( 180.05K )Number of downloads: 737

Attached File  setMenuPermissions.PNG ( 34.2K )Number of downloads: 421
Go to the top of the page
 
lkbree51
post Jan 12 2012, 04:36 AM
Post#100



Posts: 1,608
Joined: 21-October 10
From: South Central Kentucky


Thanks jhcarrell
still can't get it to work...I will try using the version 9 one
Larry
Go to the top of the page
 
6 Pages V « < 3 4 5 6 >


Custom Search


RSSSearch   Top   Lo-Fi    17th October 2019 - 11:21 PM