กรอกข้อมูล ถ้าซ้ำ 2 ฟลวด์ ให้เตือน เขียนสูตรยังไงค
กระทู้เก่าบอร์ด อ.Yeadram

 1,307   2
URL.หัวข้อ / URL
กรอกข้อมูล ถ้าซ้ำ 2 ฟลวด์ ให้เตือน เขียนสูตรยังไงค

จากการค้นหา
การตั้งค่าถ้าซ้ำกัน   1ฟิวด์ ได้ว่า
ใน txtbox ของ form ที่จะ key เลข Event After update ให้เช็คว่า มีซ้ำใน Record หรือไม่ ถ้ามีก็ใ ฟ้องว่า ซ้ำอาจใช้ Dcount นับ ถ้ามี มากกว่า 0 คือมีอยู่แล้ว ถ้าเป็น 0 ก็ไม่ซ้ำครับ
Dim Qty as integer
Qty=Dcount("[Field]", "Table", "[fieldใบแจ้งหนี้]=Me![txtbox].text")
If Qty > 0 then
Msgbox (" มีเลขใบแจ้งหนี้เบอร์นี้แล้ว")
Else
end if
------
คำถามใหม่ ครับ------
ผมมีข้อมูล 1. ตารางเหลัก ประกอบด้วย   Pid   และ   ชื่อ
2.ตารางลูก   มี 2 ฟิลด์ คือ PID และ cause

จะตั้ง ยังไง ถ้า
2.1 pid -ขึ้นอัติโนมัติอยู่แล้ว เพราะ เชื่อมเป็น ฟอร์มลูก
2.2 เมื่อกรอก ข้อมูล cause แล้ว ฟ้อง ว่า " มีข้อมูลซ้ำ "

ให้มันนับ ทั้ง PID และ cause นะครับ
ผมลอง ทำคิวรี่ แล้ว เชื่อม pid+causeทำฟิลด์ใหม่แล้วเพิ่มในฟอร์ม มันฟ้อง เป็นแถบสีเหลือง ที่
Qty=Dcount("[pid]", "Qdubtcause", "[pidcause]=Me![txtbox5].text")

ขอบคุณครับ ช่วงนี้ ถามบ่อยหน่อยนะครับ

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

1 @R15173
Qty=Dcount("[pid]", "Qdubtcause", "[pidcause]= '" & Me.txtbox5 & "'")
2 @R15174
ได้แล้วครับ
ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2931s