2007年12月19日
【Access】重複入力の場合、メッセージを表示する
重複入力した場合、エラーメッセージを表示させたい場合がある。全くの入力を拒否したい場合は、そもそもそのフィールドに主キーを設定しておくのが良いと思われるが、複数のフィールドでとなるとちょっと複雑だ。さらに重複しているなら、入力させないということならば、BeforeUpdateがいい。今回は、それより難易度が低く、メッセージのみを表示するものだ。
Private Sub 決議書番号_AfterUpdate()
Dim strnum As String
Dim strSQL As String
Dim Rst As DAO.Recordset
strnum = Me.決議書番号
strSQL = "select * from 伝票登録マスターテーブル where 決議書番号='" & strnum & "'"
Set Rst = CurrentDb.OpenRecordset(strSQL)
If Rst.RecordCount > 0 Then
MsgBox "この番号は、既に入力済みですが、間違いないですか?"
Set Rst = Nothing
Exit Sub
End If
Rst.Close
Set Rst = Nothing
End Sub
- by editor
- at 12:07
編集長のおすすめの一冊!2010
comments