กระทู้เก่าบอร์ด อ.Yeadram
        
           1,406   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.0611s
    
      
		
ใช้คำสั่งนี้ครับ
sendkeys "^v"
ยังไม่อธบาย ลองไปศึกษาดูคับ