| |
また 質問をさせていただきます。
リストボックスに表示しているデータをマウスの代わりに↑↓のキーでカーソルを移動して 選択するデータの位置でＥＮＴＥＲキーを押下して選択する方法を教えてください。
ダブルクリックでデータ選択は上手くいくのですが、ＥＮＴＥＲキーの場合には どのイベントでプロシージャを設定したら良いのかが分かりません。よろしくお願いします。
下のｺｰﾄﾞはリストボックスを表示する処理です。
Private Sub cmd全表示_Click()
Dim Sql As String
Dim RetEdit As Integer
' -------------------------------------リストボックス表示（ALL）
Sql = ""
Sql = "SELECT Q_入庫抽出データ.入庫No., Q_入庫抽出データ.行, "
Sql = Sql & "Q_入庫抽出データ.入庫日, Q_入庫抽出データ.得意先名, "
Sql = Sql & "Q_入庫抽出データ.商品名称, Q_入庫抽出データ.ロットNo., "
Sql = Sql & "Q_入庫抽出データ.入庫ケース数, Q_入庫抽出データ.入庫個数, "
Sql = Sql & "Q_入庫抽出データ.入庫kg数, Q_入庫抽出データ.入荷先名 "
Sql = Sql & "FROM Q_入庫抽出データ "
' Sql = Sql & "WHERE Q_入庫抽出データ.入庫日=[Forms]![F_入庫データ入力]![入庫年月日];"
Me!入庫データ一覧.RowSource = Sql
Me!入庫データ一覧.Requery
sw全表示 = True
sw全表示 = False
Me!入庫年月日 = ""
Me!入庫データ一覧.SetFocus
End Sub
宜しくお願いします。
|
|
ジュン
- 05/9/12(月) 14:51 -
