calculate the expected resolution time

[megatronixs]

Hi all,



If I want to add 3 more (Working on, Awaiting Information and Frozen case), how can I do this?

Private Sub cmbo_query_categorization_AfterUpdate()
      Me.expected_resolution_time = IIf(Me.cmbo_query_categorization = "non standard", CDate(Me!date_received) + 5 + SkipWeekends(CDate(Me!date_received) + 5), (Me.cmbo_query_categorization = "Working on", CDate(Me!date_received) + 5 + SkipWeekends(CDate(Me!date_received) + 5), CDate(Me!date_received) + 2 + SkipWeekends(CDate(Me!date_received) + 2))
End Sub

When I try it in the above code, I get here an error on the coma (,) after the "non standard":

Me.expected_resolution_time = IIf(Me.cmbo_query_categorization = "non standard",

Greetings.

[ssanfu]

If I want to add 3 more (Working on, Awaiting Information and Frozen case),

3 more what?? Options in the combo box, controls to have the time,.......?


Sorry, my crystal ball is in the shop.

[megatronixs]

Hi, sorry if it was not that clear, I will try to be more clear now, like your crhstall ball :-)

I have added 3 more options in the combobox and if I select "Frozen case" I should get 20 more working days for that type of case, 10 more for "awaiting information" and 7 for "working on".
I guess that changing it the way I tried above will not work, what if using a select case? (I tried it yesterday, but so far no luck)

Greetings.

[ssanfu]

Maybe try this:

Private Sub cmbo_query_categorization_AfterUpdate()
    Dim cmboQryCat As String
    Dim DaysToAdd As Integer  'how many days to add based on the selection in combo box

    cmboQryCat = Me.cmbo_query_categorization
    
    Select Case cmboQryCat
        Case "Frozen case"
            DaysToAdd= 20
        Case "awaiting information"
            DaysToAdd= 10
        Case "non standard"
            DaysToAdd= 10
        Case "working on"
            DaysToAdd= 7
        Case Else
            DaysToAdd= 2
    End Select

    Me.expected_resolution_time = CDate(Me!date_received) + SkipWeekends(CDate(Me!date_received) + DaysToAdd)

End Sub

[megatronixs]

Hi,

This worked our really nice :-)
Would have taken me 1000 years and plenty more crystal balls :-)

Thanks a lot.

[ssanfu]

You're welcome. Good luck with your project.....