กระทู้เก่าบอร์ด อ.Yeadram
1,216 4
URL.หัวข้อ /
URL
รบกวนขอคำสั่งทำปุ่ม Past ด้วยค่ะ อาจารย์
ขอรบกวนอาจารย์อีกแล้วนะคะ
หนูทำฟอร์ม โดยจะให้มีปุ่ม Past เพื่อให้ผู้ใช้คลิก เพื่อวางข้อมูลที่ได้คัดลอกมา
ลงในช่องที่เตรียมไว้ ประมาณในรูปค่ะ
จุดประสงค์ เพื่อช่วยประหยัดเวลาในการพิมพ์ข้อมูลซ้ำๆ ซึ่งอาจเกิดผิดพลาดได้
หนูลองใช้ คำสั่ง
Private Sub Command5_Click()
DoCmd.RunCommand acCmdPaste
End Sub
แล้วมัน Error ไม่ผ่านค่ะ
หนูทำฟอร์ม โดยจะให้มีปุ่ม Past เพื่อให้ผู้ใช้คลิก เพื่อวางข้อมูลที่ได้คัดลอกมา
ลงในช่องที่เตรียมไว้ ประมาณในรูปค่ะ
จุดประสงค์ เพื่อช่วยประหยัดเวลาในการพิมพ์ข้อมูลซ้ำๆ ซึ่งอาจเกิดผิดพลาดได้
หนูลองใช้ คำสั่ง
Private Sub Command5_Click()
DoCmd.RunCommand acCmdPaste
End Sub
แล้วมัน Error ไม่ผ่านค่ะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R10836
ทำแบบนี้ หรือเปล่าคะ
Private Sub Command5_Click()
SendKeys "^v"
End Sub
ยังไม่ได้ค่ะ
คลิกแล้วก็เฉยๆ ข้อมูลที่คัดลอกมา ไม่ถูกวางค่ะ
Private Sub Command5_Click()
SendKeys "^v"
End Sub
ยังไม่ได้ค่ะ
คลิกแล้วก็เฉยๆ ข้อมูลที่คัดลอกมา ไม่ถูกวางค่ะ
3 @R10841
Private Sub Command5_Click()
DoCmd.GoToControl "Text_1" 'ชื่อ textbox ที่ต้องการรับค่า
SendKeys "^v" 'คำสั่ง paste (control V)
End Sub
DoCmd.GoToControl "Text_1" 'ชื่อ textbox ที่ต้องการรับค่า
SendKeys "^v" 'คำสั่ง paste (control V)
End Sub
4 @R10844
เย้..ได้แล้วค่ะ อาจารย์
หนูผิดตรงที่ไม่ได้อ้างถึงตัวรับค่า DoCmd.GoToControl "Text_1"
ขอขอบคุณนะคะ อาจารย์
หนูผิดตรงที่ไม่ได้อ้างถึงตัวรับค่า DoCmd.GoToControl "Text_1"
ขอขอบคุณนะคะ อาจารย์
Time: 0.3566s
ใช้คำสั่งนี้ครับ
sendkeys "^v"
ยังไม่อธบาย ลองไปศึกษาดูคับ