ソースコードをどう書いたらよいのかわかりません
マイクロソフトAccess2007を使用しています。
(1)テーブルT_ゲームソフトからフォームF_削除のコンボボックスで入力した条件を満たすレコードセットを開き、
変数にゲームソフトIDを代入したいと思っています。
(2)(1)で取得したゲームソフトIDを条件として、テーブルT_使わないゲームからレコードセットを開き、
フォームF_削除から入力した値をテーブルT_使わないゲームの削除日フィールドに入力したいと思っています。
途中まで下記の様なソースコードを作成したのですが、挫折してしまい質問させて頂きました。
上記(1)(2)になる様なソースコードを作りたいと思っているのですが、この先どの様に書いて良いのかわからなかった為質問させて頂きました。
12,13,14行目にいたっては全く違うことをしていると思います…
当方初めてVBAを使用したので、おかしな部分が多々あると思いますが、ご指導お願いします。
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
「ソースコード」
1 Dim Db As DAO.Database
2 Dim Rs As DAO.Recordset
3 Dim SQL As String
4
5 Set Db = CurrentDb()
6 Set Rs = Db.OpenRecordset("T_ゲームソフト", dbOpenDynaset)
7
8 strSql = "SELECT * FROM T_ソフト WHERE 名前 = Combo_SoftName AND 種類 = Combo_SoftType
9
10 Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
11
12 Rs.Edit
13 Rs!ソフトリストID = Combo_softID
14 Rs!アンインストール日 = Uninstall
15
16 Rs.Update
17 Rs.Close: Set Rs = Nothing
18 Set Db = Nothing
19
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
「 T_ゲームソフト 」
ゲームソフトID｜ 名前 ｜ 種類
─────────────────────
1 ｜ A ｜ アクション
2 ｜ B ｜ SF
3 ｜ C ｜ シューティング
4 ｜ D ｜ スポーツ
5 ｜ E ｜ レース
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
「 F_削除 」
名前 【コンボボックス】 ←Combo_SoftName
種類 【コンボボックス】 ←Combo_SoftType
削除日 【コンボボックス】 ←Combo_Sakujo
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
「 T_使わないゲーム 」
ゲームソフトID｜ 名前 ｜ 種類 ｜ 削除日
─────────────────────────────
2 ｜ B ｜ SF ｜
1 ｜ A ｜ アクション ｜
3 ｜ C ｜ シューティング｜
5 ｜ E ｜ レース ｜
4 ｜ D ｜ スポーツ ｜
～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
お礼
早速のご回答ありがとうございます。Sunのサイト、参考にします。２番目の質問は「アプレットかアプリケーションかという違いを除いて、同じ機能を持った２つのソフト 」と書くべきでした。 アプリケーションとアプレットのソースコードの違いを見るには同じ機能を持ったものを比べるといいかと思いまして(^^;ゞ