ник: час
Используй поле0 и Кнопка4
поле2 и Кнопка5
Private Sub Кнопка4_GotFocus()
Поле0.SetFocus
Поле0.SelStart = 0
Поле0.SelLength = Len(Поле0.Text)
DoCmd.RunCommand acCmdCopy
End Sub
Private Sub Кнопка5_Click()
Поле2.SetFocus
DoCmd.RunCommand acCmdPaste
End Sub
тока не забудь в поле0 вписать что нибудь, иначе ошибка - типа не чего копировать.