'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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
accessVBA 「フォームが見つかりません」
その他(データベース)
-
vbaレポート名の指定が間違っている!。
Visual Basic(VBA)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
-
4
Access2002_メソッドまたはデータメンバが見つかりません
Access(アクセス)
-
5
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
6
Accessフィールドのコントロールソース変更
Access(アクセス)
-
7
Accessでフォームから別フォームのテキストボックスの値を設定する
Visual Basic(VBA)
-
8
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
9
ACCESS レポートでグループごとのページ数表示
その他(データベース)
-
10
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
11
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
12
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
-
13
Access ¥マークを表示しない
Excel(エクセル)
-
14
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
15
ACCESS2003 でクエリの抽出条件に変数を代入したい。
その他(データベース)
-
16
Access2010 「演算子がありません」エラー
その他(データベース)
-
17
Accessのテーブルを開いたときに最後のレコードを表示させたい
Access(アクセス)
-
18
親フォームからサブフォームのレコードソースを設定
Access(アクセス)
-
19
「メソッドまたはデータメンバが見つかりません。」というエラーが出ます。
その他(データベース)
-
20
ACCESS フォームサイズ指定で エラー2465
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ドラッグ&ドロップからの取得
-
VS2008 C# ボタンのテキストを...
-
テキストボックスの中身をリセ...
-
PythonのTkinterイベントについて
-
変数に256文字以上のテキストを...
-
テキストボックスにセルの値を...
-
テキスト内の重複文字検索
-
VBAからPDFのテキストフィールド
-
RPG(AS400)の本、サイトってあ...
-
stringのデータ型はメモ型とテ...
-
Flashのテキストボックスの「単...
-
VBAでホームページからコピーし...
-
漢字入力した値のカタカナ変換...
-
ホームぺージ制作で間違って重...
-
タイトルタグとアンカーテキス...
-
photoshopで書いた四角の枠の中...
-
YOASOBI
-
【Photoshop】レイヤー効果の境...
-
python ボタンを押すと複数の関...
-
VBScriptでMsgBoxのYesNoボック...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
RPG(AS400)の本、サイトってあ...
-
別のアプリケーションのテキス...
-
テキストボックスの中身をリセ...
-
ホームぺージ制作で間違って重...
-
テキストボックスにセルの値を...
-
コモンダイアログのshowopenに...
-
全てのテキストボックスをセル...
-
漢字入力した値のカタカナ変換...
-
変数に256文字以上のテキストを...
-
VB6.0 でメニューを作りたいん...
-
VB.NET2005 DataGridViewでレコ...
-
DelphiのRichEditでカーソル位...
-
VBSでMid関数を使ったらエラー...
-
MFCのスタティックテキストのコ...
-
改行含むテキストの表示の仕方
-
テキストエリア内の文字列にリ...
-
チェックボックスのテキストを...
-
VB.NETで数十行のプログラムを...
-
HTMLのtextbox類に文字を残す
-
VBのチェックボックス
おすすめ情報