![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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
ありがとうございました。難しそうですが、チャレンジしてみます。まだやってみていませんが、完璧そうです。20点。プロですか?よく知っておられますね?感心します。今後ともよろしく。
No.1
- 回答日時:
入院患者.TBLと退院患者.TBLが同じテーブルデザインである前提で話を進めます。
まず、入院患者.TBLを元に追加クエリーを作成します。
追加先は退院患者.TBLとし、抽出条件として「退院有り」フィールドがyes(true)のものとします。
次に削除クエリーを入院患者テーブルを元にして作成します。
抽出条件は最初の追加クエリーと同じで、削除フィールドは全フィールドとなります。
マクロに「追加クエリー」「削除クエリー」の順にクエリーを開くように登録すればOKです。
気を付けなければならいないのは、削除するとデータは完全に消えますので、くれぐれもクエリー起動の順番を間違えないことです。
本来であれば、移動データをバックアップしながらコピーするか、入院・退院でテーブルを分けるのではなく、単純に入退院サインというフィールドで度力を判断させる方が、スマートなような気がします。
早速の回答をありがとうございました。なるほど、そういう方法でやるのですか。初心者ですので、勉強になりました。これからもよろしくおねがいします。
お探しの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
- 病院・検査 身内の病院の入院について、至急お聞き致します。 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
- 病院・検査 週に1度、通院しているかかりつけの病院があります。 いつも思うのですが、受付で散々、話していて他の患 4 2023/03/10 10:40
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
5
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DataTableに特定のフィールドが...
-
Accessのフィールド名に半角括...
-
Accessの画像挿入のVBAコード
-
Access 2010で実行時エラー3061
-
フィールド名の指定でエラー
-
ACCESSで日別集計をする場合
-
INT64対応のprintf系関数はあり...
-
オートナンバー型を抽出条件に...
-
accessでフィールド追加のあと...
-
NULLを含む文字列の結合で...
-
ADOでNullフィールドの抽出
-
AccessのDAOでフィールド名を配...
-
COBOLで、文字タイプのフィール...
-
アクセス ADO Null以外のレコ...
-
ACCESSデータベースにV...
-
Access VBA 添付型フィールド
-
データベース操作(DAO)でのフィ...
-
クリスタルレポート(8.5)の書式...
-
テーブルのデータ型の変更がで...
-
Access :ALTER TABLE で作成...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
accessでフィールド追加のあと...
-
Accessのフィールド名に半角括...
-
クリスタルレポートで困ってい...
-
2つ目のレコードの値を取得す...
-
DataTableに特定のフィールドが...
-
Access 2010で実行時エラー3061
-
INT64対応のprintf系関数はあり...
-
テーブルのデータ型の変更がで...
-
AccessのDAOでフィールド名を配...
-
日付と文字列を条件としてDLook...
-
クリスタルレポートで文字列の...
-
クリスタルレポート(8.5)の書式...
-
Access VBA 添付型フィールド
-
Access クエリで変数を参照する...
-
Accessの画像挿入のVBAコード
-
NULLを含む文字列の結合で...
-
SQLで複数のテーブルと結合した...
-
ACCESSで視覚的タイムテーブル...
-
ACCESSデータベースにV...
-
オートナンバー型を抽出条件に...
おすすめ情報