Problema con multiples instancias de formulario

[juanfran]

Hola,

He utilizado el codigo descrito en http://allenbrowne.com/ser-35.html para hacer multiples instancias de un formulario, tambien he probado el codigo de la web de microsoft y con ambos metodos tengo el siguiente problema.

En el evento Form_Current cambio el origen de un control web de esta manera:

Me.navegadorfotos.ControlSource = urlfotos

Pues bien, si se ejecuta esa linea no puedo abrir instancias del formulario, si la quito si puedo. ¿alguna idea de por que sucede esto?

[José Mª Fueyo]

Hola
¿Puedes poner el código que usas para crear las instancias? ¿donde declaras la variable de formulario?

Salu2
--
José Mª Fueyo
[MS MVP Access]

[juanfran]

El codigo esta en la web que decia antes, esto lo he puesto en un modulo:

Public clnClient As New Collection 'Instances of frmClient.
Function OpenAClient()
'Purpose: Open an independent instance of form frmClient.
Dim frm As Form

'Open a new instance, show it, and set a caption.
Set frm = New Form_frmClient
frm.Visible = True
frm.Caption = frm.Hwnd & ", opened " & Now()

'Append it to our collection.
clnClient.Add Item:=frm, Key:=CStr(frm.Hwnd)

Set frm = Nothing
End Function

Function CloseAllClients()
'Purpose: Close all instances in the clnClient collection.
'Note: Leaves the copy opened directly from database window/nav pane.
Dim lngKt As Long
Dim lngI As Long

lngKt = clnClient.Count
For lngI = 1 To lngKt
clnClient.Remove 1
Next
End Function

Luego en el evento de cierre del formulario esta el otro codigo para quitar la instancia de la coleccion.

En cualquier caso acabo de probar una alternativa en vez de cambiar el origen del control, he usado:

navegadorfotos.Object.Navigate urlfotos

Así no da problemas, pero en cualquier caso sigue siendo extraño lo otro.

Gracias por responder jose mª!!

Post by José Mª Fueyo
Hola
¿Puedes poner el código que usas para crear las instancias? ¿donde declaras la variable de formulario?
Salu2
--
José Mª Fueyo
[MS MVP Access]