When priotity = D then I want the priority date = date received + 14 and also the status to equal "follow- up". I cannot get the txtbox status to show "follow-up"
Any suggestions?
Private Sub Priority_Change()
If Priority = "A" Then
Priority_Date = Date_Received + 1
ElseIf Priority = "B" Then
Priority_Date = Date_Received + 3
ElseIf Priority = "C" Then
Priority_Date = Date_Received + 7
ElseIf Priority = "D" Then
Priority_Date = Date_Received + 14
ElseIf Priority = "E" Then
Priority_Date = Date_Received + 28
End If
If Priority = "D" Then
Status = "Follow-up"
End If
Dim var As String
var = ""
If Priority = "Z" Then
Status = "Internal"
ElseIf Priority <> "Z" Then
Status = var
End If
End Sub
Any suggestions?
Private Sub Priority_Change()
If Priority = "A" Then
Priority_Date = Date_Received + 1
ElseIf Priority = "B" Then
Priority_Date = Date_Received + 3
ElseIf Priority = "C" Then
Priority_Date = Date_Received + 7
ElseIf Priority = "D" Then
Priority_Date = Date_Received + 14
ElseIf Priority = "E" Then
Priority_Date = Date_Received + 28
End If
If Priority = "D" Then
Status = "Follow-up"
End If
Dim var As String
var = ""
If Priority = "Z" Then
Status = "Internal"
ElseIf Priority <> "Z" Then
Status = var
End If
End Sub