Access 2007 switchboard issue

Topic

New Reply

I have been happily running a FE/BE system for quite a while with the FE using an .accdb and the backend being an .mdb. The switchboard was originally built in 97 and has migrated up through 2003 to 2007 without any issue whatsoever.

On friday afternoon I decided to finally update the BE to an .accdb file. This all went well and I relinked all the tables without any issue.

BUT the buttons on my switchboard for SUBMENUS will not work.

It sounds a lot like the problem RetiredGeek had http://windowssecrets.com/forums/showthread//126414-Access-2007-Switchboard-Inoperable-on-File-Open

except no matter how I open the switchboard form the buttons will not work.

I have done nothing to the FE except relink the tables to the new BE. Switchboard table has always been FE

The switchboard manager in 2007 seems hopeless as it won’t show all the main menu items or resize properly as its supposed to.

Any ideas anyone?

Reply | Quote

Replies

Haven’t heard that one before, would you send the database zipped with test data only.

Reply | Quote

here is a trimmed down copy of the front and back end. You will have to relink the back end tables. you will see that the sub menu options don’t work even though all the code is there.

Reply | Quote

I put a Me.FilterOn = True prior to the Me.Filter = …. command and it seems to work fine

Reply | Quote

Where about did you put it?

Reply | Quote

In the switchboard where the Select Case statement is for option 1 which sets the Filter for the form.
In the Private Function HandleButtonClick(intBtn As Integer) you will see the following code:

Code:

On Error GoTo HandleButtonClick_Err

    ' Find the item in the Switchboard Items table
    ' that corresponds to the button that was clicked.
    Set con = Application.CurrentProject.Connection
    Set rs = CreateObject("ADODB.Recordset")
    stSql = "SELECT * FROM [Switchboard Items] "
    stSql = stSql & "WHERE [SwitchboardID]=" & Me![SwitchboardID] & " AND [ItemNumber]=" & intBtn
    rs.Open stSql, con, 1    ' 1 = adOpenKeyset
    
    ' If no item matches, report the error and exit the function.
    If (rs.EOF) Then
        MsgBox "There was an error reading the Switchboard Items table."
        rs.Close
        Set rs = Nothing
        Set con = Nothing
        Exit Function
    End If
    
    Select Case rs![Command]
        
        ' Go to another switchboard.
        Case conCmdGotoSwitchboard
            Me.FilterOn = True     '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            
            Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID]=" & rs![Argument]
            
        ' Open a form in Add mode.
        Case conCmdOpenFormAdd

Check out the code pointed to by '<<<<<<<<<<<<<<<<<<<<<<<<<<<

Reply | Quote

Thanks Pat,

As you know that did it :clapping:

Reply | Quote