お世話になっております。
先ほどまで、違うスレで質問していたものです。
おかげさまで、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)
-
Access 2010で実行時エラー3061
その他(Microsoft Office)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
-
4
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
5
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
6
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
7
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
8
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
9
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
10
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
11
テキストボックスに入れた内容をAccessのテーブルに登録する方法を教えてください。
Visual Basic(VBA)
-
12
ACCESSフォーム入力後の確定
Access(アクセス)
-
13
ACCESS VBAでインポート定義の場所
Access(アクセス)
-
14
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
15
アクセスでエクセルに出力する際のファイル名を日付に
その他(Microsoft Office)
-
16
access2003 クエリSQL文について
その他(プログラミング・Web制作)
-
17
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
VB6+SQL サーバー 2000 で 実行...
-
VBAがブレークモードになっ...
-
EXCEL/VBAで、自分のPCだけエラ...
-
実行時エラー48発生時のDLL特定...
-
VBS シートをコピーして別のブ...
-
UWSCのビジー待ちで60秒経った...
-
SQL文をVBAで流すと「型...
-
Application.ActiveInspectorで...
-
AccessVBAでExcelを起動し、罫...
-
ACCESSのエラーで困っています
-
マクロについて教えてください...
-
職場から目的地までの距離集計
-
'Speak'メソッドは失敗しました
-
アクセス 実行時エラー3265
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
【Excel VBA】マクロをボタンに...
-
VBAでのエラー
-
マクロについて教えてください...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
VBS実行時エラー オブジェクト...
-
EXCEL VBAマクロ中断でデバッグ...
-
Outlook.ApplicationをCreateOb...
-
VBSで変数の宣言はできないので...
-
VBAのコードがエラーになっ...
-
実行時エラー -'-2147417848
-
ADODB.Streamを使用してUTF-8を...
-
EXCEL/VBAで、自分のPCだけエラ...
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
VB6+SQL サーバー 2000 で 実行...
おすすめ情報