Navigation Bar Reappears

[zevw]

The "Displane Navigation Pane" is unchecked in Access 2007.

However Every time I change Function (Dinner, Fund Raiser, Tea Party) it raeppears and I don't undestand why?

Private Sub Form_AfterUpdate()

Dim dbs As Database, tdf As TableDef
On Error GoTo Err_Form_AfterUpdate

    If Nz(DLookup("NewLtrFunc", "Company"), False) = True Then
        Set dbs = OpenDatabase("P:\Donors\DbDonor.mdb")
        Set tdf = dbs.TableDefs("Letter" & Me.FunctionId)
        DoCmd.DeleteObject acTable, "Letter"
        DoCmd.TransferDatabase acLink, "Microsoft Access", "P:\Donors\DbDonor.mdb", acTable, "Letter" & Me.FunctionId, "Letter", True
        Me.Requery
    End If
    Me.CampCnt = Me.RecordsetClone.RecordCount
    Forms!Main.FunctionName.Caption = Nz(DLookup("Description", "Functions", "Current = True"), "No Active Functions")
    Forms!Main.Function = Nz(DLookup("FunctionID", "Functions", "Current = True"), 0)
    
    
Exit_Form_AfterUpdate:
    Exit Sub

Err_Form_AfterUpdate:
    If Err.Number = 3265 Then
        Call New_Func_Letter
        DoCmd.TransferDatabase acLink, "Microsoft Access", "P:\Donors\DbDonor.mdb", acTable, "Letter" & Me.FunctionId, "Letter", True
        Me.Requery
        Me.CampCnt = Me.RecordsetClone.RecordCount
        Forms!Main.FunctionName.Caption = Nz(DLookup("Description", "Functions", "Current = True"), "No Active Functions")
        Forms!Main.Function = Nz(DLookup("FunctionID", "Functions", "Current = True"), 0)
    End If
    If Err.Number <> 3265 Then
        MsgBox Err.Description
    End If
    Resume Exit_Form_AfterUpdate
    
End Sub

[/code}

What can i do to assure that the Navigation pane stays hidden?