access2007主窗体窗体不许编辑后,用列表框不能筛选的问题

 

如附件,主窗体窗体中有一个字段"锁定"---是否类型,在窗体的Current事件中,根据"锁定"的值来确定窗体是否可以编辑

Private Sub Form_Current()
    If Me.锁定 = True Then
        Me.AllowEdits = False
    Else
        Me.AllowEdits = True         �������ش˸���
    End If
End Sub

同时,为了对窗体进行方便地筛选,用一个列表框"list10"

Private Sub List10_Click()
    Me.Filter = "主题='" & List10 & "'"
    Me.FilterOn = True
    主题.DefaultValue = """" & List10 & """"
End Sub

...

当记录移动到[锁定]字段值为"true"后,列表框就不能点击了,请问如何处理?