Programmatically detect if control exists?

[Custardptt]

Hi All,

Is there an easy way to detect if a control exists in an access form programmatically?

I have code that attempts to set the value of a checkbox (having retrieved the name of the checkbox from a lookup table). Problem is the lookup up table may contain the names of controls that are not on my form.

The code I’m using to set the object values is (this is part of a loop):-
Set myObject = Me.Controls(myRST("DControlName"))
myObject = myRST("DControlValue")

I want to detect if the control exists before attempting to set its value.

Any Thoughts

Many Thanks

Pete

 

[PHV]

You may try something like this:
Dim ctl As control
For Each ctl in Me.Controls
If ctl.Name = "DControlName" Then
ctl.Value = myRST("DControlValue")
Exit For
End If
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[Custardptt]

Yep, That works.

Thanks PHV

Pete