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 时间: 2003-4-7 21:37
获得焦点了吗???作者: dghotman 时间: 2003-4-10 18:51
Forms.FiledName.value = -1这段语法有错,