![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
'2465'指定した式で参照している'直線Aii'フィールドが見つかりません。
入力されたテキストDELTUKIをiiにセットして直線Aii~Ciiに反映させたいです。
DELTUKIには0~12までのどれかがセットされて、00の場合には未可視、それ以外は
該当月の直線Aii~Ciiを可視化させたいです。
ですが、上記エラーが発生します。
どなたかご指南頂きたくよろしくお願い致します。
※.メイン画面の画像添付参照願います。
※.vba vb6 winXP
SetLowerLine:
With objrep
!直線103.Visible = True
!直線104.Visible = True
!直線105.Visible = True
!直線106.Visible = True
!直線107.Visible = True
End With
'Reports(stdocname)!直線103.Visible = True
'Reports(stdocname)!直線104.Visible = True
'Reports(stdocname)!直線105.Visible = True
'Reports(stdocname)!直線106.Visible = True
'Reports(stdocname)!直線107.Visible = True
Format ("00")
ii = Forms!メイン画面![テキストDELTUKI]
If ii = "00" Then
Else
objrep.Controls("直線A" & "ii").Visible = True
objrep.Controls("直線B" & "ii").Visible = True
objrep.Controls("直線C" & "ii").Visible = True
End If
No.1ベストアンサー
- 回答日時:
すみません、先日のこちらのご質問での回答者です:
http://oshiete1.goo.ne.jp/qa5770608.html
前回の回答2への補足の件のうち、「(2)」と「(3)」については
結局私では対処法の見当をつけかねたままなのですが(汗)、
本件についてだけはどうにかなりそうなので、回答をつけさせて
戴きます。
・・・というか、前回「"」を外すことを指摘した際に気づいて
いればよかったのですが、これも見落としていました(汗)
以下の部分を、下記のように修正してください。
【現在】
Format ("00")
ii = Forms!メイン画面![テキストDELTUKI]
If ii = "00" Then
Else
objrep.Controls("直線A" & "ii").Visible = True
objrep.Controls("直線B" & "ii").Visible = True
objrep.Controls("直線C" & "ii").Visible = True
End If
【修正】
'変数「ii」に対して、Format関数で桁表示を指定
ii = Format(Forms!メイン画面![テキストDELTUKI], "00")
If ii = "00" Then
Else
'「ii」を変数として使用するため、「"」は外します
objrep.Controls("直線A" & ii).Visible = True
objrep.Controls("直線B" & ii).Visible = True
objrep.Controls("直線C" & ii).Visible = True
End If
・・・以上です。
これで、「テキストDELTUKI」に1桁の数字(「1」や「2」など)を
指定した場合も、「直線A01」や「直線A02」に処理が行われる
ようになると思います。
この回答への補足
msgboxにてstdocnameに'レポート名'が入っているのは分かっていますが、
#errorが表示されてしまうのは何故なのでしょうか?。
ありがとうございます。
'2465'のエラーはなくなりました。
(1)のエラーがなくなったせいか、(2)及び(3)は発生しなくなりました。
ただ、#errorは発生したままです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) EXCELのセル相互同期用のVBAでの不具合 3 2022/08/10 11:44
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) Worksheets メソッドは失敗しました。のエラー処理のやり方 4 2022/05/29 21:29
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- その他(プログラミング・Web制作) VBSでExcelファイル起動時、重複しても開くのを止めたい 1 2022/10/01 23:20
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Access2002_メソッドまたはデータメンバが見つかりません
Access(アクセス)
-
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
Access・VBAで、Controlsを使用した条件式(書き方)
Access(アクセス)
-
-
4
accessVBA 「フォームが見つかりません」
その他(データベース)
-
5
アクセスVBAのMe!と[ ]
Access(アクセス)
-
6
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
-
7
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
8
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
9
Accessフィールドのコントロールソース変更
Access(アクセス)
-
10
Access2013 レポートを印刷するために開いた、レポートビューをVBAで閉じる方法を教えて。
その他(Microsoft Office)
-
11
ACCESS97 実行時エラー '2455'に関して
Access(アクセス)
-
12
ACCESS2003 でクエリの抽出条件に変数を代入したい。
その他(データベース)
-
13
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
14
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
15
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
-
16
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
17
ACCESS フォームサイズ指定で エラー2465
その他(プログラミング・Web制作)
-
18
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
19
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
20
Access VBA エラー2448について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access2000 実行時エラー '3061':
-
変数に256文字以上のテキストを...
-
多言語を混在できるか。
-
テキストボックスの中身をリセ...
-
VBSでMid関数を使ったらエラー...
-
テキストボックスにセルの値を...
-
RPG(AS400)の本、サイトってあ...
-
改行含むテキストの表示の仕方
-
VB6.0 でメニューを作りたいん...
-
タイトルタグとアンカーテキス...
-
シンボル化解除の方法
-
photoshopで書いた四角の枠の中...
-
VBAで改行の入ったデータの正規...
-
VBScriptでMsgBoxのYesNoボック...
-
ActionScriptでプルダウンメニュー
-
else if文の順序を変えることに...
-
【VB.NET】別Formのボタンが押...
-
python ボタンを押すと複数の関...
-
【ExcelVBA】ファイル名をセル...
-
マスクをとるとオーバーフロー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスの中身をリセ...
-
変数に256文字以上のテキストを...
-
テキストボックスにセルの値を...
-
別のアプリケーションのテキス...
-
全てのテキストボックスをセル...
-
'2465'指定した式で参照してい...
-
POIでのテキストボックス作成に...
-
pdfのテキスト全文コピー、テキ...
-
VB6.0 でメニューを作りたいん...
-
Access2000 実行時エラー '3061':
-
VBSでMid関数を使ったらエラー...
-
VB.NET メッセージボックスの表...
-
HTMLのtextbox類に文字を残す
-
RPG(AS400)の本、サイトってあ...
-
VB.NET2005 DataGridViewでレコ...
-
アクセスのフォームから検索を...
-
FLASH上で日数カウントダウン
-
IP Address 入力フォームについて
-
テキストの横移動させて表示
-
テキストエリア内の文字列にリ...
おすすめ情報