Buenas\u2026<\/p>\n
Llevo un rato pele\u00e1ndome, pero al final\u2026 conseguido (gracias a un art\u00edculo \u00a0de 2009).<\/p>\n
La idea es copiar el contenido de un CAMPO de un formulario principal y pegarlo en un CAMPO de un SubFormulario.<\/p>\n
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 (\u201c\u201d), por si ya tuviera alg\u00fan contenido<\/p>\n
Os dejo el ejemplo completo asignado a un Bot\u00f3n.<\/p>\n
Private Sub Comando83_Click()\n Me.Poblaci\u00f3n.SetFocus\n DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70\n\nDoCmd.GoToControl \"frm_visitas\"\n Forms!Entrada_Datos!frm_visitas.Form!Poblacion.SetFocus\n Poblacion = \"\"\n DoCmd.DoMenuItem acFormBar, acEditMenu, acPaste, , acMenuVer70\n\nEnd Sub<\/pre>\n<\/p>\n
Con estra otra, estamos en un subformulario y queremos llevar el Focus al formulario principal, copiarlo al portapapeles y copiarlo en el SubFormulario:<\/p>\n
Private Sub Comando53_Click()\nMe.Parent.Direccion.SetFocus\nDoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70\n\nDoCmd.GoToControl \"frm_visitas\"\nForms!Entrada_Datos!frm_visitas.Form!Direccion.SetFocus\nDireccion = \"\"\nDoCmd.DoMenuItem acFormBar, acEditMenu, acPaste, , acMenuVer70\n\nEnd Sub<\/pre>\n<\/p>\n
Saludos!<\/p>\n","protected":false},"excerpt":{"rendered":"
Buenas\u2026 Llevo un rato pele\u00e1ndome, pero al final\u2026 conseguido (gracias a un art\u00edculo \u00a0de 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… Leer m\u00e1sAcces \u2013 Copiar Campo a Subformulario y viceversa<\/span><\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":1648,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":true,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[226],"tags":[293,294],"class_list":["post-1613","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-access","tag-campo","tag-copiar","content-layout-excerpt-thumb"],"jetpack_featured_media_url":"https:\/\/www.sinetiqueta.com\/wp-content\/uploads\/2016\/12\/access.png","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=\/wp\/v2\/posts\/1613","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=1613"}],"version-history":[{"count":0,"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=\/wp\/v2\/posts\/1613\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=\/wp\/v2\/media\/1648"}],"wp:attachment":[{"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=1613"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=1613"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.sinetiqueta.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=1613"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}