กระทู้เก่าบอร์ด อ.Yeadram
        
           1,306   4		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        หยุดการ save      
    
      ในการ save ข้อมูลเกี่ยวข้องกับตาราง 2 ตาราง ดดยออกแบเป็นปุ๋ม save ทำการ save ไปยัง 2 ตาราง
private sub cmd_save_Click()
ตาราง 1
with 1.srt
.addnew
.fields("Name")=tName
.UpDate
end with
ตาราง 2
with 2.srt
.addnew
.fields("Number")=tNumber
.UpDate
end with
End Sub
ถ้าตรวจพบ fields Name ซ้ำ แล้วไม่ให้ทำการ save ใน ตาราง 1 และตาราง2 จนกว่าจะเปลี่ยน fields Name ไม่ให้ซ้ำ เมื่อ fields Name ไม่ซ้ำ จึงสามารถ Save ทั้ง 2 ตารางได้
[email protected]
    
  private sub cmd_save_Click()
ตาราง 1
with 1.srt
.addnew
.fields("Name")=tName
.UpDate
end with
ตาราง 2
with 2.srt
.addnew
.fields("Number")=tNumber
.UpDate
end with
End Sub
ถ้าตรวจพบ fields Name ซ้ำ แล้วไม่ให้ทำการ save ใน ตาราง 1 และตาราง2 จนกว่าจะเปลี่ยน fields Name ไม่ให้ซ้ำ เมื่อ fields Name ไม่ซ้ำ จึงสามารถ Save ทั้ง 2 ตารางได้
[email protected]
				4 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R05160    
        
  
      แต่ใน่ table ที่ 2 ยังมีการ save ข้อมูลต่อ ถึงแม้ table ที่ 1 นั้นไม่อยนุญาตให้บันทึกก็ตามที สรุป table ที่ 1 เมื่อพบข้อมูลซ้ำ ไม่บันทึก ตามที่ท่านตอบกลับ แต่ table ที่ 2 นั้นกลับมีการ save ข้อมูล ที่ทำต้องการนั่นคือ เมื่อพบข้อมูลซ้ำ ใน table ที่ 1 ไม่มีการ save table ที่ 2 ก้อไม่ save เช่นกัน    
    
  
        
    3 @R05162    
        
  
      ถ้าออกแบบ ความสัมพันธ์ระหว่างตารางทั้ง 2 เป็นแบบ 1:1  หรือ 1: many จะเป็นไปไม่ได้เลยที่จะบันทึกตารางที่ 2 ได้โดยตารางที่ 1 ไม่ได้ถูกบันทึกก่อน  ขอเดาเอาว่าคงไม่ได้สร้างความสัมพันธ์ไว้ ถ้าแบบนี้ขอแนะนำให้ใช้เงื่อนไขครับ นั่นคือหากตารางที่ 1 ไม่ถูกบันทึก ก็จะไม่ทำในส่วนตั้งแต่ with 2.Rst เป็นต้นไป    
    
  
        
    4 @R05167    
        
    
      private sub cmd_save_Click()
if not isnull(dlookup("Name","ตาราง 1","Name = """ & tName & """")) then exit sub
ตาราง 1
with 1.srt
.addnew
.fields("Name")=tName
.UpDate
end with
ตาราง 2
with 2.srt
.addnew
.fields("Number")=tNumber
.UpDate
end with
End Sub
    
  if not isnull(dlookup("Name","ตาราง 1","Name = """ & tName & """")) then exit sub
ตาราง 1
with 1.srt
.addnew
.fields("Name")=tName
.UpDate
end with
ตาราง 2
with 2.srt
.addnew
.fields("Number")=tNumber
.UpDate
end with
End Sub
      Time: 0.1036s
    
      
		
แล้วถ้ารอให้มันซ้ำก็คงเสียเวลาลงข้อมูลอีก
น่าจะทำระบบค้นหาช่วยไม่ให้ซ้ำนะ
แค่ความคิดเห็นนะ