I have a form on which one field is required only if another field on the same form has a specific value. How can I force the user to enter a value on that field before allowing him to continue to fill up the rest of the form?

Thanks.

[LGuzman]

__________________
[LGuzman]

Use either the Exit event or the LostFocus event of the field. See if it contains a value. If not, SetFocus back to the field.

Be careful, the field will lose focus if changing to another form within your application or even to another application. Be sure to test this carefully.

Randall J Weers
Membership Vice President
Pacific NorthWest Access Developers Group
http://www.pnwadg.org

Be also careful you don't trap the user on the field. Scenario: the user enters the data in Field1. Field2 is now required because Field1 = X. You set focus to Field2. Your lost focus code says that it's required and won't let the user out. What if the user then decides that Field1 is NOT X? The user is now "stuck" in Field2 unless he/she puts a dummy value on Field2, changes Field1, and erases Field2 again.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

First I would like to thank you both for replying.

Second, I now have tried on the LostFocus event of the field in which I want to force the user to enter a value, to set the focus back on it if it's value is Null.

I have tested with a Msgbox to make sure I am getting within the condition, which I am, but the Fieldname.SetFocus doesn't seem to work. Meaning when I tab out of the said field, it goes to the next field, leaving the required one empty!

[LGuzman]

Can you please post your code for the field's Lost Focus event? That'll help us figure out what's wrong. Thanks.


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Private Sub Cmb_SecondarySTI_LostFocus()
If IsNull([Cmb_SecondarySTI]) Then
   [Cmb_SecondarySTI].SetFocus
End If
End Sub

I have also tried the following:
Private Sub Cmb_SecondarySTI_LostFocus()
If IsNull([Cmb_SecondarySTI]) Then
   Cmb_SecondarySTI.SetFocus
End If
End Sub

---

Private Sub Cmb_SecondarySTI_LostFocus()
If IsNull([Cmb_SecondarySTI]) Then
   Forms!Frm_Application!Cmb_SecondarySTI.SetFocus
End If
End Sub




[LGuzman]

My profound apologies. Not sure why it's not working. It doesn't work for me either. But this will work...

Note the change to the Exit event instead of LostFocus

No apologies necessary. I appreciate the time you took to help me. It seems to me that what you first sugested should have worked. Anyway, I tried your code and it works.

Thanks.


[LGuzman]