1
ห้อง MS Access / เช็คข้อมูลซ้ำในตารางอย่างไร
« เมื่อ: 23 มี.ค. 64 , 14:32:06 »
สวัสดีครับ
สอบถามหน่อยครับ พอดีผมต้องการเขียนโค้ด 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
สอบถามหน่อยครับ พอดีผมต้องการเขียนโค้ด 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