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!