Access コンボボックスを自動で開きたい

メルマガ発行内容

＜Access コンボボックスを自動で開きたい＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、
掲示板に質問があった、
Access コンボボックスを自動で開きたい
です。

/*
 * １．今回のキッカケ
*/

掲示板、
http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi?mode=allread&no=99&page=0
に来た質問です。※何か質問あったら遠慮なく、回答遅いけど。

---
>投稿時間：2003/04/25(Fri) 14:33
>投稿者名：miki
>タイトル：accessでコンボボックスを自動で開く方法について
>
>　accessフォームのコンボボックスで、フォーカスを取得したら自動
>的にリストが開くようにしたいのですが、方法がいまいちわかりません
>。フォーカス取得時のイベントでＦ４キーの送信をすればいいのだと思
>うのですが、キー送信の書き方が解りません。ヒントを頂けたら大変有
>り難いです。
>　上記以外の良い方法がありましたらそれもご教授いただけると嬉し
>いです。
---

さて、やりたいことを整理して、
と思ったら、もう整理されてますね。
F4 keyの送り方ですね。

/*
 * ２．SendKeysでF4_Key(特殊なキー)を送る方法
*/

SendKeys "{F4}"
~~~~~~~~~~~~~~~
でＦ４を送ることが出来ます。

ポイントは
｛Ｆ４｝
^^^^^^^^^と｛｝でＦ４を囲うぐらいかなぁ。（Access97で確認）

ヘルプを見ると、
BackSpace {BACKSPACE}、{BS}、または {BKSP} 
Ctrl + Break {BREAK} 
Enter  {ENTER}または {~} 
　・
　・
　・
Tab {TAB} 
↑ {UP} 
F1 {F1} 

など載っているので、確認してください。

あとは、コンボボックスのフォーカスＸＸＸ系のイベントに書けばＯＫだと思います。
If Len(コントロール & "") = 0 Then
    SendKeys "{F4}"
End If
みたいにして、選択されて無い時だけ開くと、お客さんに喜ばれると思います。
※毎回通るたびに開くとうざいので。

コンボボックスイベント
 

何かの参考となれば幸いです。
では、また。

/*
 * ３．.Dropdown ってあるらしい
*/

なんか、忘れてない？
えっ、できたよＦ４送って開けたよ。
ここ、ここ。

> 　上記以外の良い方法がありましたらそれもご教授いただけると嬉し
> いです。

ほかの方法ありませんか？知ってたら教えて。
読み替えると？プロならもっと良い方法しってるだろ、隠さず教えろよ？
なんては言ってないけど、

自分はこの道（方法）で目的地に向かいます。
もっと簡単な道（方法）あったら教えてくださいかぁ、、、
向上心が含まれてる質問だよね。

※類似品で、オレ様の方法はコレ、これよりいい方法出してみろ三流ＰＧ
　と完璧回答送ってくるのもありだよねぇ（そんなイヤな人居ないけど）

そんな時間稼ぎはいいから、ハヤク教えろ。
はいはい、

コンボボックスのコントロールに
.Dropdown ってあって、これがスバリみたいです。

使い方は、簡単で、
Private Sub USER_ID_Enter()
    Me!USER_ID.Dropdown
End Sub

Me!コンボボックス.Dropdown でＯＫです。

なんて私が見つけたように書いたけど、
~~~~~~~~~~~~~~~~~~~~~~~~
たまたま掲示板見てた人にメール貰った。
※なんで直接掲示板に書いてくれないのだろう？
　意外と書きにくい空気の掲示板なのかなぁ？

こちらも、時間があったら試してみてね、では、また。

-- 余談 -- 
[No.157 聞き易い空気・環境を作る(人気者目指して自己分析？)]
http://www.ken3.org/backno/backno_guchi31.html#157
で、軽く
>--- 枠外解説・愚痴 ---
>質問し易い・しにくい空気って在ると思う。
>新人君が２・３人居てＡ君が先輩に聞きに行ってたりすると、Ｂ君も聞きに行き易い。
>誰も書きこまれていない掲示板だと、なんか書きこみにくいよね。
>あっ、例題的には誰も入っていない定食屋・ラーメン屋にはなんか入りにくいよね。
>人が集まっているって安心感があるのかなぁ。
>よく後輩が質問をしに来る先輩には、他の後輩も聞きに行く、それで人気があがる？
>場合もあるので、自分は嫌われてる？
>なんて被害妄想を感じてる中堅社員さんは、
>質問に答えてるって姿を見せるのも手かなぁ。
>
>えっ、質問が来ないほうが自分の作業に集中できていいって？
>質問に答えると自分の勉強にもなりますよ。
>自分を成長させるには他人に教えるコーチをやるのも１つの勉強だと思って、
>ダマされたと思ってやってみてください。
>※新人や後輩から質問・反応こなくなると、私みたいに成長できないですよ（笑）
---
とか適当にほざいてます、暇な時、のぞきに来てください。

/*
 * ４．おわりの挨拶
*/

今回のポイントは、
・SendKeys "{F4}"でＦ４を送り、コンボボックスを自動で開く
・.Dropdownを使用して、コンボボックスを開く

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。
--------------------
読者からのお便り紹介
--------------------
掲示板にあった質問なのですが、
http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi?mode=allread&no=100&page=0

>投稿時間：2003/04/25(Fri) 15:12
>投稿者名：たけを
>タイトル：レプリカの同期エラー
>
>いつもメルマガ楽しみにしています。
>XPでACCESS2002を使っているのですが
>複数拠点にて使用するためにデータMDBのレプリカを各拠点で使用し
>週に2度ほど集めて同期をとるといった方法を行っているのですが
>データ更新量が多いと同期エラーがでて同期を取ることができないことがあります。
>ヘルプを見ると
>レジストリのMaxLocksPerFileの設定を超えていますのであるので
>適当に大きくしてもとれず
>他の理由として
>・使用できるメモリ量
>・レコードセットの行のサイズ
>・ネットワークOSの制限
>とあるのですが
>メモリは512Mつんでいますし
>レコードセットの行サイズは一度無理をしてテーブルを2つに分けたので
>これ以上分割するとわけのわからない構造になってしまいます。
>現在エラーの起きるテーブルは
>全部で１０フィールドで
>内訳は
>オートナンバー １
>超整数 １
>数値バイト ３
>テキスト50文字 ２
>通貨 １
>日付 １
>Yes/No １
>となっています。
>そのほかにレプリカにしたら自動でできるフィールドがあります。
>ネットワークOSの制限というのもローカルHDに持ってきても
>同期エラーになりとれませんでした。
>どうにか同期エラーが起きなくしたいのですがどなたか解決方法はないでしょうか。
----

何かヒントでもある人は助けてあげてください。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
私も探してるけど、いつもの姑息な逃げ手も浮かばなくて。。。

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]