Private Sub MychkBox_AfterUpdate()
Select Case Me.MychkBox.Value
Case -1
Me.MyTextBox = Now
Case 0
Me.MyTextBox = ""
End Select
End Sub
'=====================================
Private Sub MychkBox_AfterUpdate()
If Me.MychkBox.Value = True Then
Me.MyTextBox = Now
Else
Me.MyTextBox = ""
End If
End Sub