กระทู้เก่าบอร์ด อ.Yeadram
        
           1,339   4		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        Get value in textbox from another form      
    
      Get value in textbox from another form
ต้องการดึง ค่า ใน textbox จาก form 1
มาแสดง ใน txtbox ใน form 2
โดยมา form 1 เป็น form ที่เปิดไว้ตลอดเวลา(คล้ายกับ startup form)
และ form 2 เปิดทีหลัง
    
    
  ต้องการดึง ค่า ใน textbox จาก form 1
มาแสดง ใน txtbox ใน form 2
โดยมา form 1 เป็น form ที่เปิดไว้ตลอดเวลา(คล้ายกับ startup form)
และ form 2 เปิดทีหลัง
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R04606    
        
  
      Private Sub Form_Current()
Dim txt_getting As Currency
Me.txt_getting = Forms!frm_year_setting!year_setting
End Sub
ได้แล้วครับ
พอดีเข้าไปดูใน net
    
  Dim txt_getting As Currency
Me.txt_getting = Forms!frm_year_setting!year_setting
End Sub
ได้แล้วครับ
พอดีเข้าไปดูใน net
        
    3 @R04607    
        
  
      โทษครับ พิมพ์ตกไป
ต.ย ทำในปุ่มคำสั่ง
Private Sub Command0_Click()
txtboxForm2 =Forms("Form1").[Form].[Controls]("tetboxForm1")
End Sub
    
  ต.ย ทำในปุ่มคำสั่ง
Private Sub Command0_Click()
txtboxForm2 =Forms("Form1").[Form].[Controls]("tetboxForm1")
End Sub
        
    4 @R04608    
        
    
      ถามงงๆ ก็ตอบแบบไม่เห็นภาพนะฮะ ผมไม่แน่ใจว่าต้องการให้ Textbox ของฟอร์ม2 แสดงข้อมูลของ textbox จากฟอร์ม 1 อย่างนั้นหรือไม่ก็ใช้การอ้างอิงข้อมูลก็ได้ครับ 
ที่ฟอร์ม 2 (จะดึงข้อมูลจากฟอร์มชื่อ ฟอร์ม1 ที่ textbox ชื่อว่า txt1
ให้ป้อนแหล่งข้อมูล ใน textbox ของฟอร์ม2 ที่จะแสดง ป้อนไปว่า
=[forms]![ฟอร์ม1]![txt1] แค่นี้ครับ ลองดูว่าใช่มั๊ย ผมไม่เข้าใจก็ตอบแบบนี้ไปก่อนง่ายๆ ก่อนครับ ต้องการงัยเอาให้ชัดดีกว่าครับ
    
    
  ที่ฟอร์ม 2 (จะดึงข้อมูลจากฟอร์มชื่อ ฟอร์ม1 ที่ textbox ชื่อว่า txt1
ให้ป้อนแหล่งข้อมูล ใน textbox ของฟอร์ม2 ที่จะแสดง ป้อนไปว่า
=[forms]![ฟอร์ม1]![txt1] แค่นี้ครับ ลองดูว่าใช่มั๊ย ผมไม่เข้าใจก็ตอบแบบนี้ไปก่อนง่ายๆ ก่อนครับ ต้องการงัยเอาให้ชัดดีกว่าครับ
      Time: 0.0645s
    
      
		
Private Sub Command0_Click()
txtboxForm2 =Forms("F).[Form].[Controls]("tetboxForm1")
End Sub