Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1358 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7526】AccessVBAで質問です snow-hat 06/3/16(木) 0:57 質問[未読]
【7527】Re:AccessVBAで質問です 小僧 06/3/16(木) 10:06 発言[未読]
【7546】Re:AccessVBAで質問です snow-hat 06/3/16(木) 19:10 お礼[未読]
【7526】AccessVBAで質問です
質問  snow-hat  - 06/3/16(木) 0:57 -
引用なし
パスワード
   こんばんわ。AccessVBA初心者です。
下記のような処理を作りたいのですがわかりません・・。
もしお分かりになる方がいらっしゃいましたらサポートをお願い致します。

「テーブルＡ」「テーブルＢ」があり、それぞれのテーブルに連結した「フォームＡ」「フォームＢ」（両方とも帳票フォーム）があります。

テーブルには幾つかのフィールドがあり、その中にチェックボックスに連結したフィールドがあります。

まず、「フォームＡ」を開き、任意のレコードのチェックボックスにチェックを入れ（複数選択あり）、あるコマンドボタンをクリックするとチェックの入ったレコードのみを「テーブルＡ」から「テーブルＢ」へ移動させる処理を作成したいのですがどうもうまく作れません。
「テーブルＢ」へ移動後は「テーブルＡ」から該当のレコードが削除されている必要があります。
また、テーブルＢには随時データが蓄積されていく必要があります。

どなたかお分かりになる方がいらっしゃいましたらご教授願います。
その際、ＶＢＡのソースを記述頂けますと助かります。

どうぞ宜しくお願い致します。
【7527】Re:AccessVBAで質問です
発言  小僧  - 06/3/16(木) 10:06 -
引用なし
パスワード
   ▼snow-hat さん：
おはようございます。

>下記のような処理を作りたいのですがわかりません・・。
>その際、ＶＢＡのソースを記述頂けますと助かります。


このページの上にある

>>本サイトの基本方針をまとめました。こちら をご一読ください。

をご覧になってください。


>　・丸投げ
>　　　「○○するにはどうすればいいか教えてください」といったような、
>　　　コードを最初から最後まで教えてもらうことを期待するような質問


とありますよね。

間違っていても、書きかけのコードでも構いませんので
自分でどこまでできて、何が解らないのかを明確にされた方が宜しいかと思われます。


>「テーブルＡ」から「テーブルＢ」へ移動させる処理
>「テーブルＡ」から該当のレコードが削除

２つの処理が必要になりますね。
・テーブルB に対する「追加クエリ」
・テーブルA に対する「削除クエリ」

クエリの実行は VBA から OpenQueryメソッド で行う事が可能です。
また、クエリを作らずに VBA に SQL文を記述し、
RunSQLメソッドで SQL を発行する事もできます。


また DAO や ADO を使ってレコードセットを取得する方法もあります。

やり方は様々ありますね。
【7546】Re:AccessVBAで質問です
お礼  snow-hat  - 06/3/16(木) 19:10 -
引用なし
パスワード
   小僧 さん：

お返事およびご指摘頂きありがとうございます。
基本方針を良く読まず投稿しておりました。
大変申し訳ございませんでした。

最初はRunSQLやADOを使って考えていたのですがもっと簡単な方法があることに気づき解決が出来ました。

テーブルはひとつにし、フォームにはチェックの入っていないレコードを表示、
フォームＢにはチェックの入ったレコードを表示するようにクエリを作成してやれば解決出来ることがわかりました。
何もテーブルを分ける必要は無かったのですね・・。
知識不足と非柔軟な考えの為にとんだお騒がせを致しまして申し訳御座いませんでした。

お忙しい中、貴重なご意見を頂きましてありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1358 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081086
(SS)C-BOARD v3.8 is Free