bahsettiğiniz talebinize yönelik olarak,aşağıdaki örnek kalıbı Ctrl + C (Kopyala / Yapıştır) anlamında kullanarak çözüm elde edebilirsiniz.
Kod:
'Me.kopyalanacak_metin_kutusu_adi.SetFocus
'Me.kopyalanacak_metin_kutusu_adi.SelStart = 0
'Me.kopyalanacak_metin_kutusu_adi.SelLength = Len(Me.kopyalanacak_metin_kutusu_adi)
'DoCmd.RunCommand acCmdCopy
Kod:
Private Sub Komut9_Click()
Me.adi_soyadi.SetFocus
Me.adi_soyadi.SelStart = 0
Me.adi_soyadi.SelLength = Len(Me.adi_soyadi)
DoCmd.RunCommand acCmdCopy
End Sub
Kod:
Me.aktarmayi_istediginiz_denetim_adi.SetFocus
DoCmd.RunCommand acCmdPaste
iyi çalışmalar,
saygılar.