過去ログ

                                Page     524
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼テーブルの存在確認  初心者 04/3/4(木) 11:28
   ┗Re:テーブルの存在確認  クロ 04/3/4(木) 11:44
      ┗Re:テーブルの存在確認  初心者 04/3/4(木) 16:26

 ───────────────────────────────────────
 ■題名 : テーブルの存在確認
 ■名前 : 初心者
 ■日付 : 04/3/4(木) 11:28
 -------------------------------------------------------------------------
   はじめまして。
超初心者です。アドバイスよろしくお願いします。
あるテーブルを削除する際に、そのテーブルの存在確認
をしようと思っているんですが、どのような方法があるの
でしょうか?
初心者な質問で申し訳ないです。

 ───────────────────────────────────────  ■題名 : Re:テーブルの存在確認  ■名前 : クロ  ■日付 : 04/3/4(木) 11:44  -------------------------------------------------------------------------
   VBAになりますが...
DeleteObjectでテーブルを削除しようとした際に
対象のテーブル(Aテーブル)がないとエラーが出ま
す。これを利用してエラー時にメッセージを出すと
いうのはどうでしょうか?


Dim TName As String
TName = "Aテーブル"
On Error GoTo el
  DoCmd.DeleteObject acTable, TName
el:
  MsgBox TName & "はありません"

 ───────────────────────────────────────  ■題名 : Re:テーブルの存在確認  ■名前 : 初心者  ■日付 : 04/3/4(木) 16:26  -------------------------------------------------------------------------
   
クロさん、どうもありがとうございます。
存在確認する関数みたいなものってないんですかね。
クロさんのアドバイスで頑張ってみます!


>VBAになりますが...
>DeleteObjectでテーブルを削除しようとした際に
>対象のテーブル(Aテーブル)がないとエラーが出ま
>す。これを利用してエラー時にメッセージを出すと
>いうのはどうでしょうか?
>
>
>Dim TName As String
>TName = "Aテーブル"
>On Error GoTo el
>  DoCmd.DeleteObject acTable, TName
>el:
>  MsgBox TName & "はありません"

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 524