หยุดการ save
กระทู้เก่าบอร์ด อ.Yeadram

 1,138   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 ตารางได้
panyapol@tttmaxnet.com

4 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R05155
ถ้าตารางเป็นฟอร์มหลัก และ ซับฟอร์มตั้งให้มีPrimary Key ที่ฟิล์ดแล้วก็ไม่น่าซ้ำแล้วนะ
แล้วถ้ารอให้มันซ้ำก็คงเสียเวลาลงข้อมูลอีก
น่าจะทำระบบค้นหาช่วยไม่ให้ซ้ำนะ
แค่ความคิดเห็นนะ
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
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.4026s