Ooops... Forgot code Sample

[Jim]

Here's the Code Sample from my previous post!

My appologies,
Jim

=====================================
Private Sub ExpiredHose_AfterUpdate()
If ExpiredHose.Value = True Then
InService.Enabled = False
Else
InService.Enabled = True
End If
End Sub

Private Sub InService_AfterUpdate()
If InService.Value = True Then
ExpiredHose.Enabled = False
Else
ExpiredHose.Enabled = True
End If
End Sub
=====================================