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
- 医療・安全 本土の皆さん、どうすればいいか?正解はなんでしょうか? 数週間後は直面しますよ、そのまま秋以降はイン 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も見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
-
4
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
5
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのフィールド名に半角括...
-
DataTableに特定のフィールドが...
-
Access VBA 添付型フィールド
-
オートナンバー型を抽出条件に...
-
INT64対応のprintf系関数はあり...
-
2つ目のレコードの値を取得す...
-
Access Dcount関数で引数が指定...
-
テーブルのデータ型の変更がで...
-
週の日数は7日ですが、これを表...
-
CurrentRecord について
-
accessでフィールド追加のあと...
-
ACCESSで日別集計をする場合
-
SQLの構文エラー
-
AccessVBAで他テーブルのデータ...
-
クリスタルレポートで困ってい...
-
クリスタルレポート(8.5)の書式...
-
ExcelからAccessデータを検索す...
-
アクセスでADO 並べ替えが適用...
-
COBOLで、文字タイプのフィール...
-
criteria の読み方
マンスリーランキングこのカテゴリの人気マンスリー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...
-
オートナンバー型を抽出条件に...
おすすめ情報