アクセスでエラーメッセージを出したいのですが。

質問

アクセス初心者です。
テーブル1にNo.というフィールドがあります。そのフィールドは、データ型：数値型。フィールドサイズ：長整数型。インデックス：なし（重複なし）。にしてあります。
フォームでNo.に値を入れた時、同じ数字がある場合にエラーエッセージを出して、No.を再度入れなおすようにしたいのです。
現在同じ数字がある場合は、データが保存されずエラーメッセージも表示されていません。（ちなみにNo.に使用している数字は6桁です）
どなたかご教授ください。よろしくお願い申し上げます。

回答No.4

KAERU_VXV · ベストアンサー

項目「NO」の更新前処理に次のようにコードを記述してみてわ。

=======================================================
Private Sub NO_BeforeUpdate(Cancel As Integer)

Dim DB As Database
Dim R As Recordset
Dim FLG As Integer
Set DB = CurrentDb
SQL = "SELECT * FROM テーブル１ WHERE NO = " & NO

If IsNull(NO) Then
FLG = 1 '登録
Else
Set R = DB.OpenRecordset(SQL, dbOpenSnapshot)
If R.EOF Then
FLG = 1 '登録
Else
FLG = 2 'キャンセル
End If
R.Close
End If

If FLG = 1 Then
'登録処理の実行

Else
'処理をキャンセル
MsgBox "このNoは既に登録されています。"
Cancel = True
SendKeys "{ESC}"
End If

End Sub
=======================================================

※DCOUNTでも出来ますが件数が多くなると処理時間がかかる場合があります。
　処理時間の事を考えるとRECORDSETをOPENするやり方をお勧めします。

お礼

KAERU_VXVさん。ありがとうございます。できました！処理時間はやはり重要だと思うので、KAERU_VXVさんのを利用させていただきます。本当にありがとうございました。