assim funciona
Private Sub CheckBox_AfterUpdate()
If Me.CheckBox = True Then
Me.TextBox = Date
End If
If Me.CheckBox = False Then
Me.TextBox = ""
End If
End Sub
Assim não
Private Sub CheckBox_AfterUpdate()
If Me.TextBox = "" And Me.CheckBox = True Then
Me.TextBox = Date
End If
If Me.TextBox = Date And Me.CheckBox = False Then
Me.TextBox = ""
End If
End Sub
Onde errei???
Private Sub CheckBox_AfterUpdate()
If Me.CheckBox = True Then
Me.TextBox = Date
End If
If Me.CheckBox = False Then
Me.TextBox = ""
End If
End Sub
Assim não
Private Sub CheckBox_AfterUpdate()
If Me.TextBox = "" And Me.CheckBox = True Then
Me.TextBox = Date
End If
If Me.TextBox = Date And Me.CheckBox = False Then
Me.TextBox = ""
End If
End Sub
Onde errei???