| |
こんばんわ。お世話になります。
早速ですが、「印刷済みにチェックをつける」について教えていただきたいです。
サブフォームに表示されたレコードのうち、印刷したいレコードにチェックをいれて印刷します。
（この後、このレコードを他のデータベースに追加クエリで登録）
ここまでは、ＶＢＡでうまく行ったのですが、
この後、このときチェックしたレコードの印刷済みにチェックを入れたいのですが、ここの書き方がわかりません。
更新クエリで、印刷したいチェックがyesで抽出して、印刷済みをyesにするイメージでＶＢＡを書きましたが、「アクションクエリなため、レコードを表示できません」となってしまいます。
このメッセージはどういうことなのでしょうか？？
すみません。会社で作成したＶＢＡを持って帰ってないので、こんな感じで書いたという感じになってしまいましたが、↓のように書きました。
印刷したいチェックは何回も更新したいですが、印刷済みチェックはとにかく１回でも印刷したいチェックかyesになったらチェックしたいのです。
Sub ボタン1_Click()
'はじめにレポート1を印刷プレビューでひらいて確認メッセージをだし、ＯＫなら↓
DoCmd.OpenReport "レポート1", acViewNormal '印刷したいチェックがyesが抽出条件のクエリからできたレポートを印刷
DoCmd.OpenQuery "追加クエリ", acViewNormal '追加クエリで印刷したいチェックしたレコードを他ＤＢへ
DoCmd.OpenQuery "更新クエリ", acViewNormal '印刷したいチェックがyesのレコードの印刷済みにチェック
End Sub
よろしくお願いいたします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
