MS Access

AccessでコンボボックスのリストをVBAで行番号で選択する

投稿日:

こんな方法があるのは知らなかった。
メモメモ。

'コンボボックスの1行目を選択する
'Forms!見積請求書F.cbo銀行振込先 = Forms!見積請求書F.cbo銀行振込先.ItemData(0) 
'コンボボックスの最終目を選択する
Forms!見積請求書F.cbo銀行振込先 = Forms!見積請求書F.cbo銀行振込先.ItemData(Forms!見積請求書F.cbo銀行振込先.ListCount - 1) 

参考
コンボボックスのリストの先頭データ(or最終データ)を既定値とする – hatena chips

-MS Access

執筆者:

関連記事

no image

DoCmd.GoToRecordよりもMe.SaveよりもMe.Refresh

Accessで、一旦フォーム上のレコードを保存したいとき、 Me.Save とやってもレコードが保存されない。 そこで、今までは、DoCmd.GoToRecordで無理矢理レコードを移動して保存してい …

no image

Accessのフォームを開く際、acHiddenとVisibleの組み合わせで高速化

Accessのフォームを開く際、acHiddenとVisibleの組み合わせで高速化 Accessのとあるシステムで、 フォームを開いてフィルタをセットして実行してさらに並べ替える・・・という処理をし …

no image

テキスト型の日付をformat関数で揃える

CSV形式のデータからAccessにインポートしたものだから、日付が2012/5/5やら2012/05/05やら、文字列扱い(日付型でない)の混在したデータの入ったテーブルがある。 これをきちんと並べ …

no image

Access2007でテキストファイルエクスポートしたら1文字ずれる

Access2007で、指定フィールドからLeft関数で10文字とったクエリを作り、固定長でテキストファイルにエクスポートしたら、5000件のデータのうち3件だけが、文字が末尾に1桁多く入り、後ろがず …

no image

Accessで DoCmd.RunSQL を CurrentDb.Executeにしたら、1秒高速化した

処理が遅いので速くして欲しいとの要望があったので、コードを調査。 DoCmd.RunSQL を CurrentDb.Execute に置き換えると非同期で実行されるとの情報を得たので、試す。 結果、6 …