Control Marco de objeto dependiente

Medardo
19 de Enero del 2005
Saludos

En un formulario tengo un control de Marco de objeto dependiente OLE, con el fin de insertar un documento a un registro determinado. Eso funciona perfecto, dando un clic encima del control se muestra el cuadro “Insertar objeto”. Después de insertado, con doble clic abro el documento. Hasta ahí todo OK.

Pero hay un solo problema, si estoy en el último registro y hago doble clic encima del control del Marco para abrir el documento, o simplemente, hago un solo clic encima de él, se inhabilita todo el formulario con todos sus controles; de modo que, si el usuario realiza esta operación en el último registro, ¿cómo continúa trabajando si todos los controles están inhabilitados?

El código que tengo en el evento clic de ese control, es el siguiente:

Private Sub OLE1_Click()
Dim conUserCancelled As Integer
conUserCancelled = 2001
On Error GoTo ButtonErr
If OLE1.OLEType = acOLENone Then
OLE1.Action = acOLEInsertObjDlg
End If
Exit Sub
ButtonErr:
If Err = conUserCancelled Then ' Display message.
Exit Sub
End If
Resume Next
End Sub

Intenté con un requery al Form dentro de este código, pero nada.

Medardo