这段代码错在哪里？

懒UFO

这段代码错在哪里？
这是我在模块里编的一个公用过程：

Public Sub LockSub(FiledName As String)
    If Forms.FiledName.Value = -1 Then
        Forms.FiledName.Locked = True’将其锁定
        MsgBox "此条记录已经审核，如果需要修改，请与审核者联系！", 0, "提示"
    Else
        Forms.FiledName.Locked = False‘解锁
    End If
End Sub

WTM1

获得焦点了吗？？？

dghotman

Forms.FiledName.value = -1这段语法有错，

假设窗体名为frm_main。

正确的语法应为 Forms!frm_main(FiledName).value来引用（集合引用法）。