access2000での重複不可項目の入力

質問

access2000,WIN98SEの環境です。
顧客コード・・・テキスト型、主キー、重複不可
顧客名・・・テキスト型
住所・・・テキスト型
というテーブルを作成し、そこへ登録するフォームを作成しています。
顧客コードは修正時は入力不可としており、追加というボタンを押すとそこへ移動できるようにしています。
追加時に顧客コードで既に登録してあるコードを入れると、Dcount関数を用いて重複レコードがあった時はエラーメッセージを出しています。
その後、カーソルは顧客コードの末尾に移り（１００｜という感じです）、backspaceキーで１００を消して再度入れ直そうとすると再び重複エラーのメッセージが出てしまいます。
Escキーを押すと、コード自体がシロ抜きになり入力することができるのはわかったのですが、Escキーを押すという行為をVBAで現すことはできるのでしょうか？
よろしくお願い致します。なお、マクロは使用しておらずVBAでのコーディングで処理をしています。

回答No.3

sgh · ベストアンサー

"Undoメソッド"をヘルプで調べてみてください。
ご質問内容の[ESC]キーを押したことと同じ機能になります。
更新前(BeforeUpdate)や変更時(Change)のイベントで使ってください。
SendKeysを使っても問題ないと思いますが、SendKeysは予期せぬ動作をすることがしばしばあるので、
私はなるべく使わないようにしています。

お礼

ｕｎｄｏで解決しました。遅くなりましたが、どうもありがとうございました。

回答No.2

maruru01

こんにちは。maruru01です。
直接質問の答えにはなりませんが。
登録フォームをテーブルと非連結で作成してはいかがですか。
フォーム上に適当にテキストボックス（顧客コード、顧客名、住所）を置きます。
追加ボタンのクリックイベントで、
１．３つのテキストボックスが全て空（""）でないことを確認（必要に応じて）
２．DCount関数で重複チェック
３．データテーブルのレコードセットを更新可で開く
４．レコードセットにデータを追加する

これなら、顧客コードのテキストボックスに入力する時には、重複チェックがかからないのでエラーメッセージは出ません。
Escキーを押すというような、あまり通常しないような動作はやめた方がいいような気がします。
では。

お礼

現在、非連結型のフォームにチャレンジしています。遅くなりましたが、ありがとうございました。

回答No.1

hysteric5

SendKeysステートメントを使用してはいかがでしょう？

Sendkeys "{Esc}"

ッう感じで…

お礼

遅くなりましたが、ありがとうございました。