直接先上干货示例，请下载！

附   件:

点击下载此附件

代   码：

‘需要写在数据表的当前事件里：

Private Sub Form_Current()
    If Me.采购日期 > Me.Parent!日期 Then
        Me.选择.Locked = False
    Else
        Me.选择.Locked = True
    End If
End Sub

gif 演示：