Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7375 / 9994

←次へ　｜　前へ→


	【5813】Re:マクロでのクエリ実行

Gin_II - 05/8/10(水) 14:33 -


	引用なし

	パスワード

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Dim Q_Name As String
Dim strSql As String

Q_Name="_名称変更"
strSql = "SELECT [NAME] FROM [MSysObjects] " _
　　　　& "WHERE [NAME] Like '*" & Q_Name & "*'"

Set dbs = Currentdb
Set rst = dbs.OpenRecordset(strSql)

Do Until rst.EOF
　　dbs.Execute rst("Name"), dbFailOnError
Loop

Set rst = Nothing
Set dbs = Nothing

とか。

ただ、
小僧さん　- 05/8/10(水) 11:45 のレスは、テーブルのデータとして
変換データを準備しておけば？ということですね。

その場合は、名称の置換そのものが必要ないってことですよ。

274 hits

▼

【5805】マクロでのクエリ実行 おはな 05/8/10(水) 10:46