Accessで、重複したデータが入力された時、エラーを返したい。


■... 試してみたのは、 ... If (Not IsNull(DLookup("[フィールド1]","テーブル1", _ ... MsgBox "重複エラーです" ...

最近のニュース・特集サイト ■ページ右下には、メッセージの紹介コーナーと他のページへのジャンプ、左下にはちょっと耳寄りな情報局、最後には人気ランキングなどのミニミニ特集コーナーがあります。
■ちょっと耳寄りな情報局(プレゼント・オークション・得するサイト・入会案内、その他)ライフシティに流れている沢山のメッセージからの紹介です( Accessで、重複したデータが入力された時、エラーを返したい。)

曽我さん、こんにちは。早速のレス有り難うございます。
さっそく試してみたんですが、やはりだめみたいです。

（"フォーム1"という名前のフォームの"フィールド1"というテキストボックスから、
"テーブル1"という名前の"フィールド1"というフィールドにデータを
書き込んでいます。）

(1)
"[フィールド1] ='" & Me!フィールド1 & "'"))) Then
Cancel = True

と、
(2)
Dim DB As Database
Dim rst As Recordset
Dim varString As Variant
Dim strKey As Variant

Set DB = CurrentDb()
Set rst = DB.OpenRecordset("テーブル1")
varString = Me![フィールド1]
strKey = "フィールド1 = '" & varString & "'"
rst.FindFirst strKey

If rst.NoMatch Then
Else
MsgBox "重複エラーです"
End If

この二つです。
(1)のほうは、「テーブル1が見つかりません」、
(2)のほうは、rst.FindFirst strKeyのところで、
「このオブジェクトに対しては、この操作は実行できません。」
と出てきてしまいます。
色々やってみたのですが、なんだか頭が痛くなってきました。
何かお気づきの点がありましたら、ご指摘ください。








------------------------------------------------------------------
Hyper #LifeCity Manager(citymgr) <****@****.****>
#ScriptLife ListManager <****@****.****>



←前の記事 | 戻る | 次の記事→

□メッセージなメーリングリストへ参加したい方はこちらをクリック!
■このメッセージ公開は、LifeCityの規約に基づき、LifeCity管理サイトにおいて行われています。
□このページの内容はスポンサー様の見解を表したものでありません。
■メッセージ紹介の内容は事実と相違する場合もありますので、個人的見解として考えてください。
□メッセージの無断転載を禁じます。


Welcome to LifeCity