投稿日	： 2006/05/18(Thu) 16:22
投稿者	： clement
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^2: クエリの存在チェック

> > クエリがあったら削除するというプログラムを組みたい
> > のですがクエリの存在チェックの仕方がわかりません。
>
> 「exists」というキーワードを参考にすれば、
> 既に存在するレコードか否かのチェックは出来ます。
>
早速のご返答ありがとうございます。
「exists」を使えばＳＱＬで既に存在するレコードかどうかチェックできる
という事はわかったのですがCARD.mdbの中にCARDというテーブルが作ってあり
そこから抽出して作ったクエリの存在チェックをする事はできないでしょうか？
そのクエリをレポートが参照するようにしてあるのですが
度々申し訳ありませんがご教授お願いします。

Private Sub cmdPrint_Click()
    Dim obj As New Access.Application

    Set obj = GetObject(App.Path & "\テーブル名")
    'ここでCARD1というクエリが存在するかしないかを判断しあれば削除したい
    'obj.CurrentDb.QueryDefs.Delete "CARD1"
    Dim Result As Integer
    Result = MsgBox("印刷します。よろしいですか？", vbYesNo)
    If Result = vbYes Then
        'CARD.mdbに新規にクエリ作成
        obj.CurrentDb.CreateQueryDef "クエリ名", "SQL文"
        'レポート印刷
        obj.DoCmd.OpenReport "レポート名", acViewNormal
        obj.Quit
        Set obj = Nothing
    End If
End Sub
現在は上記のようなプログラムになっています。
よろしくお願いします。

★ - クエリの存在チェック - clement 05/18-11:03No.6467
• Re: クエリの存在チェック - いな 05/18-13:37 No.6469
  • Re^2: クエリの存在チェック - clement 05/18-16:22 No.6474
    • Re^3: クエリの存在チェック - だい 05/18-23:10 No.6476
      • Re^4: クエリの存在チェック - clement 05/19-09:29 No.6477
        • Re^5: クエリの存在チェック - clement 05/19-10:32 No.6480
          • 解決 - clement 05/22-16:23 No.6501