ممنون بابت مشاهده و توجه دوستان محترم
با این کد مشکل حل شد


Me!Textbox1.SetFocus

   DoCmd.RunCommand acCmdCopy