Code:
Private Sub PatientGender_LostFocus()
If Not Me.NewRecord Then
If Len(Nz(Me!PatientGender[COLOR=Red][B].Text[/B][/COLOR], "")) = 0 Then
Me.PatientGender.SetFocus
MsgBox "Please select a gender", vbOKOnly, "Choose Gender"
End If
End If
End Sub