お世話になっております。
先ほどまで、違うスレで質問していたものです。
おかげさまで、Private Sub scdSelect()のようなコードとなり、
こちらの方は無事動作しましたが、それをコピーして、
Private Sub denbanSelect()を作成すると、実行時エラー3265が
発生しました。
なぜエラーが発生するのか、検討もつきません。
何かほかに前提条件があるのでしょうか?
各サブフォームのイミディエイトウインドウで
?me.parent.openargs とすると、しっかりと引数は入っております。
教えて君で申し訳ありませんが、どなたご教授よろしくお願いします。
★呼び出し元フォーム
Private Sub cmdSeekDenban_Click()
DoCmd.OpenForm "resultJDenban", , , , , , Me.Name & ".resultViewJyutyuDenban"
End Sub
Private Sub cmdSeek_Click()
DoCmd.OpenForm "resultScd", , , , , , Me.Name & ".resultViewJyutyu"
End Sub
Public Sub resultViewJyutyu()
☆結果の表示(商品コード検索用)
end sub
Public Sub resultViewJyutyuDenban()
☆結果の表示(伝票番号検索用)
end sub
★検索画面 商品コード用 サブフォーム
Private Sub 商品コード_DblClick(Cancel As Integer)
Call scdSelect
End Sub
Private Sub scdSelect()
Dim Pos
Dim MyFrm
Dim ProcName
Pos = InStr(Me.Parent.OpenArgs, ".")
Set MyFrm = Forms(Left(Me.Parent.OpenArgs, Pos - 1))
ProcName = Right(Me.Parent.OpenArgs, Len(Me.Parent.OpenArgs) - Pos)
MyFrm.txtScd.Value = 商品コード.Value
MyFrm.txtEdaban.Value = 枝番.Value
DoCmd.Close acForm, "resultScd", acSaveNo
CallByName MyFrm, ProcName, VbMethod
End Sub
★検索画面 受注伝票番号用 サブフォーム
Private Sub 商品CD_DblClick(Cancel As Integer)
Call denbanSelect
End Sub
Private Sub denbanSelect()
Dim Pos
Dim MyFrm
Dim ProcName
Pos = InStr(Me.Parent.OpenArgs, ".")
Set MyFrm = Forms(Left(Me.Parent.OpenArgs, Pos - 1))
ProcName = Right(Me.Parent.OpenArgs, Len(Me.Parent.OpenArgs) - Pos)
MyFrm.txtDenban.Value = 伝票番号.Value
CallByName MyFrm, ProcName, VbMethod ←エラー発生★★★
DoCmd.Close acForm, "resultJDenban", acSaveNo
End Sub
エラー内容
実行時エラー '3265'
アプリケーション定義またはオブジェクト定義エラーです。
No.1ベストアンサー
- 回答日時:
よく分かりませんが
Private Sub scdSelect()
と
Private Sub denbanSelect()
で
DoCmd.Close acForm, "resultScd", acSaveNo
CallByName MyFrm, ProcName, VbMethod
と
CallByName MyFrm, ProcName, VbMethod
DoCmd.Close acForm, "resultJDenban", acSaveNo
と位置関係が違いますがどうなんでしょう…
アクセスは、エラーが出てデバッグで選択される行に原因があるとは限らないことがわりとありますので、そこばかり注視してると全然違うところでおかしかったりします。
Left(Me.Parent.OpenArgs, Pos - 1)
や
ProcName
の中身も確認してみてください。
ちなみに★検索画面 商品コード用 サブフォームのほうではエラーはでないのでしょうか
この回答への補足
アクセスは、エラーが出てデバッグで選択される行に原因があるとは限らないことがわりとありますので、そこばかり注視してると全然違うところでおかしかったりします。
が解決策でした。
いろいろとコードをいじっているうちに、変えてしまっていて、
それの検証ができてなかったのが最大の原因でした。
お恥ずかしい話です。以後は、気をつけます。
kmetuさま
たびたびありがとうございます!
本当に感謝します。
位置関係は、変えても結果に変わりはありません。
下記は、イミディエイトウインドウの結果です。
?Left(Me.Parent.OpenArgs, Pos - 1)
frmJyutyu
?procname
resultViewJyutyuDenban
>ちなみに★検索画面 商品コード用 サブフォームのほうではエラーはでないのでしょうか
こちらは、前回教えていただいたとおりに記述して、問題なく実行されました。
>アクセスは、エラーが出てデバッグで選択される行に原因があるとは限らないことがわりとあります
ですよね。それで、変数宣言してないのが原因だととOption Explicitをいれてみたり・・・
再起動してみたりと、していますが・・・
いろいろとやっていますが、まだ解決できていません。
No.2
- 回答日時:
どちらも代入部分を除いてまったく同じですね、なのに片方だけとなると
MyFrm.txtDenban.Value = 伝票番号.Value
をコメントにしてみて確認するとか…
もしかしてtxtDenbanというフィールドがないとか、タイプミスでちょっと違ったとかだと話は早いのですが…
この回答への補足
kmetuさま
昨日は大変お世話になりました。
おかげさまで、無事解決しました。
原因は、呼び出される側のプロシージャーでエラーが発生していたこと。
コピーペーストで作成したプロシージャーに不要なコードが記述されており、
それを消去すると無事とおりました。
従いまして、ご教授いただいたコードは完璧でした。
昨日はすっきり寝れませんでしたが、今日はようやく寝れそうです。
最後までお付き合いくださいまして、ありがとうございました。
遅くに返信ありがとうございます。
txtDenbanというフィールドは存在します。
MyFrm.txtDenban.Value = 伝票番号.Value はコメントアウトしても
結果は変わりません。
MACのFUSIONにWIN7を入れて、アクセス2013をいれて作成していましたが、
レッツノートのwin7のアクセス2013に移してみても同様の結果でした。
伝票番号の検索画面を1から作成しなおしてみます。
どこかでなにかが・・・無いと思ってますが、念のため。
遅くまでありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
ADO VBA 実行時エラー3021
Visual Basic(VBA)
-
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
-
4
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
5
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
6
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
7
access別のテーブルを参照してテキストボックスに値を表示、編集したい
Access(アクセス)
-
8
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
9
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
10
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
11
Accessのフィールド名に半角括弧を使ってしまった
Visual Basic(VBA)
-
12
VB6+SQL サーバー 2000 で 実行時エラー '3704' がでます:
Visual Basic(VBA)
-
13
このオブジェクトに値を代入することはできません
その他(データベース)
-
14
Access 複数フォームを開き、画面の最上面にしたいフォームをコント
その他(データベース)
-
15
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
16
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
17
Access パラメータクエリーをVBAで実行
その他(プログラミング・Web制作)
-
18
アクセス フォームをリクエリしたい
Access(アクセス)
-
19
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
20
アクセス 壊れた? 「ファイルが見つかりません」
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
マクロについて教えてください...
-
日本語環境下で作成したマクロ...
-
【Excel VBA】マクロをボタンに...
-
「コンパイルエラー:プロシー...
-
プロシージャの呼び出し、また...
-
エクセルVBAで以下のようなコー...
-
Access2000での未定義関数repla...
-
VBS実行時エラー オブジェクト...
-
VB6+SQL サーバー 2000 で 実行...
-
エラー1004 PDFの保存ができま...
-
【VBA】ボタンに登録したマクロ...
-
アクセス 実行時エラー3265
-
C++Builder 6 : TListView でエ...
-
【VBA-AC2000】カレントプロシ...
-
実行エラー9 インデックスが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
実行時エラー -'-2147417848
-
マクロについて教えてください...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
OLEDB.NETで接続できない
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
ADODB.Streamを使用してUTF-8を...
-
VBS実行時エラー オブジェクト...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
なぜエラーになるのでしょうか...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
Application.ActiveInspectorで...
-
Excelで下記のようにマクロを作...
おすすめ情報