No.2ベストアンサー
- 回答日時:
SQLも使わず、初等的にやってみました。
マンション.TBの「販売」フィールドでYES/NOのYES分
だけ、売却済マンション.TBにレコードを加えています。
テスト済み。ちょっとした色んな場面で使えると思います。2度実行しないようにしましょう。累積してしまいます。
Option Compare Database
Option Explicit
Sub test01()
Dim db As Database
Dim rs As Recordset
Dim ors As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("マンション", dbOpenDynaset)
Set ors = db.OpenRecordset("売却済マンション", dbOpenDynaset)
rs.MoveFirst
While Not rs.EOF
'------------
If rs!販売 = True Then
ors.AddNew
ors!マンション = rs!マンション
ors.Update
' MsgBox rs!マンション
End If
'-----------
rs.MoveNext
Wend
rs.Close
ors.Close
End Sub
この回答へのお礼
お礼日時:2002/12/20 22:53
ありがとうございました。難しそうですが、チャレンジしてみます。まだやってみていませんが、完璧そうです。20点。プロですか?よく知っておられますね?感心します。今後ともよろしく。
No.1
- 回答日時:
入院患者.TBLと退院患者.TBLが同じテーブルデザインである前提で話を進めます。
まず、入院患者.TBLを元に追加クエリーを作成します。
追加先は退院患者.TBLとし、抽出条件として「退院有り」フィールドがyes(true)のものとします。
次に削除クエリーを入院患者テーブルを元にして作成します。
抽出条件は最初の追加クエリーと同じで、削除フィールドは全フィールドとなります。
マクロに「追加クエリー」「削除クエリー」の順にクエリーを開くように登録すればOKです。
気を付けなければならいないのは、削除するとデータは完全に消えますので、くれぐれもクエリー起動の順番を間違えないことです。
本来であれば、移動データをバックアップしながらコピーするか、入院・退院でテーブルを分けるのではなく、単純に入退院サインというフィールドで度力を判断させる方が、スマートなような気がします。
この回答へのお礼
お礼日時:2002/12/20 22:45
早速の回答をありがとうございました。なるほど、そういう方法でやるのですか。初心者ですので、勉強になりました。これからもよろしくおねがいします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 病院・検査 精神科は治療を受けたいと思っていない患者を強制退院させたりできないんですか? 体の病気で入院した場合 1 2022/03/31 22:04
- 片思い・告白 3年前入院初めて入院し靭帯修復手術をしました。 その時の担当PTさんが気になっていたのですが患者と病 2 2022/08/10 20:39
- 医療 病院は入院病棟では問題があったり、扱いにくい患者は他の患者と部屋をわけていますか?入院してきて扱いに 3 2023/02/27 09:48
- SQL Server SQL 期間内の実施数を合計したい 2 2023/03/03 22:28
- 医療・安全 本土の皆さん、どうすればいいか?正解はなんでしょうか? 数週間後は直面しますよ、そのまま秋以降はイン 7 2023/07/07 05:00
- 病院・検査 身内の病院の入院について、至急お聞き致します。 6 2022/07/04 01:10
- SQL Server AccessのInsertクエリのあとつづけてDeleteクエリを行いたいがSQLでどう書いたらいい 3 2023/05/27 14:12
- その他(メンタルヘルス) 両親とも亡き後 2 2022/11/04 15:47
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- その他(病気・怪我・症状) 医学博士 山本博昭先生の山本クリニックに通われていた方・または関係ある先生方・看護師の方々へ 1 2022/06/11 14:17
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DataTableに特定のフィールドが...
-
INT64対応のprintf系関数はあり...
-
Accessのフィールド名に半角括...
-
accessでフィールド追加のあと...
-
ACCESSデータベースにV...
-
Access 2010で実行時エラー3061
-
日付と文字列を条件としてDLook...
-
AccessのDAOでフィールド名を配...
-
SQLで複数のテーブルと結合した...
-
オートナンバー型を抽出条件に...
-
アクセスでADO 並べ替えが適用...
-
Accessの画像挿入のVBAコード
-
2つ目のレコードの値を取得す...
-
データベースから絞り込んでデ...
-
FTPサーバーから受信したファイ...
-
テーブルのデータ型の変更がで...
-
ノーツ:ユーザ名から別名を取...
-
DataGridViewでのデータ抽出に...
-
フィールド名をループの添え字...
-
c言語で自分のホームディレク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
accessでフィールド追加のあと...
-
INT64対応のprintf系関数はあり...
-
DataTableに特定のフィールドが...
-
Accessのフィールド名に半角括...
-
2つ目のレコードの値を取得す...
-
AccessのDAOでフィールド名を配...
-
クリスタルレポートで困ってい...
-
テーブルのデータ型の変更がで...
-
Access 2010で実行時エラー3061
-
日付と文字列を条件としてDLook...
-
2次元のdictionary
-
ACCESSで日別集計をする場合
-
Access VBA 添付型フィールド
-
SQLで複数のテーブルと結合した...
-
クリスタルレポートで文字列の...
-
ACCESSで視覚的タイムテーブル...
-
アクセス ADO Null以外のレコ...
-
アクセスでADO 並べ替えが適用...
-
AccessVBAで他テーブルのデータ...
-
オートナンバー型を抽出条件に...
おすすめ情報