Excel Forum

ขออนุญาตส่งปัญหา แนบไฟล์ PDF ให้นะครับ

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

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 ...

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