คุณไปเลือก TextboxA ก่อน แล้วสั่ง
Docmd.RunCommand acCmdCopy
Docmd.RunCommand acCmdPaste

ขอถามต่อครับ ปัญหาคือแล้วผมจะเลือก TextboxA ได้ย้งไงครับ

อืม... นั่นหน่ะสิ ผมหาวิธีไม่เจอเหมือนกัน รอก่อนครับ กำลังไปถามฝรั่งอยู่

สงสัยจะแห้วครับ เหมือนจะไม่มีวิธี

ขอบคุณครับ

ผมลองเล่นๆ มั่วๆ แบบกำปั้นทุบดินไปเรื่อยครับ
อยากใช้โค้ดเพื่อ สร้างปุ่มคำสั่งเพิ่มในฟอร์ม โดยก็อปปี้คุณสมบัติเหมือนปุ่มเก่าให้หมด



ผมสร้างฟอร์มเปล่าใหม่ๆ 1 ฟอร์ม
วางคอนโทรล ไม่ตั้งชื่ออะไรเลย ตามลำดับดังนี้
textbox 1 ตัว
ปุ่มคำสั่ง 1 ตัว
และ checkbox 1 ตัว

เซฟแล้วปิดฟอร์ม ชื่อ Form1

เขียนฟังก์ชั่นใน โมดูลดังนี้
Function COPPYCTL()
Dim frm As Form
Dim ctl As Control
Dim frName As String
Dim i, x As Integer
frName = "Form1"
DoCmd.OpenForm frName, acDesign
Set frm = Screen.ActiveForm
For i = 1 To frm.Controls.Count - 1
If frm.Controls(i).Name = "command2" Then Exit For
Next
SendKeys "{TAB}"
SendKeys "^{TAB}"
For x = 1 To i - 1
SendKeys "{TAB}"
Next
SendKeys "^c"
SendKeys "^v"

Set ctl = frm.Controls(frm.Controls.Count - 1)
ctl.Name = "command3"
Set frm = Nothing
Set ctl = Nothing

End Function

เซฟโมดูลแล้วปิดไป
ต่อมาสร้างมาโคร 1 อัน
เลือกคำสั่ง runcode แล้วให้รันฟังก์ชั่น COPPYCTL ()
เซฟแล้วปิด มาโคร

ต่อไปกระบวนการทดสอบ
ผมดับเบิลคลิ๊กที่ มาโคร