Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1163 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8502】フィールド名に含まれた数字を変えたい どらちゃん 06/8/22(火) 18:52 質問[未読]
【8503】Re:フィールド名に含まれた数字を変えたい まさ7251 06/8/23(水) 9:04 回答[未読]
【8506】Re:フィールド名に含まれた数字を変えたい どらちゃん 06/8/23(水) 10:46 お礼[未読]
【8502】フィールド名に含まれた数字を変えたい
質問  どらちゃん  - 06/8/22(火) 18:52 -
引用なし
パスワード
   単純なことなのですが、どうしてもわからなかったのでどなたかご教授お願いします。

フィールド名に含まれた数字の部分を、一つずつ増やしたいのです。


Qdf.SQL = "SELECT * FROM マスター1 WHERE ｺｰﾄﾞ='" & Fund & "' AND 報酬変更='" & T_Dt & "'"
Set Crst = CDb.OpenRecordset("MS", dbOpenDynaset)
For Ct = 1 To 5
　If Crst!報酬 & CStr(Ct) <> 0 Then
　　 Uke = Crst!報酬_受 & CStr(Ct)
　End If
Next

Crst!報酬 & CStr(Ct)の部分がエラーになります。
ダメなことはわかるのですが、どうすればうまくいくのかがわかりません。

よろしくお願いします。
【8503】Re:フィールド名に含まれた数字を変えたい
回答  まさ7251  - 06/8/23(水) 9:04 -
引用なし
パスワード
   >Crst!報酬 & CStr(Ct)の部分がエラーになります。
>ダメなことはわかるのですが、どうすればうまくいくのかがわかりません。

フィールド名は、報酬1,報酬2・・・のような名前なのでしょうか。
それなら、
Crst("報酬" & CStr(Ct))
で良いかと思います。
【8506】Re:フィールド名に含まれた数字を変えたい
お礼  どらちゃん  - 06/8/23(水) 10:46 -
引用なし
パスワード
   ▼まさ7251 さん：

ありがとうございました！
基本すぎてどこにも載ってないので助かりました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1163 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078214
(SS)C-BOARD v3.8 is Free