StreamLine VBA Code

[Coldsteel]

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

 

[rainman89]

you can use OR in there

If Me.STATUS = "CLOSED - INVAILD" OR Me.STATUS = "CLOSED - FUNDED" OR etc... Then
me.timestamp=date
elseIf Me.STATUS = "CLOSED - INVAILD" Then
Me.STARPOINTS = 0
else
End If

 

[SOS]

How about SELECT CASE?

Private Sub STATUS_AfterUpdate()
   Select Case Me.STATUS
      Case "CLOSED - INVAILD", "CLOSED - FUNDED" , "CLOSED - DENIED", "CLOSED - NEVER FUNDED"
            Me.TimeStamp = Date
      Case "CLOSED - INVAILD" 
            Me.STARPOINTS = 0
   End Select
End Sub

 

[Coldsteel]

Sweet Works Great!!!

Thanks for the info

 

[gemma-the-husky]

watch your typo

invaild or invalid

for reasons like this, developers often use numeric values for combo boxes, with the actual text taken from a look up table

 

[rainman89]

watch your typo

invaild or invalid

for reasons like this, developers often use numeric values for combo boxes, with the actual text taken from a look up table

good catch!