Access VBA質問箱 IV

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

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


212 / 2272 ツリー ←次へ | 前へ→

【12535】リストボックスで任意の行を最初から選択 神田龍一 14/5/8(木) 1:53 質問[未読]
【12536】Re:リストボックスで任意の行を最初から選択 hatena 14/5/8(木) 7:44 回答[未読]
【12537】Re:リストボックスで任意の行を最初から選択 神田龍一 14/5/9(金) 14:37 お礼[未読]

【12535】リストボックスで任意の行を最初から選択
質問  神田龍一  - 14/5/8(木) 1:53 -

引用なし
パスワード
   製造メーカーです。
生産→在庫→受注→在庫引き当て→出荷(在庫不足により出荷出来ない分は翌日に持ち越し)
という流れです。
在庫引き当てフォームがあり、リストボックスを配置してあります。
リストボックスには、受注番号(ID)、受注日、顧客名、商品名、点数、備考欄、等があります。
急ぎの受注が無い場合は、リストボックスを触らずに在庫引き当てボタンをクリックしますと、受注日の古い順に在庫引き当てがかかり、出荷指示書が出力されます。
急ぎの受注がある場合は、リストボックスから選択してから在庫引き当てボタンをクリックしますと、選択した分を優先して在庫引き当てし、その後受注日の古い順に在庫引き当てするようになっています。
ところが、在庫引き当てフォームで作業する人が、リストボックスから選択する事をうっかり忘れたり、選択漏れがあったり、が多発しています。
そこで対策として、急ぎの受注は受注番号(ID)を100000より大きな数字にしておき(急ぎ以外は99999以下)、在庫引き当てフォームを開いた段階で、リストボックス上で最初から選択した状態にしておきたいです。どのようにすれば良いのでしょうか?
在庫状況により、急ぎの受注でもリストボックスから選択解除する場合がありますので、リストボックスを使用する方法は、やめたくありません。
ややこしい質問で恐縮ですが、宜しくお願い致します。

【12536】Re:リストボックスで任意の行を最初から...
回答  hatena  - 14/5/8(木) 7:44 -

引用なし
パスワード
   そのリストボックスは複数選択可能ですか、それとも、複数選択不可ですか。

リストボックス名は、リスト1 とします。
連結列は、1(受注番号)とします。


リストボックス名は、リスト1 とします。
連結列は、1(受注番号)とします。

フォームの読み込み時のイベントプロシージャを下記のように設定します。

複数選択可能の場合

Private Sub Form_Load()
  Dim i As Long

  With Me.リスト18
  For i = 0 To .ListCount - 1
    If .ItemData(i) >= 100000 Then
      .Selected(i) = True
    End If
  Next
  End With
End Sub


複数選択不可の場合

Private Sub Form_Load()
  Dim i As Long

  With Me.リスト18
  For i = 0 To .ListCount - 1
    If .ItemData(i) >= 100000 Then
      .Value = .ItemData(i)
      Exit For
    End If
  Next
  End With
End Sub

【12537】Re:リストボックスで任意の行を最初から...
お礼  神田龍一  - 14/5/9(金) 14:37 -

引用なし
パスワード
   出来ました。
ありがとうございました。
助かりました。

212 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078190
(SS)C-BOARD v3.8 is Free