19/09/2004, 05:47
|
| | | Fecha de Ingreso: septiembre-2004
Mensajes: 9
Antigüedad: 20 años, 2 meses Puntos: 0 | |
| Auxilio
¿Por q no funciona?
Private Sub Report_Open(Cancel As Integer)
Dim OLE1 As ObjectFrame
OLE1.ControlType = acBoundObjectFrame
OLE1.Class = "Word.Document"
OLE1.OLETypeAllowed = acOLEEither
OLE1.Action = acOLEUpdate
OLE1.AutoActivate = True
OLE1.SourceDoc = Report!Camino
OLE1.SizeMode = acOLESizeZoom
End Sub |