【Access】コンボボックスの値の変更方法
フォームにコンボボックスを配置し、下記の動作をさせたいと思ったのですが、1は出来たものの2が出来ませんでした(値集合ソースの中身は表示されるものの、選択してもコンボボックスに反映されませんでした)。
1. フォームオープン・・・データベースのcmb1の値より、対応する文字をコンボボックスに表示する。
2. コンボボックスの値の変更・・・プルダウンから値集合ソースに表示されている任意の値を選択し、コンボボックスに設定する。
その為、どうすれば値を変更できるようになるかアドバイスいただける方がいらっしゃいましたら、ご教示の程よろしくお願いします。
なお、初期状態から下記を変更しております。
【テーブル】
テーブル名：tbl
フィールド名：ID,cmb1
値：1,2
【フォーム】
フォーム名：form1(コンボボックスを一つ配置)
フォームのレコードソース：SELECT Choose(tbl.cmb1,"A","B","C") AS nm_cmb FROM tbl WHERE (((tbl.ID)=1));
コンボボックス
列数：2
列幅：0cm;3cm
コントロールソース：nm_cmb
値集合タイプ：値リスト
値集合ソース：1;A;2;B;3;C
連結列：2
上記の状態で起動時のコンボボックスの中身は"B"と表示されるものの、コンボボックスのプルダウンメニューを表示して値を変更しようとしても出来ない事が確認できると思います。
以上、よろしくお願いします。
お礼
WM_SETFONTというメッセージを投げれば よいのですね。 ありがとうございました。