เช็คข้อมูลซ้ำในตารางอย่างไร

[Tatchawin]

สวัสดีครับ

สอบถามหน่อยครับ พอดีผมต้องการเขียนโค้ด VBA AfterUpdate Combobox บน Unbound ครับ โดยหลังจาก Update ให้เช็ค Row ในตาราง หากค่า CongDiseaseID(Datatype Number) และ PersonID(Datatype Text) ในตาราง tblCongDiseaseDetails ตรงกับที่กรอกบน Form
แล้วอยู่ใน Row เดียวกันทั้งสองค่า ให้ฟ้องขึ้นมาว่าค่าซ้ำ ไม่สามารถกรอกได้

เช่น

บนตารางกรอก PersonID(Text) = 000001, CongDiseaseID(Number)= 1

PersonID          CongDiseaseID
000001                     1
567891                     10
654521                     9

Record แรกตรงกับที่กรอกบนตาราง ต้องการให้ PopUp เด้งฟ้องทันทีว่าซ้ำครับ

ผมลองเขียนแล้ว ได้ประมาณด้านล่างนี้ครับ แต่ไม่สำเร็จสักที

รบกวนช่วยดูให้หน่อยนะครับ ผมเช็คชื่อคอนโทรลต่างๆก็ถูกหมดแล้ว น่าจะตกโอเปอร์เตอร์หรือเขียนอย่างอื่นผิด
ขอบคุณครับ

Private Sub txtCongDiseaseID1_AfterUpdate()
Dim intSearch As Integer
intSearch = Me.txtCongDiseaseID1.Value
    If DLookup("[CongDiseaseID]", "tblCongDiseaseDetails", "PersonID='" & Me.txtPersonID1 & "'") = intSearch Then
       MsgBox "ไม่อนุญาตให้กรอกข้อมูลซ้ำ, กรุณาลองใหม่", vbInformation, "ข้อมูลซ้ำกับข้อมูลเดิม"
    End If
End Sub

[PNR]

ต้องเช็ค ทั้ง 2 textbox และ 2 Field ในครั้งเดียว ตัวอย่างโค้ด

Sub SearchDuplicate()
If Not IsNull(Me.txtCongDiseaseID1) And Not IsNull(Me.txtPersonID) Then
If DLookup("[CongDiseaseID]", "tblCongDiseaseDetails", "CongDiseaseID=" & Me.txtCongDiseaseID1 & "") _
And DLookup("[PersonID]", "tblCongDiseaseDetails", "PersonID='" & Me.txtPersonID & "'") Then
MsgBox "ไม่อนุญาตให้กรอกข้อมูลซ้ำ, กรุณาลองใหม่", vbInformation, "ข้อมูลซ้ำกับข้อมูลเดิม"
End If
End If
End Sub

Private Sub txtCongDiseaseID1_Exit(Cancel As Integer)
Call SearchDuplicate
End Sub

Private Sub txtPersonID_Exit(Cancel As Integer)
Call SearchDuplicate
End Sub

[Tatchawin]

ลองกับไฟล์ตัวเองแล้วไม่ได้เลยครับ

งั้นผมขอส่งไฟล์จริงมาให้ เพื่อโปรดูให้ผมทีนะครับ โดยความหมายของผมคือ ที่ frmqryTransactions2 หากบนหน้า Form ตรงส่วน "กรอกข้อมูลผู้ป่วยจากการซักประวัติ" ซึ่งมี
- textbox PersonID 5 อัน (Control Source Reference มาจาก textbox ตัวอื่น ห้ามไม่ให้ Enable และ Lock ไว้ ให้ Insert ลงตาราง tblCongDiseaseDetails ด้วยค่านี้)
- ComboBox CongDisease 5 อัน (ต้องกรอกเข้าไปเอง) >> หลังจากกรอก Combo Box เสร็จให้เช็ค After Update ทันทีว่า "PersonID" และ "CongDiseaseID" ซ้ำกับ Record บนตาราง tblCongDiseaseDetails หรือไม่ เช่น ถ้าผู้ป่วยที่มี PersonID: 00000001 หากกรอกว่าป่วยด้วยโรคประจำตัว "Hypertension" และ "กระดูกทับเส้นประสาท" อีก จะซ้ำกับข้อมูลบนตาราง ห้ามไม่ให้กรอกซ้ำอีก ให้ PopUp เด้งเตือน อะไรประมาณนี้ครับ

ไม่แน่ใจว่าผมอธิบายงงหรือเปล่า 555555 ถ้างงตรงไหนถามกลับได้นะครับ รบกวนทีนะครับ

ขอบคุณล่วงหน้ามากๆเลยครับ ใกล้สำเร็จแล้วครับผม




[ไฟล์แนบถูกลบโดยผู้ดำเนินการ]

[chai]

ใช้​ BeforeUpdate event หลัง​ texbox อันที่2 ดีกว่าครับ

 If (not isnull(me. textbox_id) or me.textbox_id<>""​)​ and (not isnull(textbox_disease) or me. textbox_disease<>""​) then
        If dcount("*", "table_name", "id=forms! Formname!textbox_id and   disease =forms! Formname!textbox_disease" ) >0
       then
       Msgbox "ข้อมูลซ้ำ"
       Cancel=true
       End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ

[Tatchawin]

ใช้​ BeforeUpdate event หลัง​ texbox อันที่2 ดีกว่าครับ

 If (not isnull(me. textbox_id) or me.textbox_id<>""​)​ and (not isnull(textbox_disease) or me. textbox_disease<>""​) then
        If dcount("*", "table_name", "id=forms! Formname!textbox_id and   disease =forms! Formname!textbox_disease" ) >0
       then
       Msgbox "ข้อมูลซ้ำ"
       Cancel=true
       End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ

ลองแล้ว ไม่ได้เลยครับ TT ดูเหมือนไม่มีอะไร แต่ไปต่อไม่ถูกเลย

[PNR]

ลองดูครับ

[Tatchawin]

ลองดูครับ

ทำได้แล้วครับ เมื่อคืนงมเองตั้งนาน  ยังไงก็ขอบคุณมากๆนะครับ