Ｐａｇｅ 509 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼条件によってクエリを開かないようにする方法 すみれ 04/2/12(木) 16:04 ┗Re:条件によってクエリを開かないようにする方法 イケガミ 04/2/12(木) 17:02 ┗Re:条件によってクエリを開かないようにす... すみれ 04/2/13(金) 9:30 ─────────────────────────────────────── ■題名 ： 条件によってクエリを開かないようにする方法 ■名前 ： すみれ ■日付 ： 04/2/12(木) 16:04 -------------------------------------------------------------------------
| OS XP ACCESS2002です。 よろしくお願いします。 重複クエリーをつくり、 あるコマンドボタンを押すと ↓ 重複クエリーが開きMsgBOXを出す。 ↓ ダブっているレコードにフラグをたてる。 とここまではできたのですが、 重複するものがないときも 重複クエリーがひらいてしまい、なんだかヘンです。 重複がないときはクエリが開かないようにしたいのですが どうしたらいいでしょうか？ DCountを使おうとしたら、DcountはNull値のものを探してくれないんですね。 Private Sub データ更新_Click() Dim StDocName As String StDocName = "Q_重複Check01" DoCmd.OpenQuery StDocName, acViewNormal msg = MsgBox("古いデータのCheck欄にチェックを入れて下さい。") Exit_データ更新_Click: Exit Sub End Sub |
| >重複がないときはクエリが開かないようにしたいのですが >どうしたらいいでしょうか？ >DCountを使おうとしたら、DcountはNull値のものを探してくれないんですね。 大丈夫だと思いますが？ ただ、Null＝重複じゃないんですよね？ だとしたら、重複クエリのレコード数を取得すればいいと思いますよ。 DCount("*","[Q_重複Check01]") |
| イケガミさん いつもありがとうございます。 無事できました。 |