Microsoft Access Club Access超初心者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトル検索フォームから該当レコードをクリックして移動
記事No82990
投稿日: 2016/09/13(Tue) 01:01
投稿者ぴこ
OS:Windows10
Access Version:2010
access初心者です。よろしくお願いします。
下記のテーブルがあります。
商品名 納入日 金額 セール金額
冷蔵庫 3日 100000円 60000円
掃除機 4日 5000円 3000円
扇風機 2日 3000円 1500円
以下、同じように続きます。

検索フォームを作成しました。
テキストボックス0に文字を入力し、検索ボタンを押すとリストボックス5
に該当レコードが表示されます。
VBAコードは、下記です。
Option Compare Database
Option Explicit
Private myRecordset As Recordset
Private SQL As String
Private Sub Form_Load()
SQL = ""
End Sub

Private Sub コマンド2_Click()
ResultShow (1)
End Sub

Private Sub ResultShow(flag As Integer)
SQL = "select * from テーブル2 where 商品名 LIKE" & "'*" & テキスト0.Value & "*';"
Set myRecordset = CurrentDb.OpenRecordset(SQL)
リスト5.RowSourceType = "Table/Query"
リスト5.RowSource = SQL
myRecordset.Close
End Sub
ここから質問なのですが検索してリストボックスに表示されたレコードをクリックもしくはダブルクリックなどを行い、クリックしたレコードが別の枠に移動し最終的に移動したレコードの金額・セール金額が合計されるようなシステムを作ることはできますか?
よろしくお願いします。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る