• ベストアンサー

Return に対応する GoSub がありません

アクセス2010です フォームを開くと、 Return に対応する GoSub がありません。(Error 3) が表示されます。 このエラーが表示されるコードは Forms(FormName).Caption = Mid(FormName, 2) です。 でも、F8で次のステップへ進めます。 そして次に同じフォームを開くときはこのエラーは発生しません。 こういう事ってあるのですか？

質問者が選んだベストアンサー

  • ベストアンサー
  • nicotinism
  • ベストアンサー率70% (1019/1452)
回答No.1

VBEで、デバッグ→○▽のコンパイル を行ってみる。 /Decompile オプションでファイルを開く。 ↓の#5さんの回答をみて、（mdb、accdbの違いも含めて修正する） http://okwave.jp/qa/q1910185.html それでも効果がなかったら、プロシージャのコードを提示してみてください。

heusvwwfxw
質問者

お礼

ご回答ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Returnに対するGoSubがありません

    さっきまで問題なく仕えていたアクセスファイルを起動したら 「イベント　プロパティに指定した式　アクティブ時でエラーが発生しました:Returnに対するGoSubがありません」 と言うエラーが発生するようになりました。 VBA画面でデバッグをしてみても問題はありません。 何度か閉じて開いてを繰り返していたら、開けました。 でも次開いた時はまた同じエラーが発生しました。 特に何もいじってないのに、エラーになったり普通に開けたりするのはなぜでしょう？

  • Returnに対するGoSubがありません。

    アクセスファイルを立ち上げると毎回 「イベントプロパティに指定した式 読み込み時でエラーが発生しました： Returnに対するGoSubがありません。」 と出ます。 ヘルプの内容は 「このエラーは、 イベントのロジックの場所を評価できないために イベントを実行できなかった場合に発生します。 たとえば、フォームの "OnOpen/開く時" プロパティが =[フィールド] に設定され イベントが開始されたときに、 マクロまたはイベントの名前が実行対象として予期されるため、このエラーが発生します。」 ＯＫボタンを押すとフォームが起動して 普通の使えます。 コードのどこかが間違てるのかな？ と、ＶＢＥ画面で デバッグ→コンパイルをしてみましたが 何もエラーになりません。 でも毎回上記のエラーが出るのですが 原因がわかりません。

  • Access-フォームのCaption変更

    お願い致します。 Access97のフォームのクラスモジュールでCaptionの変更を行うコードを書いたのですが、いまいちうまくいきません。 ご指導お願い致します。 ↓↓↓↓↓↓↓↓↓↓↓↓↓↓ *********************************************** Private sub Form_Load() DoCmd.OpenForm "F_OPEN" Forms!F_OPEN!Msg.Caption="お待ちください" ************************************************ このForms!F_OPEN!Msg.Caption="お待ちください" のところで、エラーメッセージ 「'Item'メソッドは失敗しました:'Forms'オブジェクト」がでてしまうのです。 お願い致します。

  • ACCESS　別フォームから別フォームの処理を

    ACCESSでメインフォームから別フォームを 【メインフォーム】 DoCmd.OpenForm "FM_商品検索", , , , , acWindowNormal 【商品検索フォーム】 検索画面でJANコードを選んだらJANコードをセットして、商品マスタの読込等の処理をしたい Forms!F_仕入!F_仕入sub.Form!JANコード = Me.JANコード ↑これは動く Forms!F_仕入!F_仕入sub.JANコード_BeforeUpdate ↑これがエラーになります 「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」 でエラーになります。 Forms!F_仕入!F_仕入sub.JANコード_BeforeUpdate Public Sub JANコード_BeforeUpdate(Cancel As Integer) 何がおかしいのでしょうか？ 宜しくお願いします

  • 実行時エラー459　withステートメント

    アクセス２０１０をつかっています。 vbaで With Forms("Fフォーム") のように、フォームをwithステートメントでまとめているのですが この部分で、 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1369450963 と同じく、 実行時エラー459「オブジェクトまたはクラスがこのイベントセットをサポートしていません」と表示されてしまいます。 しかし、一度デバッグボタンを押し、再度続行すると、もう同じエラーは発生しません。 だけどファイルを閉じて開き直すと、また同じ部分で同じエラーが発生します。 カレンダーフォームは設置していません。 原因わかる方いらっしゃいますか？

  • なぜエラーになるのでしょう？アクティブコントロール

    ちょっと変なやり方かもしれないのですが、都合上こうやりたいので教えてください。 フォーム1の中にフォーム2を入れてサブフォームとして フォーム2の中にコマンドボタンを一つ置きました。 そのコマンドボタンを押した時に、そのコマンドボタン名を取得したいのですがうまくできません。 フォームは２０個ぐらいあってこれと同じ動きをしたいので、 フォームモジュールには Private Sub コマンド0_Click() Call アクティブコントロール名を取得する End Sub として、 標準モジュールにコードは書いています。 Sub アクティブコントロール名を取得する() Dim フォーム As String フォーム = Screen.ActiveForm.Name MsgBox "アクティブコントロール名" & Forms(フォーム).ActiveControl.Caption End Sub にすると、オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)になります。 そもそも、フォーム = Screen.ActiveForm.Nameの時点で、フォーム1になっています。 実際のコマンドボタンはフォーム2にあるのに。 なので、無理矢理 MsgBox "アクティブコントロール名" & Forms("フォーム2").ActiveControl.Caption にしたら、 実行時エラー2450 マクロの式またはVisualBasicコードで参照されている'フォーム2'が見つかりません。 という違うエラーになりました。 Sub アクティブコントロール名を取得する() Dim フォーム As String フォーム = Screen.ActiveForm.Name Forms("フォーム2").SetFocus MsgBox "アクティブコントロール名" & Forms("フォーム2").ActiveControl.Caption End Sub にすればいいのかな？と思ったら Forms("フォーム2").SetFocusでアウトでした。 もともとはサブフォームのコントロールから発信したイベントなのに、 サブフォームのコントロールの値が取れないのでしょうか？ 実際のmdbファイルではコマンドボタンではなくテキストです。 ご回答よろしくお願いします。

  • アクセスのラベルの背景色が設定できない

    アクセス２０１０なのですが Sub test() Dim FormName As String FormName = "F明細" Forms(FormName).Label_取引日.BackColor = RGB(255, 100, 255) End Sub を実行しても、背景色：色なし のままなのですが、どうやったら設定できるのでしょうか？ ForeColorの設定はvbaで可能でした。よろしくお願いします。

  • ACCESS でCaption実行時エラーになる

    ACCESS2010　VBA にて予定表カレンダーを作成しているのですが フォームのテキストボックス(L0~L36)に日付を代入する際 captionの行のところで エラー483　オブジェクトは、このプロパティまたはメソッドをサポートしていません。 が発生してしまいます。 visibleは動作しているので入力ミスはないとおもうのですが 原因がまったくわかりません。解決策を教えてください。 Set F = Forms![予定表カレンダー] For i = 0 To 36 '曜日数値以下または月の最後の日を超えたなら表示は消す If i < fday Or i > iend Then F(i).Visible = False Else F(i).Caption = dd F(i).Visible = True dd = dd + 1 rstproduct.MoveNext End If

  • ACCESSのエラー

    タイトルのとおりなのですが、突然下記のエラーがでるようになりました。 「イベント　プロパティに指定した式　アクティブ時でエラーが発生しました:Returnに対するGoSubがありません」 エラーの発生するタイミングは、 (1)ACCESS起動時（メインフォーム立ち上がる前）　エラーメッセージに対して「OK」すると 　メインフォームが開きます。 (2)メインフォームから、別のフォームを開こうとすると（Docmd.Openform)エラーメッセージが出て 　フォームが開かない。 なお、メインフォームのプロパティ（アクティブ時）には、下記を書いています。 Public Function サイズ元に戻る() 'フォームを元のサイズに DoCmd.Restore End Function 今日の午前中までは、普通に使えておりました。 モジュール等何も変更はしていません。 また、メインフォームのモジュールを確認すると（Alt＋F11、デザインビューからイベントプロシージャ等）エラーが出なくなります。 ただ単に破損しているだけなのでしょうか？

  • 実行時エラー’2118’

    アクセスｖｂａで いつも問題なく動いているコードなのですが 「実行時エラー’2118’ ”Requery/再クエリ”アクションを実行する前に、カレントフィールドを保存する必要があります。」 というエラーが出ます。 エラーが発生するコードは Forms("フォーム1").Controls("SF").Requery です。 中断中のｖｂｅ画面でctrl+sで保存をしてみたのですが 変わりません。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する