Not really sure that I understand what you are trying to dom but maybe this is close.
So if Me.txtEhtStage is 8 or less, set Me.txtEhtStage to 9 and add the date to Me.txtModeledDate?
If Me.txtEhtStage is 9 or greater, just set Me.txtModeledDate to the date.
Maybe this is what you want:
Code:
Private Sub chckModeled_AfterUpdate()
Select Case Me.chckModeled
Case Is = True
If Me.txtEhtStage < 9 Then
Me.txtEhtStage = 9
Me.txtModeledDate = Date
Else
' If Me.txtEhtStage >= 9 Then
Me.txtModeledDate = Date
' End If
End If
Case Is = False
If Me.txtEhtStage > 9 Then
Me.txtModeledDate = ""
Else
Me.txtEhtStage = 7
Me.txtModeledDate = ""
End If
End Select
End Sub