'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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
accessVBA 「フォームが見つかりません」
その他(データベース)
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
vbaレポート名の指定が間違っている!。
Visual Basic(VBA)
-
-
4
アクセスVBAのMe!と[ ]
Access(アクセス)
-
5
Access2002_メソッドまたはデータメンバが見つかりません
Access(アクセス)
-
6
Accessフィールドのコントロールソース変更
Access(アクセス)
-
7
Access2013 レポートを印刷するために開いた、レポートビューをVBAで閉じる方法を教えて。
その他(Microsoft Office)
-
8
Accessでフォームから別フォームのテキストボックスの値を設定する
Visual Basic(VBA)
-
9
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
10
ACCESS レポートでグループごとのページ数表示
その他(データベース)
-
11
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
12
Access ¥マークを表示しない
Excel(エクセル)
-
13
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
14
ACCESS2003 でクエリの抽出条件に変数を代入したい。
その他(データベース)
-
15
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
-
16
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
-
17
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
18
Access2010 「演算子がありません」エラー
その他(データベース)
-
19
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
20
レコードを保存するコード アクセスvba
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストエリア内の文字列にリ...
-
テキストボックスにセルの値を...
-
VB.NET メッセージボックスの表...
-
リッチテキストとHTMLの違いに...
-
別のアプリケーションのテキス...
-
アクセスのフォームから検索を...
-
FlashからHTMLテキストフィール...
-
改行含むテキストの表示の仕方
-
外部テキストから読み込んだ引...
-
2つのテキストファイルを比べて...
-
プログラミング、アーキテクチ...
-
ipconfig /releaseって何ですか?
-
ダブルクリックと2回クリックの...
-
【ExcelVBA】ファイル名をセル...
-
Pythonのtkinterについて
-
photoshopで書いた四角の枠の中...
-
VBAユーザーホームテキストボッ...
-
Flashの3Dメニューの視点を変え...
-
VB6.0で、フォームから、別のフ...
-
PYTHONのtkinterについて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のアプリケーションのテキス...
-
テキストボックスの中身をリセ...
-
テキストボックスにセルの値を...
-
RPG(AS400)の本、サイトってあ...
-
変数に256文字以上のテキストを...
-
ホームぺージ制作で間違って重...
-
VB6.0 でメニューを作りたいん...
-
改行含むテキストの表示の仕方
-
pdfのテキスト全文コピー、テキ...
-
VB.NET2005 DataGridViewでレコ...
-
コモンダイアログのshowopenに...
-
VBAでホームページからコピーし...
-
テキストエリア内の文字列にリ...
-
VBAからPDFのテキストフィールド
-
VS2008 C# ボタンのテキストを...
-
'2465'指定した式で参照してい...
-
ドラッグ&ドロップからの取得
-
VB.NET メッセージボックスの表...
-
VBSでMid関数を使ったらエラー...
-
空白で入力フォームのボタンを...
おすすめ情報