[AccessD] URGENT: Creating Actiive-X control on form

Erwin Craps - IT Helps Erwin.Craps at ithelps.be
Mon Jan 10 09:12:05 CST 2005


This does not seem to fully work.
It does create the control but some other properties are missing.

I wonder if theres a  way to make a full copy of the control???
Erwin
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps -
IT Helps
Sent: Monday, January 10, 2005 2:40 PM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] URGENT: Creating Actiive-X control on form


Ok, I found this Ms article

http://support.microsoft.com/default.aspx?scid=KB;en-us;q147134

Which is a workaround for the problem. Apparently you can not create an
ActiveX control straigt away due to OLE Class properties that are
missing..

Erwin 


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Erwin Craps -
IT Helps
Sent: Monday, January 10, 2005 2:03 PM
To: accessD at databaseadvisors.com
Subject: [AccessD] URGENT: Creating Actiive-X control on form

Hi
 
I seem to be stuck on this one.
 
I want to create a Active-X control on a form from VBA code.
In my example down here I want a Excel control but, in my code I will
create multiple types of Active-X controls.
The thing is my code does'nt seem to work, altough I believe it should.
The control just stays an empty frame.
 
What am I missing here?
 
Sub DoIT ()
 
    Dim frm As Form
    Dim ctlTemp As Control
    
    Set frm = CreateForm
    frm.Visible = True
    
    Set ctlTemp = CreateControl(frm.Name, acCustomControl, , , , 10, 10,
5000, 500)
    ctlTemp .Class = "Excel.Sheet"    ' Set class name.
                                       
    Set frm = Nothing
    Set ctlTemp = Nothing

end sub
 
 
 

 

Erwin Craps

Zaakvoerder 

www.ithelps.be/onsgezin

 

This E-mail is confidential, may be legally privileged, and is for the
intended recipient only. Access, disclosure, copying, distribution, or
reliance on any of it by anyone else is prohibited and may be a criminal
offence. Please delete if obtained in error and E-mail confirmation to
the sender.

IT Helps - I.T. Help Center  ***  Box Office Belgium & Luxembourg

www.ithelps.be <http://www.ithelps.be/>   *  www.boxoffice.be
<http://www.boxoffice.be/>   *  www.stadleuven.be
<http://www.stadleuven.be/> 

IT Helps bvba* ** Mercatorpad 3 **  3000 Leuven

IT Helps  *  Phone: +32 16 296 404  *  Fax: +32 16 296 405 E-mail:
Info at ithelps.be 

Box Office **  Fax: +32 16 296 406 **  Box Office E-mail:
Staff at boxoffice.be <mailto:figures at boxoffice.be> 

 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com



More information about the AccessD mailing list