Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1623 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6242】フィールド名が存在したものだけフィールド名を変更する チリ子 05/9/9(金) 12:09 質問[未読]
【6246】Re:フィールド名が存在したものだけフィール... Gin_II 05/9/9(金) 18:21 回答[未読]
【6254】Re:フィールド名が存在したものだけフィール... チリ子 05/9/12(月) 10:27 お礼[未読]
【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

ＡＤ０２が無い場合は、ＡＤ０４を…、ＡＤ０４が無い場合はＡＤ３６を…、というふうにできませんか？
宜しくお願いします。
【6246】Re:フィールド名が存在したものだけフィー...
回答  Gin_II  - 05/9/9(金) 18:21 -
引用なし
パスワード
   > ＡＤ０２が無い場合は、ＡＤ０４を…、ＡＤ０４が無い場合はＡＤ３６を…、
> というふうにできませんか？

On Error Resume Next
を使ってやればいいかと。
【6254】Re:フィールド名が存在したものだけフィー...
お礼  チリ子  - 05/9/12(月) 10:27 -
引用なし
パスワード
   ▼Gin_II さん：
>On Error Resume Next
>を使ってやればいいかと。

返信ありがとうございます。
With db.TableDefs…の前にOn Error Resume Nextを入れましたら、できました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1623 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078242
(SS)C-BOARD v3.8 is Free