防止重複したエントリVBA

Question

まず第一にそのがVBAに来るとき、私は初心者のビットをしていますので、私が行うすべては、ヒットとミスのビットですが、通常、私は最終的に問題を把握。 しかし、私は数日間止まってしまったので、この問題を見つけることができませんでした！

私は以下の構造を有する以下のフォームとサブフォームを持っています。 （Access2013）

メインフォーム[ジョブ番号]（ユーザが関連するフィールドにバーコードをスキャンし、これはある）
サブフォーム[OUT2が】
サブフォームは、[DS]（これはここからスキャンバーコード【端Out2]
サブフォーム[DS]フィールド：ID、ジョブ番号、バーコード、説明、日付、ユーザー

私が下のコードで達成しようとしていることは、 [DS] BarCodeフィールドでは、Dcount関数は既にサブフォームコンテナ[DS]に入力されているバーコードのリストをチェックし、 が複数ある場合は重複したエントリを元に戻します。残念ながら、重複エントリが入力されても何も起こっていません。 （エラーでもない）

P.S.テーブル（重複なし）の設定はこのDBでは機能しません。ここで

Private Sub BarCode_BeforeUpdate(Cancel As Integer) 

    Dim BarCode As String 
    Dim strLinkCriteria As String 
    Dim rsc As DAO.Recordset 

    Set rsc = Me.RecordsetClone 

    BarCode = Me.BarCode.Text 
    strLinkCriteria = "[Barcode]=" & "'" & Replace(Me![BarCode], "'", "''") 

    'Check Items Subform for duplicate BarCode 
    If DCount("BarCode", "Forms![Job Number]![DS]", strLinkCriteria) > 0 Then 

     'Undo duplicate entry 
     Me.Undo 
     'Message box warning of duplication 
     MsgBox "Warning Item Title " _ 
       & BarCode & " has already been entered." _ 
       & vbCr & vbCr & "You will now been taken to the record.", _ 
       vbInformation, "Duplicate Information" 
     'Go to record of original Title 
     rsc.FindFirst strLinkCriteria 
     Me.Bookmark = rsc.Bookmark 
    End If 

    Set rsc = Nothing 
End Sub 

Answer 1

は、これを処理する方法である：

Private Sub BarCode_BeforeUpdate(Cancel As Integer) 

    Dim rsc As DAO.Recordset 
    Dim BarCode As String  
    Dim Criteria As String 

    Set rsc = Me.RecordsetClone 

    BarCode = Nz(Me!BarCode.Value) 
    Criteria = "[Barcode] = '" & Replace(BarCode, "'", "''") & "'") 
    rsc.FindFirst Criteria 
    Cancel = Not rsc.NoMatch 

    If Cancel = True Then 
     ' Message box warning of duplication 
     MsgBox "Warning Item Title " _ 
      & BarCode & " has already been entered." _ 
      & vbCrLf & vbCrLf & "You will now been taken to the record.", _ 
      vbInformation, "Duplicate Information" 
     ' Go to record of original Title 
     Me.Bookmark = rsc.Bookmark 
    End If 

    Set rsc = Nothing 

End Sub