Copiar pegar con click
Hola
Una preguntísima, sabes algún código para copiar pegar con click EJ: Hago click sobre un campo de un formulario (el contenido se copia al portapapeles) y voy a otro formulario y cuando hago click en el campo se pega lo del portapapeles.
De antemano gracias.
Una preguntísima, sabes algún código para copiar pegar con click EJ: Hago click sobre un campo de un formulario (el contenido se copia al portapapeles) y voy a otro formulario y cuando hago click en el campo se pega lo del portapapeles.
De antemano gracias.
1 Respuesta
Respuesta de Orley Palma Renteria
1
'Para copiar datos
Private Sub cmdCopiar_Click()
Me.campoA.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70
End Sub
'Para pegar los datos
Private Sub cmdPegar_Click()
Me. CampoB. SetFocus
DoCmd. DoMenuItem acFormBar, acEditMenu, acPaste,, acMenuVer70
End Sub
Private Sub cmdCopiar_Click()
Me.campoA.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, acCopy, , acMenuVer70
End Sub
'Para pegar los datos
Private Sub cmdPegar_Click()
Me. CampoB. SetFocus
DoCmd. DoMenuItem acFormBar, acEditMenu, acPaste,, acMenuVer70
End Sub
