Bound OLE object

[RDS2]

I have a OLE object frame on a form wich is used to create an embedded Excel worksheet. This is bound to a field in an underlying table.

Is there a way to code, say a command button, so that it will create (actually insert) the worksheet object without having to go to "Insert Object" on the command bar?

 

[kjv1611]

Don't know if it will help, but maybe you can look here:

thread705-1243827

 

[RDS2]

I can get this far with the follwing code (assigned to the double click event of a command button):

OLEBound25.Class = "Excel.Sheet"
OLEBound25.OLETypeAllowed = acOLEEither
OLEBound25.Action = acOLECreateEmbed

OLEBound25 is the control name. This will create the worksheet in the control. I have yet to figure out how then to open the worksheet for editing other than double-clicking (via the Auto-Activate property.)

There should be a way to code the button so that it also opens the worksheet. I've tried various items such as acOLEVerbShow to no avail.

 

[Remou]

How about:
[tt] [OLEBound25].SourceDoc = Me.txtFileName
[OLEBound25].Action = OLE_CREATE_EMBED
[OLEBound25].Action = acOLEActivate[/tt]

 

[RDS2]

Thanks for the suggestions - all.

Sometime I just move in the wrong direction!
By adding Remou's last line:
OLEBound25.Action = acOLEActivate
to the existing code, everthing works as I want it - the worksheet is created and opened for editing.