![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
'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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
Access2002_メソッドまたはデータメンバが見つかりません
Access(アクセス)
-
accessVBA 「フォームが見つかりません」
その他(データベース)
-
-
4
アクセスVBAのMe!と[ ]
Access(アクセス)
-
5
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
6
Access・VBAで、Controlsを使用した条件式(書き方)
Access(アクセス)
-
7
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
-
8
Accessフィールドのコントロールソース変更
Access(アクセス)
-
9
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
10
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
11
Access2013 レポートを印刷するために開いた、レポートビューをVBAで閉じる方法を教えて。
その他(Microsoft Office)
-
12
Access VBA エラー2448について
Visual Basic(VBA)
-
13
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
14
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
15
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
16
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
17
ACCESS2003 でクエリの抽出条件に変数を代入したい。
その他(データベース)
-
18
アクセスのフィールド表示を2段にする方法・抽出の方法
Access(アクセス)
-
19
「#エラー」の回避
Access(アクセス)
-
20
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF文、条件分岐の整理方法
-
VBAコードのインデント表示
-
時間短縮のために、テキストフ...
-
Excel VBA 選択範囲の罫線色の...
-
マクロの記録を使用したマクロ...
-
VB.net(VB)で、フォームにExcel...
-
IEを使わないでhtmlテキストを...
-
Excelセルに入力された文字の色...
-
VBAなくなるの?
-
【ExcelVBA】値を変更しながら...
-
VBA 別ブックから条件に合うも...
-
VBAの質問です、複数のテキスト...
-
エクセルのマクロについて教え...
-
ワードVBA どの表か知ることは...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
エクセルのVBAコードについて教...
-
エクセルのマクロについて教え...
-
ExcelVBA修正のお願い
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキストボックスの中身をリセ...
-
変数に256文字以上のテキストを...
-
テキストボックスにセルの値を...
-
別のアプリケーションのテキス...
-
全てのテキストボックスをセル...
-
'2465'指定した式で参照してい...
-
POIでのテキストボックス作成に...
-
VB6.0 でメニューを作りたいん...
-
pdfのテキスト全文コピー、テキ...
-
Access2000 実行時エラー '3061':
-
VBSでMid関数を使ったらエラー...
-
VB.NET メッセージボックスの表...
-
HTMLのtextbox類に文字を残す
-
RPG(AS400)の本、サイトってあ...
-
VB.NET2005 DataGridViewでレコ...
-
テキストの横移動させて表示
-
アクセスのフォームから検索を...
-
FLASH上で日数カウントダウン
-
IP Address 入力フォームについて
-
Flash 暗号装置の作り方
おすすめ情報