Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1859 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4936】コンボボックス JOJO 05/4/21(木) 14:07 質問[未読]
【4938】Re:コンボボックス Chou 05/4/21(木) 18:52 回答[未読]
【4939】Re:コンボボックス hatena 05/4/21(木) 21:45 回答[未読]
【4940】Re:コンボボックス JOJO 05/4/22(金) 9:37 お礼[未読]
【4936】コンボボックス
質問  JOJO  - 05/4/21(木) 14:07 -
引用なし
パスワード
   ACCESS2000とOS2000を使ってます。
ACCESSを使い始めて1週間なんですが
コンボボックスにデータを入れることができなくて困ってます。
フォームにコンボボックスをもってきて、
イベントのビルドで、
　　Private Sub Form_Load()
　　コンボ9.RowSourceType = "Value List"
　　コンボ9.RowSource = "1月;2月;3月;"
　　コンボ9.Dropdown
　　End Sub
とうっても表示されません。
お手数ですがまちがってるところを教えていただけませんか？
【4938】Re:コンボボックス
回答  Chou  - 05/4/21(木) 18:52 -
引用なし
パスワード
   ▼JOJO さん：
>ACCESS2000とOS2000を使ってます。
>ACCESSを使い始めて1週間なんですが
>コンボボックスにデータを入れることができなくて困ってます。
>フォームにコンボボックスをもってきて、
>イベントのビルドで、
> 　　Private Sub Form_Load()
>　　コンボ9.RowSourceType = "Value List"
>　　コンボ9.RowSource = "1月;2月;3月;"
>　　コンボ9.Dropdown
>　　End Sub
>とうっても表示されません。
>お手数ですがまちがってるところを教えていただけませんか？

"１月" & ";" & "２月" & ";" & "３月" では？。
【4939】Re:コンボボックス
回答  hatena  - 05/4/21(木) 21:45 -
引用なし
パスワード
   >コンボボックスにデータを入れることができなくて困ってます。
>フォームにコンボボックスをもってきて、
>イベントのビルドで、
> 　　Private Sub Form_Load()
>　　コンボ9.RowSourceType = "Value List"
>　　コンボ9.RowSource = "1月;2月;3月;"
>　　コンボ9.Dropdown
>　　End Sub
>とうっても表示されません。

Private Sub Form_Load()
　　コンボ9.RowSourceType = "Value List"
　　コンボ9.RowSource = "1月;2月;3月;"
　　コンボ9.SetFocus
　　コンボ9.Dropdown
End Sub

としたらどうですか。

あるいは、デザインビューでプロパティを設定するのではだめですか。
【4940】Re:コンボボックス
お礼  JOJO  - 05/4/22(金) 9:37 -
引用なし
パスワード
   Private Sub Form_open(cancel As Integer)
としたところできました。
そのあとにChouさんとhatenaさんの
かいてくださったやりかたでなんとかなりました。
ありがとうございました。
でもなんではじめできなかったんだろう・・・
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1859 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078248
(SS)C-BOARD v3.8 is Free