AfterUpdate month selected populate results with N/A but only works if I change the month from orig

[GinaFlan]

I need Results (TxtActualBenchmark) to be populated with "N/A" for certain months selected (but it doesn't work for the month selected) it only works once you change the month from your orignal choice. I am suppose to put the form on the server today. If anyone can help!!!!!



Private Sub ComboMonth_AfterUpdate()
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "January" Then
Me.TxtActualBenchmark = "N/A"


Exit Sub
End If

If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "February" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "March" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "April" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "May" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "July" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "August" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "September" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "October" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "At least one program every 6 months" And Me.ComboMonth = "November" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "January" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "February" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "March" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "May" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "June" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "July" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "September" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "October" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
If Me.txtBenchmarks.Value = "25% Implemented every 4 months" And Me.ComboMonth = "November" Then
Me.TxtActualBenchmark = "N/A"
Exit Sub
End If
End Sub

[June7]

What do you mean "but it doesn't work for the month selected"? Do you mean when the form opens to existing record? Run this code in the form OnCurrent event.

Make the posted code a procedure in the form module:

Sub SetBenchmark()
...
End Sub

The call that Sub in other procedures, such as the OnCurrent or combobox AfterUpdate:

Sub Form_Current()
SetBenchmark
End Sub

Sub ComboMonth_AfterUpdate()
SetBenchmark
End Sub

[GinaFlan]

ok Thank you. I put it under comboGoal update and it worked

[ssanfu]

BTW, all of those IF statements can be shortened to:

Private Sub ComboMonth_AfterUpdate()

    Select Case Me.txtBenchmarks
        Case "At least one program every 6 months"
            Select Case Me.ComboMonth
                Case "January", "February", "March", "April", "May", "July", "August", "September", "October", "November"
                    Me.TxtActualBenchmark = "N/A"
                Case "June", "December"
                    'do nothing
            End Select

        Case "25% Implemented every 4 months"
            Select Case Me.ComboMonth
                Case "January", "February", "March", "May", "June", "July", "September", "October", "November"
                    Me.TxtActualBenchmark = "N/A"
                Case "April", "August", "December"
                    'do nothing
            End Select

    End Select

End Sub

[GinaFlan]

That would be so great. I will try. I have alot more to add I only have one departement finished. Thank you!!!!!

[GinaFlan]

Perfect Thanks Again