質問: 0 end with end sub ではうまく動作しませんでした。どうぞ宜しくお願い致します。
回答: 正直なところ、お勧めしかねる手段ではあるのですが(汗)(*1)、一応、 下記で概ね(*2)ご希望通りと思われる動作になることを確認しました: private sub コンボボックス1_afterupdate() 'f2キーで末尾にカーソルを移動後、 'homeキーで先頭に移動 sendkeys "{f2}{home}", false end sub *1: sendkeys(キー送信)は、ユーザーのキーボード操作を模したものの ため、動作に不安定なところがあります。 (一時的にキーボード操作を受け付けなくなったりするのと同じような イメージ?) また、ユーザーがshiftキーなどを押しっぱなしにしていた場合は、「f2」 を送信するはずが「shift+f2」になってしまいます。 *2: ドロップダウンリストからのマウスによる選択時は、ご希望の動作に なりますが、キーボードから手入力した場合は、次のコントロールに 移動するのに、enterキー(またはtabキー)の入力が1回余計に 必要になってしまいます。 (更新が確定された時点で、同コンボボックスの先頭にカーソル が移動させられてしまう、と) ・・・bicbicayaさんが提示されたコードでご希望の動作にならないのは、 accessのバグ(もしくはいわゆる「仕様」?)かもしれません(汗) (更新前後のselstart等の値を、debug.printで確認してみましたが、 値としては更新されているのに反して、画面上はそうなっていない、 という状況でした) ※コード上に「debug.print me.name」等と記述すると、ctrl+gで表示 される「 イミディエイト ウィンドウ」に、「me.name」の内容等が 記録されます。 (既にご存知でしたらご容赦のほど・・・)