Disable/Enable all controls on a form based on value of anothercontrol

[Kurt Heisler]

What is the best to way to exclude a specific control (or controls)
from the following condition? (e.g., I would like to exclude SubjectID
and MRN from being Enabled or Disabled):

###

Dim Ctl As Control
On Error Resume Next

If IsNull(Me.SubjectID) OR IsNull(Me.MRN) Then
For Each Ctl In Me.Controls
Ctl.Enabled = False
Next Ctl
Else
For Each Ctl In Me.Controls
Ctl.Enabled = True
Next Ctl
End If

###

I'm using this to ensure that the user enters the SubjectID and MRN
*before* entering more data for the subject. By disabling all the
controls when SubjectID and MRN are blank, he has no choice but to
start there.

(I realize I can evaluate later whether SubjectID & MRN are null, like
when the user tries to leave the record, but I'd prefer to do it ahead
of time.) I need the code to work in the form's OnCurrent Event
(basically, for new records), and also in the OnClick event of a
button that says "Go!" (which will enable the controls).

If there is a more reliable/efficient way to go about enforcing this
kind of quality control, I'm all ears.

 

[Jeff Boyce]

Kurt

One approach might be to set those controls' properties to disabled
initially, then only enable them when the controls you wish have had values
added/selected.

Regards

Jeff Boyce
Microsoft Access MVP

--
Disclaimer: This author may have received products and services mentioned
in this post. Mention and/or description of a product or service herein
does not constitute endorsement thereof.

Any code or pseudocode included in this post is offered "as is", with no
guarantee as to suitability.

You can thank the FTC of the USA for making this disclaimer
possible/necessary.

 

[Beetle]

The Tag property might come in handy here. Put something like
X (or whatever you want) in the Tag property of the controls for
SubjectID and MRN. Then modify your code as follows;

Dim Ctl As Control
On Error Resume Next

If IsNull(Me.SubjectID) OR IsNull(Me.MRN) Then
For Each Ctl In Me.Controls
If Ctl.Tag <> "X" Then Ctl.Enabled = False
Next Ctl
Else
For Each Ctl In Me.Controls
Ctl.Enabled = True
Next Ctl
End If