Bound / Unbound?

[scouser]

I would like to create a switchboard as follows:

Display a list of Menu Options (text or cmd buttons) in left pane. When a user selects the menu option i.e. 'Reports' a list of available reports would be displayed in the right pane?

See attached jpeg for example of my madness!!

Any ideas/
regards,
Phil.

 

[KeithG]

I made a very quick example for you. To add a report or form to the list you must add a record to table tblMenu. Is this what you kind of wanted?

 

[scouser]

Thanks

Keith I will take a look and post back.
Regards,
Phil.

 

[scouser]

Menu

Keith

is this what you kind of wanted

Well kind of.............

If you select a Menu option on the left related options are displayed on the right. You then click an optin on the right to open it.

i.e. By selecting the cmd button 'Reports' a list of available reports are displayed in the right pane. Users can then click a report name to open it.

Hope that makes sense. Many thanks for your efforts.
Phil.

 

[KeithG]

Look at the below. Open the menu and click the forms button then double click on the brownbox (record selector) to onen the specified form.

 

[scouser]

Thanks

Thanks Keith. I eventually worked it out!! Would it be easy to mod to allow users to select the text 'Setup Information' to trigger the form to open.

Regards,
phil.

 

[KeithG]

see the below document.

 

[scouser]

Mod

Keith I have managed to do modify it. Many thanks for your hard work.
I intend to include the menu in a sample database I am going to post in the database forum.
Many Thanks,
Phil.

 

[scouser]

Can't Open Reports?

I made a mod after adding a report but when I double click nothing happens?

Private Sub Form_DblClick(Cancel As Integer)
    strType = DLookup("ObjectType", "tblMenu", "[ObjectName]='" & Me.ObjectName & "'")
    
    If strType = "form" Then
        DoCmd.OpenForm Me.ObjectName
        
        If strType = "report" Then
        DoCmd.OpenReport Me.ObjectName
    End If
    End If
End Sub


Private Sub ObjectDisplayName_DblClick(Cancel As Integer)
strType = DLookup("ObjectType", "tblMenu", "[ObjectName]='" & Me.ObjectName & "'")
    
    If strType = "form" Then
        DoCmd.OpenForm Me.ObjectName
        
        If strType = "report" Then
        DoCmd.OpenReport Me.ObjectName
    End If
    End If
End Sub

I basically added:

If strType = "report" Then
        DoCmd.OpenReport Me.ObjectName
    End If

See attached sample.
Many Thanks,
Phil.

 

[KeithG]

Here you go take a look

 

[scouser]

Thanks

Top man, will take a look.
Thanks,
Phil.

 

[scouser]

Good Work

Thanks Keith, just what I was looking for. I wasn't a million miles away
Phil.

 

[KeithG]

The only problem was you had your second If statement inside the first one.