主题：[求助]执行任务栏的单击链接后，新增记录窗口无法编辑，求解！

说明如下：

主窗口中含有副表性质的“合同信息表”，左侧为共有窗口，共有窗口中含有一个任务栏，单击任务栏中的任务链接代码如下:

Select Case e.Link.Name
    Case "销售合同"
        Dim filter As String
        filter ="合同日期 = #" & Date.today() & "# "
        Tables("合同信息表").Filter = filter
        If Tables("合同信息表").Rows.Count = 0 Then
            messagebox.show("亲,今天没有合同哦,加油!","提示")
            Return
        Else
            forms("新增销售合同窗口").open
            Tables("合同信息表").ApplyFilter = False
        End If
    Case "采购合同"
        Dim filter As String
        filter ="合同日期 = #" & Date.today() & "# "
        Tables("采购信息表").Filter = filter
        If Tables("采购信息表").Rows.Count = 0 Then
            messagebox.show("今天没有花钱,建议去看看库存吧!","提示")
            Return
        Else
            forms("新增采购合同窗口").open
            Tables("采购信息表").ApplyFilter = False
        End If
    Case "发货记录"
        Dim filter As String
        filter = "出货日期 = #" & Date.today() & "# "
        Tables("出货信息表").Filter = filter
        If Tables("出货信息表").Rows.Count = 0 Then
            messagebox.show("亲,今天没有发货,去销售合同那边瞧瞧吧!","提示")
            Return
        Else
            forms("新增发货记录窗口").open
            Tables("出货信息表").ApplyFilter = False
        End If
    Case "收款总额"
        Dim filter As String
        filter = "收款日期 = #" & Date.today() & "# "
        Tables("合同账款表").Filter = filter
        If Tables("合同账款表").Rows.Count = 0 Then
            messagebox.show("唉,真可怜,赶紧去催催吧!","提示")
            Return
        Else
            forms("今日收款窗口").open
            Tables("合同账款表").ApplyFilter = False
        End If
    Case "支出总额"
        Dim filter As String
        filter = "支付日期 = #" & Date.today() & "# "
        Tables("支付明细表").Filter = filter
        If Tables("支付明细表").Rows.Count = 0 Then
            messagebox.show("省钱就是硬道理,加油!","提示")
            Return
        Else
            forms("今日支出窗口").open
            Tables("支付明细表").ApplyFilter = False
        End If
    Case "收款预警"
        Dim filter As String
        filter = "到账日期 <= #" & Date.today.AddDays(7) & "# and 支付完结='否'"
        Tables("合同信息表").Filter = filter
        If Tables("合同信息表").Rows.Count = 0 Then
            messagebox.show("亲,不要忘了程序猿在背后提醒你呦!","提示")
            Return
        Else
            forms("收款预警窗口").open
            Tables("合同信息表").ApplyFilter = False
        End If
    Case "付款预警"
        Dim filter As String
        filter = "付款期限 <= #" & Date.today.AddDays(7) & "# and 支付完结='否' "
        Tables("采购信息表").Filter = filter
        If Tables("采购信息表").Rows.Count = 0 Then
            messagebox.show("亲,不要忘了程序猿在背后提醒你呦!","提示")
            Return
        Else
            forms("付款预警窗口").open
            Tables("采购信息表").ApplyFilter = False
        End If
    Case "发货预警"
        Dim filter As String
        filter = "交货期限 <= #" & Date.today.AddDays(7) & "# and 出货完结='否'"
        Tables("合同信息表").Filter = filter
        If Tables("合同信息表").Rows.Count = 0 Then
            messagebox.show("亲,不要忘了程序猿在背后提醒你呦!","提示")
            Return
        Else
            forms("发货预警窗口").open
            Tables("合同信息表").ApplyFilter = False
        End If
End Select

代码中所打开的窗口中含有的表均不是副本形式，且根据实际需要只显示了部分列。

问题：项目启动后，如果不点击左侧共有窗口中的任务链接，则主窗口中的新增功能使用正常。一旦点击任务链接，虽然可以打开新增记录的页面，但是在该窗口中无法实现编辑功能，即不能输入内容。

希望大师帮忙看看问题出在哪里？