กระทู้เก่าบอร์ด อ.Yeadram
        
           2,697   6		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        delete Record ใน Subform      
    
      ท่านอาจารย์ช่วยผมที ผมจะเขียนโคตอย่างไรดีครับ ผมลองอ่าน Webboard ในนีหลายตัวอย่างแล้ว แต่ก็ไม่เข้าใจ ปัญหาก็คือผมต้องการกดปุ่มที่ชื่อว่า Delete_Record และมีการยืนยันการลบ Yes , No แล้วให้ลบข้อมูลใน Table ของ Subform ด้วย
 
    
    
   
    
				6 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R03505    
        
  
      ท่านอาจารย์ yeadram ขอรบกวนอีทีนะครับ ผมลองวิธีแรกแล้วแต่ผลออกมา ลบขอมูลใน Table1 ของ ฟอร์มหลักเท่านั้นครับแต่ ใน Table2 ไม่มีการลบ Record ออกครับ 
แล้วผมก็ Copy คำสังแบบที่สองที่อาจารย์ให้มาครับและก็เปลี่ยน "ชื่อแหล่งข้อมูลของฟอร์มย่อย "เป็น Table2 แต่ก็ยังใช้ไม่ได้ไม่รู้ว่าผมทำผิดตรงไหน อาจารย์ช่วยดูให้ผมที่ครับ และก็ขอบคุณอาจารย์ yeadram มากๆที่ช่วยสอนบทเรียนบทนี้ ขอบคุณคราบ....
http://www.tempf.com/getfile.php?id=138716&key=4aba22268f00b
    
  แล้วผมก็ Copy คำสังแบบที่สองที่อาจารย์ให้มาครับและก็เปลี่ยน "ชื่อแหล่งข้อมูลของฟอร์มย่อย "เป็น Table2 แต่ก็ยังใช้ไม่ได้ไม่รู้ว่าผมทำผิดตรงไหน อาจารย์ช่วยดูให้ผมที่ครับ และก็ขอบคุณอาจารย์ yeadram มากๆที่ช่วยสอนบทเรียนบทนี้ ขอบคุณคราบ....
http://www.tempf.com/getfile.php?id=138716&key=4aba22268f00b
        
    3 @R03506    
        
  
      แก้ไขจากด้านบนครับ
-------------------------
ท่านอาจารย์ yeadram ขอรบกวนอีทีนะครับ ผมลองวิธีแรกแล้วแต่ผลออกมา ลบขอมูลใน Table1 ของ ฟอร์มหลักเท่านั้นครับแต่ ใน Table2 ไม่มีการลบ Record ออกครับ
แล้วผมก็ Copy คำสังแบบที่สองที่อาจารย์ให้มาครับและก็เปลี่ยน "ชื่อแหล่งข้อมูลของฟอร์มย่อย "เป็น Table2 แต่ก็ยังใช้ไม่ได้ไม่รู้ว่าผมทำผิดตรงไหน อาจารย์ช่วยดูให้ผมที่ครับ และก็ขอบคุณอาจารย์ yeadram มากๆที่ช่วยสอนบทเรียนบทนี้ ขอบคุณคราบ....
 
    
    
  -------------------------
ท่านอาจารย์ yeadram ขอรบกวนอีทีนะครับ ผมลองวิธีแรกแล้วแต่ผลออกมา ลบขอมูลใน Table1 ของ ฟอร์มหลักเท่านั้นครับแต่ ใน Table2 ไม่มีการลบ Record ออกครับ
แล้วผมก็ Copy คำสังแบบที่สองที่อาจารย์ให้มาครับและก็เปลี่ยน "ชื่อแหล่งข้อมูลของฟอร์มย่อย "เป็น Table2 แต่ก็ยังใช้ไม่ได้ไม่รู้ว่าผมทำผิดตรงไหน อาจารย์ช่วยดูให้ผมที่ครับ และก็ขอบคุณอาจารย์ yeadram มากๆที่ช่วยสอนบทเรียนบทนี้ ขอบคุณคราบ....
 
    
        
    4 @R03508    
        
  
      สำหรับวิธีแรก ที่สร้างความสัมพันธ์ one-to-many แล้วแต่ยังไม่ได้ 
คุณได้ตั้งค่าความสัมพันธ์ครบถ้วนหรือเปล่า
http://www.thai-access.com/yeadram_view.php?topic_id=725
ส่วนวิธีที่สอง
textbox ที่แสดง 001 น่ะ ตั้งชื่อว่าอะไร ใช่ refer ไหมครับ
ถ้าใช่ แค่ใส่เครื่องหมาย อัมเพอร์แซนด์ ( & ) เพิ่มเข้าไปครับ (ผมเขียนตกไป)
= '" & me.refer & "'"
จุดอื่นไม่น่าจะมีปัญหาอะไร
    
  คุณได้ตั้งค่าความสัมพันธ์ครบถ้วนหรือเปล่า
http://www.thai-access.com/yeadram_view.php?topic_id=725
ส่วนวิธีที่สอง
textbox ที่แสดง 001 น่ะ ตั้งชื่อว่าอะไร ใช่ refer ไหมครับ
ถ้าใช่ แค่ใส่เครื่องหมาย อัมเพอร์แซนด์ ( & ) เพิ่มเข้าไปครับ (ผมเขียนตกไป)
= '" & me.refer & "'"
จุดอื่นไม่น่าจะมีปัญหาอะไร
        
    5 @R03510    
        
  
      เป็นปัญหาเดียวกับที่ผมเจอเลยครับ ทำตาอาจารย์ yeadram บอกตามหัวข้อ R03508 คุณต้องสร้างความสัมพันธ์ถูกชัวร์เลยครับ    
    
  
        
    6 @R03523    
        
    
      อาจารย์ yeadram ผมทำได้ตามที่อาร LINK ให้ดูจริงๆครับ
ผมขอบคุณอาจารย์และ ขอกราบเท้างามๆ ซะ 3 ที่นะครับ....ขอบคุณคราบ.....
    
  ผมขอบคุณอาจารย์และ ขอกราบเท้างามๆ ซะ 3 ที่นะครับ....ขอบคุณคราบ.....
      Time: 0.0627s
    
      
		
F002 เอาข้อมูลมาจากตารางอะไร
สองตารางนี้ สัมพันธ์กันอย่างไร ใช่ one-many หรือเปล่าครับ
ถ้าใช่
Private Sub Delete_record_click()
if msgbox("R U sure?",vbyesno+vbdefaultbutton2)=vbyes then _
docmd.runcommand accmddeleterecord
end sub
ถ้าสองตารางนี้ไม่เกี่ยวข้องกัน คือไม่ได้มีความสัมพันธ์กันแบบ one-many
หามาว่า สองฟอร์มนี้ ใช้ฟิลด์อะไรเชื่อมกัน สมมติว่าชื่อฟิลด์ว่า Refer
Private Sub Delete_record_click()
if msgbox("R U sure?",vbyesno+vbdefaultbutton2)=vbyes then
docmd.setwarnings false
docmd.runsql "delete from ชื่อแหล่งข้อมูลของฟอร์มย่อย where Refer = '" me.refer & "'"
docmd.runcommand accmddeleterecord
end if
end sub