Try this ... Private Sub Form_Current() Me.LocationId.SetFocus Me.AreaLocation.Enabled = (Me.LocationId.Text <> "Hamilton") End Sub Private Sub LocationId_AfterUpdate() Form_Current End Sub hth shay :cool: