Control in Sub

[Hermione]

Hi

I'm trying to pass a control in the parameter of a Subbut it's not working

this is my methode:


Sub MAJCombo(cltCombo As Control)
cltCombo.RowSource = strQuery
cltCombo.requery
end sub

In the after_Click event of my combo box:


Private Sub cboDimension_AfterUpdate()
Dim x as control
x = Me.Name
call MAJCombo(x)
end sub

I have the message type incompatibility and when I click on OK I have NAME
selected

Thanks for your help

 

[Brendan Reynolds]

Is your combo box named 'Name'? That's really not a good idea, as forms (and
many other objects) have a Name property. Your code is actually attempting
to assign the value of the form's Name property to the variable, and that is
the cause of the type mismatch error, as the Name property is of type Sting,
not Control.

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.

 

[Brendan Reynolds]

"Brendan Reynolds" <brenreyn at indigo dot ie> wrote in message

the cause of the type mismatch error, as the Name property is of type
Sting,

.... or String, even!

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.

 

[Hermione]

Hi Brendan

Thanks for your response But I can't pass the value Me.cboDimension it'll
return the selected value of the combo so how can I fix this problem

Thanks again

 

[Hermione]

Thanks, I resolve it

I have to pass Me.cboDimension

Me.ControlName

Thanks again