'-------------------------

'ダブリ確認　　テーブルに登録済とのエラー表示

  mySQL = "SELECT 番号 FROM テーブル WHERE 番号= '" & Me.番号 & "';"

  rs.Open mySQL, cn, adOpenForwardOnly, adLockOptimistic

  If rs.EOF = False Then

  If rs!番号 = Me.番号 Then

  MsgBox "この番号は、登録済です。", 16, "登録"

  Me.番号 = Null

  End If

  End If

'-------------------------

'現在のレコードはまだ保存されていないので、>=1 。

'更新後処理ではなく、更新前処理の方が適しています（キャンセルできるので）。

Private Sub フィールド名_BeforeUpdate(Cancel As Integer)

If DCount("*", "テーブル名", "フィールド名='" & Me![フィールド名] & "'") >=1 Then

　　MsgBox "重複しています。やり直してください。", 16, "登録"

Cancel = True

End If

End Sub

'-------------------------

'コントロールのプロパティに設定、データ→入力規則

DCount("*","テーブル名","フィールド名='" & [Forms]![フォーム名]![フィールド名] & "'")=0

'現在のレコードはまだ保存されていないので、=0 です。