Accessにコピペで郵便番号を入力した場合

質問

ACCESSについてのご質問です。

郵便番号を入力時、IMEの郵便番号辞書により
都道府県市町村名を自動表示させるようにしています。

郵便番号を入力後、カーソルが町名の最後にフォーカスするように
下記のようにＶＢＡで書いています。

--------------------
ivate Sub 郵便番号_AfterUpdate()
With Me!住所詳細
'住所詳細にフォーカスを移動
.SetFocus
'カーソルを最後に移動
.SelStart = Len(.Value)
End With
End Sub
--------------------

これで、郵便番号を通常に入力したときは問題ないのですが、
コピペで貼り付けた場合、どうしてもエラーになってしまいます。
------
実行時エラー'13':
型が一致しません。
------

このエラーを回避する方法はありませんでしょうか。
ご存知の方、お教えいただければ幸いです。

回答No.4

keikan · ベストアンサー

日本郵政公社の郵便番号データです。
（ＣＳＶの郵便番号データですので、解凍後インポートしてください）

Accessであれば全国版も読み込めますのでそれで検索させるのも有りですね。

参考URL：

http://www.post.japanpost.jp/zipcode/dl/kogaki.html

お礼

ありがとうございました。
こちらの方向で検討してみます。

回答No.3

keikan

IMEによってはファンクションキーが違うかもしれませんが
郵便番号を取得した後住所を入力したい場所にカールを持っていき、IMEがONの状態で、

SendKeys ("郵便番号")
SendKeys ("{F3}")・・・・F３郵便番号変換（ATOKの場合）

を実行するといけるみたいです。

回答No.2

keikan

住所入力支援機能そのものはIMEの機能なのでそのままは使えないでしょう。

郵便番号をコピペするという事はそれに該当する住所がどこかに入力されているという事でしょうか
であれば、郵便番号を元に住所を検索するなど（Dlockup関数）するか、どこかで、郵便番号と住所のデータベースファイル（たぶん郵便局のサイトにあったと思うけど）を用意して探すという事になるでしょうか。

補足

用途は、届いたメールから住所録を作成しております。

おそらく仕様上、郵便番号の数字７文字目を入力した時点で辞書を引くようになっていると思うので、updete時に辞書を引くように変更はできませんでしょうか。

または他に良い方法があれば、是非教えていただきたいです。
ご存知の方、宜しくお願い致します。

回答No.1

keikan

たぶんこの辺かと

.SelStart = Len(.Value)
のところを
.SelStart = Len(format(.Value))

としてみてください。

補足

ご返答ありがとうございます。
ご指摘どおりで、エラーはでなくなったのですが、
郵便番号をコピペしてしまうと住所入力支援機能が使えないようです。

住所入力支援をコピペでも使える方法はありませんでしょうか。