กระทู้เก่าบอร์ด อ.Yeadram
        
           1,868   3		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        Link ข้อมูลระหว่าง Sub form      
    
      ผมวาง Sub form 2 sub form ใข้ในform เดียวกัน ซึ่ง ทั้ง 2 Sub form มาจาก ฐานข้อมูลเดียวกัน
 [IMG]http://images.temppic.com/16-11-2009/images_vertis/1258336110_0.83594600.bmp"  alt="" onerror="this.src='../images/image-not-found.png';" >[/IMG]
[IMG]http://images.temppic.com/16-11-2009/images_vertis/1258336110_0.83594600.bmp"  alt="" onerror="this.src='../images/image-not-found.png';" >[/IMG]
จากรูป จะรบกวนขอ Code เมื่อคลิกไปที่ tabel ใน sub form B แล้ว ให้ Sub form A แสดงรายการที่มี ID no เดียวกับ sub form B ครับ (แนวทาง เพื่อเพิ่มเติมข้อมูลที่ขาด ลงใน sub form A )
ขอบคุณครับ
    
  จากรูป จะรบกวนขอ Code เมื่อคลิกไปที่ tabel ใน sub form B แล้ว ให้ Sub form A แสดงรายการที่มี ID no เดียวกับ sub form B ครับ (แนวทาง เพื่อเพิ่มเติมข้อมูลที่ขาด ลงใน sub form A )
ขอบคุณครับ
				3 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R04183    
        
  
      ทำไม่ได้เลยครับ คุณ yeadram
    
    
  
        
    3 @R04190    
        
    
      ที่เคยทำมา มี 2แบบครบ
1. ใช้การกำหนด Linkchildfields , Linkmasterfields ใน prop. ของ Subform
2. กำหนดให้ Subform ใช้ Datasource จาก Query ที่ใช้ Filter (ID NO) จาก Form แล้วกำหนดให้ Requery หลัง Event Afterupdate (ID NO) จาก Form cแม่
    
  1. ใช้การกำหนด Linkchildfields , Linkmasterfields ใน prop. ของ Subform
2. กำหนดให้ Subform ใช้ Datasource จาก Query ที่ใช้ Filter (ID NO) จาก Form แล้วกำหนดให้ Requery หลัง Event Afterupdate (ID NO) จาก Form cแม่
      Time: 0.0695s
    
      
		
โปรแกรมยังไม่เสร็จเลย แต่ว่ารูปแบบฟอร์มของทุกๆ ระบบ บังเอิญว่าเหมือนกันกับของ คุณ Kam Kam พอดี
คือด้านบนแสดงลิสต์
ด้านล่างแสดงรายละเอียด
เนี่ย ความลับนะเนี่ย สูตรลับเลยนะจะบอกให้ ฮ่าฮ่าฮ่า
เอาไปสั้นๆ นะครับ แล้วเอาไปประยุกต์เอาเอง ดักจับ error เคลียร์ error อีกนิดหน่อยจะแจ่มเลยครับ
- ตัวบนของผมชื่อ child1
- ตัวล่างชื่อ child2
- โค้ดนี้ ฝังไว้ใน child1
Private Sub Form_Current()
With Me.Parent.Form.Controls("child2").Form
On Error Resume Next
.Filter = "pd_id = " & Me.pd_id
.FilterOn = True
End With
End Sub