Acces – Copiar Campo a Subformulario y viceversa

Buenas…

Llevo un rato peleándome, pero al final… conseguido (gracias a un artículo  de 2009).

La idea es copiar el contenido de un CAMPO de un formulario principal y pegarlo en un CAMPO de un SubFormulario.

Para ello, hemos de copiar primero el CAMPO al portapapeles y cambiar el Focus al campo deseado en el Subformulario y pegarlo, pero antes vaciaremos el CAMPO (“”), por si ya tuviera algún contenido

Os dejo el ejemplo completo asignado a un Botón.

Private Sub Comando83_Click()
 Me.Población.SetFocus
 DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70

DoCmd.GoToControl "frm_visitas"
 Forms!Entrada_Datos!frm_visitas.Form!Poblacion.SetFocus
 Poblacion = ""
 DoCmd.DoMenuItem acFormBar, acEditMenu, acPaste, , acMenuVer70

End Sub

 

Con estra otra, estamos en un subformulario y queremos llevar el Focus al formulario principal, copiarlo al portapapeles y copiarlo en el SubFormulario:

Private Sub Comando53_Click()
Me.Parent.Direccion.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70

DoCmd.GoToControl "frm_visitas"
Forms!Entrada_Datos!frm_visitas.Form!Direccion.SetFocus
Direccion = ""
DoCmd.DoMenuItem acFormBar, acEditMenu, acPaste, , acMenuVer70

End Sub

 

Saludos!

Sé el primero en comentar

Deja un comentario