Hello all,
Is there a way to improve my code? Here is my code:
Private Sub STATUS_AfterUpdate()
If Me.STATUS = "CLOSED - INVAILD" Then
Me.TimeStamp = Date
End If
If Me.STATUS = "CLOSED - FUNDED" Then
Me.TimeStamp = Date
End If
If Me.STATUS = "CLOSED - DENIED" Then
Me.TimeStamp = Date
End If
If Me.STATUS = "CLOSED - INVAILD" Then
Me.STARPOINTS = 0
End If
If Me.STATUS = "CLOSED - NEVER FUNDED" Then
Me.TimeStamp = Date
End If
End Sub
Thanks,
Mike
Is there a way to improve my code? Here is my code:
Private Sub STATUS_AfterUpdate()
If Me.STATUS = "CLOSED - INVAILD" Then
Me.TimeStamp = Date
End If
If Me.STATUS = "CLOSED - FUNDED" Then
Me.TimeStamp = Date
End If
If Me.STATUS = "CLOSED - DENIED" Then
Me.TimeStamp = Date
End If
If Me.STATUS = "CLOSED - INVAILD" Then
Me.STARPOINTS = 0
End If
If Me.STATUS = "CLOSED - NEVER FUNDED" Then
Me.TimeStamp = Date
End If
End Sub
Thanks,
Mike