I have tried multiple ways of writing this but I am just not getting the code write. Hopefully you will be able to set me straight. I am using Access 2003.

This is the code which has been entered. I hope you can see what I am trying to do but it is just not working:

Private Sub InactiveReason_AfterUpdate()
If Not IsNull(Me.StaffActInact) Then
MsgBox "Change record to INACTIVE"

ElseIf IsNull(Me.StaffActInact) Then
MsgBox "Change record to ACTIVE"

ElseIf Me.StaffActInact = "" Then
MsgBox "Change record to ACTIVE"

Else
If Me.StaffActInact = " " Then
MsgBox "Change record to ACTIVE"
End If
End Sub

Oops I feel so dumb!!

It does help if you refer to the correct field name.

The following ended up working for me:


Private Sub InactiveReason_AfterUpdate()

If IsNull(Me.InactiveReason) Then
MsgBox "You may need to change the record to ACTIVE"

ElseIf Me.InactiveReason = "" Then
MsgBox "You may need to change the record to ACTIVE"

ElseIf Me.InactiveReason = " " Then
MsgBox "You may need to change the record to ACTIVE"
Me.InactiveReason = Null

ElseIf Not IsNull(Me.InactiveReason) Then
MsgBox "You may need to change the record to INACTIVE"

End If

End Sub