การกรอกข้อมูลซ้ำซ้อนใน Datasheet View แล้วมี MsgBox ขึ้นแจ้งเตือน

[Narongrit]

กรณีถ้าจะกรอกข้อมูลใน Subfrom ที่เป็นแบบ Datasheet view ซึ่งเป็นข้อมูลที่ซ้ำกับข้อมูลที่เพิ่งกรอกมาก่อนหน้า แล้วให้แจ้งเตือนว่า "คุณกรอกข้อมูลซ้ำ" ไม่ทราบจะต้องไปปรับแก้หรือเขียน Code อย่างไรดีครับ

[snasui]

การใช้ Code จำเป็นต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ

[Narongrit]

ทำได้แล้วครับ

Code: Select all

Private Sub ReO2Number_AfterUpdate()
Dim a As String
Dim b As Byte
a = ReO2Number.Text
b = DCount([ReO2ID], "DuplicateNumQ", "[ReO2Number] LIKE '*" & a & "*'")
If b = 1 Then
MsgBox "[c]หมายเลขนี้คุณเคยลงข้อมูลแล้วครับ[/c]", vbCritical + vbOKOnly
DoCmd.GoToRecord , "[reo2number]", acLast
End If
End Sub

แต่หลังจาก after update แล้ว ต้องการให้ขึ้นมาที่บรรทัดที่ต้องแก้ไข เพื่อที่จะทำให้เป็น null ยังทำไม่ได้ครับ ไม่ทราบว่าต้องไปแก้ code ส่วนไหนครับ

[snasui]

ลองกำหนดการ SetFocus ครับ เช่น ReO2Number.SetFoCus