Automatic form field fill in

[tsn.s]

Hi

I have a field on a form called "Course Status". I am trying to get it to say either "Pass" or "Pending" depending on whether 4 other fields (Assessment 1 in, Assessment 2 In, Assessment 3 In and Assessment 4 In) say "Pass". I've managed to get "Course Status" to say "Pass" if the other 4 fields are set to "Pass" but I'm not entirely sure on how to get it to say "Pending" if they are not. I have placed the code under the 4 fields that "Pass" needs to be in. This is what I have so far:

Private Sub Assessment_1_Status_AfterUpdate()

If Me.Assessment_1_Status = "Pass" And Me.Assessment_2_Status = "Pass" And Me.Assessment_3_Status = "Pass" And Me.Assessment_4_Status = "Pass" Then Me.Course_Status = "Pass"

End Sub

I hope this makes sense.

Any help is much appreciated.

Thanks

tsn.s

[Bob Fitz]

Hi

You could try this:
If Me.Assessment_1_Status = "Pass" And Me.Assessment_2_Status = "Pass" And Me.Assessment_3_Status = "Pass" And Me.Assessment_4_Status = "Pass" Then
Me.Course_Status = "Pass"
Else
Me.Course_Status = "Pending"

End If

[RuralGuy]

I think you need and ElseIf using the same test but with OR instead of AND.

[tsn.s]

Thanks for the help!

I've tried both ways and booth work great.

Cheers

tsn.s

[RuralGuy]

Post #2 does not guarantee that at least one of the elements is a "Pass" if that makes any difference.