小编use*_*441的帖子

我一直在开发Access表单以用作SQL数据库的前端。我一直在与开发人员合作，他们在我们的主要表单中添加了以下VBA代码：

Private Sub Form_Current()
    If Me.NewRecord = True Then
        Me.Client_Name.Enabled = True
        Me.SSN.Enabled = True
        Me.DOB.Enabled = True
        Me.Prob_Fee.Enabled = True
        Me.Settle_Atty_Amt.Enabled = True
        Me.Settle_Date.Enabled = True
        Me.Final_Date.Enabled = True
    Else
        Me.Client_Name.Locked = True
        Me.SSN.Locked = True
        Me.DOB.Locked = True
        Me.Prob_Fee.Locked = True
        Me.Settle_Atty_Amt.Locked = True
        Me.Settle_Date.Locked = True
        Me.Final_Date.Locked = True
    End If
End Sub

当我尝试向此语句添加新变量时Me.Case_ID.Locked = True，返回以下错误：

编译错误：找不到方法或数据成员

我不确定从这里去哪里。