source of datatype issue?

[GraeagleBill]

In the segments of code below, my intent is to set the name of a textbox control that will receive a string at a later time in processing. I can't find the source of the runtime 13 mismatch.

I've tried the code with and without the ".Value" and also setting a variant variable to the string with an attempt to assign that variable to the textbox.

I'm obviously missing something really basic here?

Dim ctrlEMDT As Control
<snip>
    Set ctrlEMDT = tbDTSample
<snip>
    Set ctrlEMDT = tbDTAllSubscribers
<snip>
    Set ctrlEMDT = tbDTAsSelected
<snip>
    Me.Controls(ctrlEMDT).Value = Date & " (" & Format(Time, "hh:mmampm") & ")"
    Me.Controls(ctrlEMDT).Visible = True

[Edgar]

What happens if you do this:
Me.Controls(ctrlEMDT.Name).Value = Date & " (" & Format(Time, "hh:mmampm") & ")"
Me.Controls(ctrlEMDT.Name).Visible = True

[pbaldy]

Where is the error? The lines setting .Value and .Visible might be expecting a string value. Or try

ctrlEMDT.Value = ...

[Welshgasman]

You are using set instead of let?

[GraeagleBill]

Adding the ".Name" as you suggest clears up the issue.
Thanks, Bill

[GraeagleBill]

Me.Controls(ctrlEMDT).Value = Date & " (" & Format(Time, "hh:mmampm") & ")"

Post #2 solved the problem, but your suggestion also works:

    ctrlEMDT.Value = Date & " (" & Format(Time, "hh:mmampm") & ")"
    ctrlEMDT.Visible = True

[GraeagleBill]

If I try to use "Let" I get a runtime error 91.

ctrlEMDT = tbDTSample

[Welshgasman]

That is the same as Let?, you are just assigning a value to what I believe should be a string?
Then you use that variable in Me.Controls( )

Me.Controls(ctrlEMDT) = Date & " (" & Format(Time, "hh:mmampm") & ")"

Edit: Let works fine for me?

Let Me.Controls("txtSteps") = 99

[GraeagleBill]

Me.Controls(ctrlEMDT) = Date & " (" & Format(Time, "hh:mmampm") & ")"

Is what I coded to begin with and got the runtime 13 mismatch.

Anyway, either of #2 or Paul's suggestion got the job done.

Thanks,
Bill

[Welshgasman]

Me.Controls(ctrlEMDT) = Date & " (" & Format(Time, "hh:mmampm") & ")"

Is what I coded to begin with and got the runtime 13 mismatch.

Anyway, either of #2 or Paul's suggestion got the job done.

Thanks,
Bill

That is because ctrlIEMDT is defined as a control and not a string?

[Micron]

You wouldn't need the name property if you correctly passed the name as a string: Me.Controls("ctrlIEMDT") or maybe even Me.Controls!ctrlIEMDT because as you know, when you use the bang operator, what follows it is passed as a string to the default property of what precedes it. In this case, that would be .Name