รบกวนขอสอบถามวิธีการสร้าง messbox เมื่อกรอกข้อมูลซ้ำกับที่มีอยู่ใน table Access ล้วนๆครับ

Private Sub OpenDetails_Click()
On Error GoTo Err_OpenDetails_Click

Me.Visible = False
Dim strWhere As String

strWhere = "1=1 "


If Not IsNull(Me.cboPS) Then
strWhere = strWhere & " And [PS_No]='" & _
Me.cboPS & "' "

End If


DoCmd.OpenForm "FrmCat", acNormal, , strWhere
' DoCmd.OpenForm "FrmFindAnimalInfo", acNormal, , strWhere

Exit_OpenDetails_Click:
Exit Sub

Err_OpenDetails_Click:
Msgbox "PS does not exist, try another"
Resume Exit_OpenDetails_Click
End If
End Sub