カーソル移動時にコンボボックスを開く仕組み

Question

これまで使用していたAccess2000などではエラーなく作動していたのですが、OS：win8.1に変りAccess2013で新たなフォームを作成した場合、下の様なエラーが発生するようになりました。

内容はフォームのカーソル移動時にコンボボックスを開くようにした、フォーカス取得時のイベントプロシージャです。

フォーカス取得時のイベントプロシージャ

Private Sub 血液型_Enter()

Me!血液型.Dropdown

End Sub

ファイルの最適化や、新ファイルを作成してインポートを試してみましたが同じです。

上記エラーについて解決策の回答を宜しくお願い致します。

Answer 1

2013で新たに作成したファイルです。

この様に…

同じエラーが出ます

これでも同じエラーが出ます

Answer 2

こんにちは、ずっちです。

2013で新たに作成したファイルで問題がおきているということでしょうか。

私の環境では、下図のようなシンプルなフォームで動作確認したのですが、

同じく作ってみても結果は変わらないでしょうか。

Answer 3

ご返事ありがとうございます。

＞2000からのバージョン移行…

ではなく新規端末にAccess2013が入っており、新たに作成したフォームです。

＞参照設定に「参照不可」 の項目があるかを確認し

すみません、各PCの確認（比べる）事が出来ません。

下記が参照設定です

Answer 4

こんにちは、ずっちです。

そのイベントプロシージャは、2013でも問題なく動作します。

2000からのバージョン移行との事なので、

VBAの参照設定で「参照不可」になっている項目があると思います。

まずは参照設定に「参照不可」 の項目があるかを確認し、

ある場合はチェックをはずして試してみてください。

2007の時のページですが参考になると思うので、以下もご一読ください。

https://technet.microsoft.com/ja-jp/library/cc178973(v=office.12).aspx