[RESUELTO]Problemas con la apertira de un formulario desde o

[quicomo]

Una vez creada la base, y desde un formulario, intento que, a través de un boton, se abra otron formulario que tiene informacion vinculada a cada uno de los registros. A través de este foro y con la ayuda de RMG, he logrado pasar de un formulario a otro, pero la informacion siempre es la correspondiente al 1º de los registro, lo que supone un eroor

Adjunto el archivo con un esbozo de la base en cuestión, por para una mayor información

GRACIAS por adelatado por la colaboración

Tecnicas.rar

(112.58 KiB) Descargado 322 veces

[RMG]

Hola quicomo

Prueba si es esto lo que quieres.

Saludos

[quicomo]

Gracias RMG.- Ahora si que está resuelto del todo.- Te agradezco sinceramente tu colaboración.- Un saludo

[kulhom]

buenas.

tengo el mismo problema. he copiado la macro "abrir formulario filtrado" a mi base y abre el nuevo formulario, pero con el primer registro y no con el registro activo.

Cual puede ser mi error?

[RMG]

Hola,
Tu error puede ser que no captures el registro seleccionado, pero lo mejor es que adjuntes un pequeño ejemplo de lo que estas haciendo par verlo mejor.

Saludos

[Vjpalcaraz]

Buenas, tengo una duda tonta, necesito hacer lo mismo que el usuario del documento "técnicas" pero no se donde se debe meter la macro al inicio del segundo formulario.
En el formulario principal creo un botón que al pulsarlo me abra otro formulario:

Código: Seleccionar todo

Global iID As Integer

'Macro para poner "Boton de raton pulsado

Sub AbrirFormularioFiltrado (Event As Object)
	Dim oForm As Object
	oForm = Event.Source.Model.Parent
	If oForm.IsNew Or oForm.IsAfterLast Then Exit Sub
	iID = oForm.Columns.GetByName("ID").GetInt
	With ThisDatabaseDocument.FormDocuments.GetByName("Form2")
		.Close
		.Open
	End With
End Sub

y en el Form2, en edición le doy a herramientas,personalizar,sucesos y asigno la siguiente macro a abrir documento:

Código: Seleccionar todo

Sub Filtro (Event As Object)
	Dim oForm As Object
	oForm = Event.Source
	oForm.ApplyFilter=True
	oForm.Filter="""ID""=" & iID
	oForm.Reload
End Sub

Esto me da un error. En el archivo "técnicas" está en blanco. ¿Podrías decirme donde debo colocar la segunda macro?.
Muchas gracias.