主题：逻辑列问题

呵呵，是控件的值等于，不是控件等于

Dim chk As WinForm.CheckBox
chk = Forms("不合格品处理").Controls("审核")
If chk.Checked = True  
    Forms("不合格品处理").Controls("记录").Value = _UserName & " " & Date.Now
Else   
    Forms("不合格品处理").Controls("记录").Value = Nothing
End If