アクセス 実行時エラー3265
お世話になっております。
先ほどまで、違うスレで質問していたものです。
おかげさまで、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'
アプリケーション定義またはオブジェクト定義エラーです。
補足
回答有難うございます。 エラートラップや不要なルーチンは全て削除したうえで、このエラーが出るのです。 ちなみにデバッグ中断時に Rtrim のある行が反転されています。 以前、雑誌記事だったか、どこかの掲示板だったかで見かけたのですが、 VBAの参照設定の誤動作等で、こういったケースが出るような事を読んだ覚えもあるので、同じような経験されている方がいらっしゃらないかと思いまして・・・。 その場合、アクセスのアンインストール&再インストールで復帰できるような事だったような気がするのですが、今回はそれも通用しませんでした。