Page 1 of 1
การกรอกข้อมูลซ้ำซ้อนใน Datasheet View แล้วมี MsgBox ขึ้นแจ้งเตือน
Posted: Sun Sep 09, 2018 1:26 pm
by Narongrit
กรณีถ้าจะกรอกข้อมูลใน Subfrom ที่เป็นแบบ Datasheet view ซึ่งเป็นข้อมูลที่ซ้ำกับข้อมูลที่เพิ่งกรอกมาก่อนหน้า แล้วให้แจ้งเตือนว่า "คุณกรอกข้อมูลซ้ำ" ไม่ทราบจะต้องไปปรับแก้หรือเขียน Code อย่างไรดีครับ
Re: การกรอกข้อมูลซ้ำซ้อนใน Datasheet View แล้วมี MsgBox ขึ้นแจ้งเตือน
Posted: Sun Sep 09, 2018 1:29 pm
by snasui
การใช้ Code จำเป็นต้องเขียนมาเองก่อน ติดแล้วค่อยถามกันต่อครับ
Re: การกรอกข้อมูลซ้ำซ้อนใน Datasheet View แล้วมี MsgBox ขึ้นแจ้งเตือน
Posted: Sat Sep 15, 2018 1:46 pm
by 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 ส่วนไหนครับ
Re: การกรอกข้อมูลซ้ำซ้อนใน Datasheet View แล้วมี MsgBox ขึ้นแจ้งเตือน
Posted: Sat Sep 15, 2018 2:28 pm
by snasui
ลองกำหนดการ SetFocus ครับ เช่น
ReO2Number.SetFoCus