Access VBA質問箱 IV

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

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


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

6950 / 9994

←次へ　｜　前へ→


	【6242】フィールド名が存在したものだけフィールド名を変更する

チリ子 - 05/9/9(金) 12:09 -


	引用なし

	パスワード

こんにちは。はじめて投稿します。
テーブルのフィールド名を変更したいのですが、テーブルの列が毎回減ったり増えたりする為、そのフィールが無い場合は、エラーになってしまいます。
以下の内容に書いています。

Dim db As DAO.Database
Set db = CurrentDb
With db.TableDefs(Forms![ﾃﾞｰﾀ参照]![テキスト1]).Fields
.Item("AD02").Name = "test1"
.Item("AD04").Name = "test2"
.Item("AD36").Name = "test13"
.Item("AF85").Name = "test14
.Item("BC03").Name = "test15"
.Item("BC04").Name = "test16"
.Item("BC06").Name = "test17"
End With
db.Close: Set db = Nothing

ＡＤ０２が無い場合は、ＡＤ０４を…、ＡＤ０４が無い場合はＡＤ３６を…、というふうにできませんか？
宜しくお願いします。

221 hits

▼

【6242】フィールド名が存在したものだけフィールド名を変更する チリ子 05/9/9(金) 12:09

≪