![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
> Set rs = db.Execute("select Name from MsysObjects where Name Like ""dbo_*"" and type = 6")
この行でエラーにならなかったら無限ループですね。
エラーになってラッキーです。
システムオブジェクトを開いてトラブルがあると怖いものがあるので
「MsysObjects」 を参照しない方法で。
Sub Proc_LinkTable_Rename()
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If tdf.Connect <> "" Then
If tdf.Name Like "dbo_*" Then
tdf.Name = Mid(tdf.Name, 5)
End If
End If
Next
dbs.Close
Set dbs = Nothing
End Sub
ナビゲーションウィンドウには遅れて表示されるかもしれません。
No.1
- 回答日時:
3つぐらい方法はあるかと思います。
(1)テーブルのリンクテーブルを一個一個、「名前の変更」で「dbo_」をはずす。
(2)以下のようなサブプロシージャーを作成して実行
Sub proc_linktable_rename()
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.Execute("select Name from MsysObjects where Name Like ""dbo_*"" and type = 6")
Do Until rs.EOF
Set tdf = db.TableDefs(rs.Fields(0))
tdf.Name = replace( rs.Fields(0), "dbo_", "")
Loop
Set tdf = Nothing
Set db = Nothing
End Sub
(3)クエリデザイン画面でテーブルを右クリックして、プロパティの別名を変更。
nora1962さん、ご回答ありがとうございます。
テーブルが数百あるので1つ1つ変えるのはかなり厳しいと考え、(2)を選択しました。
モジュールを作成し実行してみた所、
Executeの所で「functionまたは変数が必要です」と表示されてしまいエラーとなってしまします。
原因を調べてみましたが分かりませんでした。
申し訳ありませんが、どのように修正すればよろしいのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- SQL Server AccessのInsertクエリのあとつづけてDeleteクエリを行いたいがSQLでどう書いたらいい 3 2023/05/27 14:12
- SQL Server [SQLServer] テーブル名からカラム名を取得する 1 2022/08/23 21:20
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Oracle SQLの書き方について 1 2023/04/13 09:54
- Oracle sqlで質問です。 Aテーブルの情報をBテーブルに更新かけたいです。 やりたいことは、Bテーブルの受 1 2023/05/17 11:17
- Oracle sqlで質問です。 aテーブルとbテーブルがあり、下記のsqlで取得したidとnameに一致しないレ 1 2022/04/20 20:34
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
ODBCの接続に失敗しました(3146)について
その他(Microsoft Office)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
ACCESSフォーム入力後の確定
Access(アクセス)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
ACCESSのSQLで、NULLかNULLでないかの判定
その他(データベース)
-
6
VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます
Visual Basic(VBA)
-
7
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
8
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
9
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
10
Accessで起動時のエラー対処方法を教えてください。
Access(アクセス)
-
11
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
12
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
13
Accessのテーブルで、リンク?ODBC?
Access(アクセス)
-
14
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
15
クエリで「データ型が一致しません」と表示される
その他(データベース)
-
16
access vbaにてテンポラリーテーブルが作りたいです。
Access(アクセス)
-
17
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
18
accessの処理が遅い
その他(データベース)
-
19
テーブルリンク リンク元を知りたい
Access(アクセス)
-
20
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS2007 フォーム 「バリア...
-
SQL Serverのテーブルってどう...
-
SQL2008のUPDATE分について
-
ACCESSのSQLで、NULLかNULLでな...
-
違いを教えてください
-
「マスタ」と「テーブル」の違...
-
ビューで引数を使いたい
-
bcpによる、テーブル→CSVファイ...
-
Access97の文字化けについて
-
コンボボックスで入力したもの...
-
クエリのキャンセルがいつにな...
-
2つの項目が重複するレコード...
-
Accessでフィールドを比較した...
-
データからの不要コード削除
-
Accessにインポートしたら並び...
-
アクセスのテーブル作成クエリ...
-
SQLManagementStudioのフィルタ
-
MDBの排他制御
-
複数のDBでjoinする場合のindex...
-
ビューにインデックスを設定で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESS2007 フォーム 「バリア...
-
Access VBA [リモートサーバー...
-
Accessでクエリを完了できませ...
-
ユニオンクエリで繋げられるテ...
-
ACCESSのODBCリンクテーブルに...
-
大きなテーブルに対する問い合...
-
VBAの実行時エラー'2522'について
-
Select ~ into ~ で作成した...
-
accessでSQL実行時のテーブル名...
-
実行時エラー3086 削除クエリ...
-
TRY CATCHでシステムエラーを検...
-
Access Update文の副問い合わせ
-
Oracleデータベーストリガーの...
-
PhpMyAdminで作成して実行せよ...
-
SQL Serverのテーブルってどう...
-
SQL SERFVER で外部キーのエラ...
-
AccessのテーブルをSQL Server...
-
ACCESSにてテーブルをEXCEL形式...
-
MS Access2000でエクスポート時...
-
SQL文でテーブル作成 Access2002
おすすめ情報