『ボヘミアン・ラプソディ』はなぜ人々を魅了したのか >>

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

解決済

  • 質問日時：
  • 回答数：2件

さっきまで問題なく仕えていたアクセスファイルを起動したら
「イベント　プロパティに指定した式　アクティブ時でエラーが発生しました:Returnに対するGoSubがありません」
と言うエラーが発生するようになりました。

VBA画面でデバッグをしてみても問題はありません。

何度か閉じて開いてを繰り返していたら、開けました。
でも次開いた時はまた同じエラーが発生しました。

特に何もいじってないのに、エラーになったり普通に開けたりするのはなぜでしょう？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

このQ&Aに関連する最新のQ&A

「VBA イベント」に関するQ&A： VBAから変更した時だけイベントを発生させない方法

A 回答 (2件)

No.1ベストアンサー

  • 回答日時：

＞何度か閉じて開いてを繰り返していたら、開けました。


＞でも次開いた時はまた同じエラーが発生しました。

データの内容が変わったのではありませんか
IF文が含まれていませんか

不明でしたら
エラー発生点前後のPrivateSub()からEnd Sub までの命令文を補足して下さい。
    • good
    • 1
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2013/12/31 10:58

No.2

  • 回答日時：

ファイルが壊れかかっているのかもしれませんね。


新規ファイルを作成して旧ファイルからすべてインポート。
VBA でコンパイルが通るか確認。
「最適化」も行ってみてください。

あと、
「名前の自動修正」が余計なことまで首を突っ込んでしまって
エラーの引き金になる場合もあります。
問題の切り分けがし難くなるので切っておきましょう。
http://office.microsoft.com/ja-jp/access-help/HA …

それでも解決しないのなら
その問題のプロシージャやそこからCallしているものも含めて
提示する必要があるかと思います。
    • good
    • 2
    • 件
通報する
この回答へのお礼

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

通報する
お礼日時：2013/12/31 10:58

このQ&Aに関連する人気のQ&A

「VBA イベント」に関するQ&A： DoEvents関数って何？

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

ピックアップおすすめ記事

関連するQ&A

関連するカテゴリからQ&Aを探す

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

Q質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

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

アクセス2010です

フォームを開くと、
Return に対応する GoSub がありません。(Error 3)
が表示されます。

このエラーが表示されるコードは

Forms(FormName).Caption = Mid(FormName, 2)
です。

でも、F8で次のステップへ進めます。
そして次に同じフォームを開くときはこのエラーは発生しません。

こういう事ってあるのですか？

Aベストアンサー

VBEで、デバッグ→○▽のコンパイル を行ってみる。
/Decompile オプションでファイルを開く。
↓の#5さんの回答をみて、（mdb、accdbの違いも含めて修正する）
http://oshiete.goo.ne.jp/qa/1910185.html

それでも効果がなかったら、プロシージャのコードを提示してみてください。

他の回答も見る

QAccessのRefresh・Requery・Repaintの違い

Requeryはもう一度ソースレコード（テーブル）を読み込むようです。このとき、テーブルの先頭レコードに移動してしまいます。
Refreshは最新のレコード（テーブル）を再表示するような気がします。レコードの移動は起こらない気がします。
Repaintは、VBAでキャプションなどを変更したとき使っています。
でも、よくわかっていません。
どんなときにどんなメソッドを使えばいいのでしょうか？
詳しい方、よろしくお願いいたします。

Aベストアンサー

たびたびすみません。
調べてたらこんなのがでてきました。
http://www.nurs.or.jp/~ppoy/access/access/acF007.html

参考URL：http://www.nurs.or.jp/~ppoy/access/access/acF007.html

他の回答も見る

QAccessで別テーブルの値をフォームに表示したい

初めてのＡｃｃｅｓｓで分からない事があり質問させてください。

＜会社テーブル＞
会社ID
会社名
住所

＜社員テーブル＞
会社ＩＤ
社員名
ソート番号

＊1社に対し複数の社員レコードが存在

以上のようなテーブルがあるとします

現在「会社テーブル」を表形式で一覧表示しています
会社ＩＤ，会社名、住所とフィールドが並んでいるのですが、その後ろに「社員テーブル」のソート番号が一番若い社員名を表示したいと考えています（現状は番号関係なく表示させる方法すら分かりません）

色々いじくりまわしたのですが、初めてＡｃｃｅｓｓをさわる事もあってよくわかりません

リレーション等でひっぱってくる事ができるのでしょうか？

どなたか教えて頂けませんでしょうか

何卒よろしくお願い致します

ＰＳ．Ａｃｃｅｓｓ2013で作成中です

Aベストアンサー

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

１、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FROM 社員
ORDER BY 社員.ソート番号;

２、コントロールソースに次のように書きます。

=DLookUp("社員名","社員ソートクエリ","会社ID=" & [会社ID])

http://office.microsoft.com/ja-jp/access-help/HA001228825.aspx

DLookup()については、マイクロソフトの解説を参照されてください。

【DLookup()の限界を破るにはVBAで同じ関数を作るしかない】

マイクロソフトの解説を読めば判りますが、ORDER BY 節を指定する引数が用意されていません。ですから、どうしても、"社員ソートクエリ"を作成するという手間が必要となります。そこで、SQL文を引数とするDBLookup()をVBAで書けば、その手間を省けるという算段になります。この辺りは、好みと趣味の問題。どっちでも良いと思います。そういうお断りをした上で DBLookup()を紹介しておきます。なお、ADOは、つぎのように参照設定しないと利用できません。

http://www.happy2-island.com/access/gogo03/capter00307.shtml

Public Function DBLookup(ByVal strQuerySQL As String, _
　　　　　　　　　　　　　Optional ByVal ReturnValue = Null) As Variant
On Error GoTo Err_DBLookup
　　Dim DataValue
　　Dim rst　　　　 As ADODB.Recordset

　　Set rst = New ADODB.Recordset
　　With rst
　　　　.Open strQuerySQL, _
　　　　　　　CurrentProject.Connection, _
　　　　　　　adOpenStatic, _
　　　　　　　adLockReadOnly
　　　　If Not .BOF Then
　　　　　　.MoveFirst
　　　　　　DataValue = .Fields(0)
　　　　End If
　　End With
Exit_DBLookup:
On Error Resume Next
　　rst.Close
　　Set rst = Nothing
　　DBLookup = IIf(Len(DataValue & ""), DataValue, ReturnValue)
　　Exit Function
Err_DBLookup:
　　MsgBox "SELECT 文の実行時にエラーが発生しました。(DBLookup)" & Chr$(13) & Chr$(13) & _
　　　　　 "・Err.Description=" & Err.Description & Chr$(13) & _
　　　　　 "・SQL Text=" & strQuerySQL, _
　　　　　 vbExclamation, " 関数エラーメッセージ"
　　Resume Exit_DBLookup
End Function

単純にテーブル[会社]のみでフォームを作成し、社員表示用テキストボックスを追加。そして、そのプロパティを表示し

コントロールソース=DBLookup("SELECT 社員名 FROM 社員 WHERE 会社ID=" & [会社ID] & " ORDER BY ソート番号")

これは、以下の標準モジュールに登録したユーザ関数 DBLookup()を使っています。これで、クエリを用意しなくても目的を達成できます。

さて、かかるユーザ関数を標準ライブラリに登録したくない場合、

１、"社員ソートクエリ"を作成します。

SELECT 社員.会社ID, 社員.社員名
FR...続きを読む

他の回答も見る

Qアクセスのファイルが壊れた!!!!!!

ファイルを開こうとしたらファイルの破損とメッセージが出て、最適化/修復も出来ません。でもどうしてもこのファイルを復活させたいのですが、どうしたらよいのでしょうか・・・。

Aベストアンサー

他のmdbで損傷したmdbからインポートできない場合。
コマンドで最適化とデコンパイルしてみてください。
[スタート]→[ファイル名を指定して実行]でAccessのexeフルパスとコマンドを入力しＯＫボタンで実行してみてください。
AccessのexeはAccess2003の場合はC:\Program Files\Microsoft Office\OFFICE11にAccessのexeがあるので下記のように入力してコピぺでも良いです。2003で無い場合は\Microsoft Officeのホルダの中に\OFFICE9とかの中にあります。
最適化は
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\フルパス\ファイル名.mdb" /compact
デコンパイルは
"C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE" "C:\フルパス\ファイル名.mdb" /decompile
これでOKボタンで最適化とデコンパイルが実行できます。
""も全て必要です。""と""の間はスペース入ります。
最適化コマンドとデコンパイルコマンドが通れば開くかインポートできるようになると思います。

他のmdbで損傷したmdbからインポートできない場合。
コマンドで最適化とデコンパイルしてみてください。
[スタート]→[ファイル名を指定して実行]でAccessのexeフルパスとコマンドを入力しＯＫボタンで実行してみてください。
AccessのexeはAccess2003の場合はC:\Program Files\Microsoft Office\OFFICE11にAccessのexeがあるので下記のように入力してコピぺでも良いです。2003で無い場合は\Microsoft Officeのホルダの中に\OFFICE9とかの中にあります。
最適化は
"C:\Program Files\Microsoft Office\OFFICE1...続きを読む

他の回答も見る

QACCESS　IIF関数　複数条件の設定について

　選択クエリにおいて、あるフィールド「 X」 のレコード数値が
　
　　0＜[X]＜＝50　　　であれば　A　
　　50＜[X]＜＝100　　であれば　B　
　　100＜[X]＜＝150　　であれば　C

　と表記させるフィールド「Y」を追加したいと考えています。
　この場合、Yのフィールド設定で指定する数式についてご教授願います。

　一応、
　 IIf(0<[X]<=50,"A","") Or IIf(50<[X]<=100,"B","") Or IIf(100<[X]<=150,"C","")

　　としましたが、実行すると、Yの列がすべて「-1」と表記されてしまいます。

　何卒よろしくお願いいたします。

Aベストアンサー

a)IIF関数で対応する場合：
　IIF関数の第2引数または第3引数に、IIF関数を入れ子とする必要があります。

式: IIF([X]<=0, "", IIF([X]<=50, "A", IIF([X]<=100, "B", IIF([X]<=150, "C", ""))))


b)別の組込関数を使用する場合：
　IIF関数は二択ですので入れ子にする必要がありますが、Accessのクエリで
　使用できる、似た機能の関数に、Switch関数というものもあります。
　これであれば、入れ子にする必要がなくなります。
　(詳しくは、Accessのヘルプを参照下さい)

式: Switch([X]<=0, "", [X]<=50, "A", [X]<=100, "B", [X]<=150, "C", True, "")


なお、数学あるいは一般生活では確かに「0<[X]<=50」という表記をしますが、
Accessの関数などではこれだと正しい結果が得られません。
正しく認識させるためには、等号・不等号を挟んだ式は、「左辺」と「右辺」の
2つの要素からなる形にする必要があります。
(「0<[X]<=50」は「[X]>0 And [X]>=50」と分割してやる、と)

但し、今回のご質問のような『連続した範囲』であれば、前(左)で既出となる
式の要素で「[X]<=0」が「真(=-1)」とならなかった時点で、「[X]>0」が保証
されますので、上記のように、「[X]>0」を省略して「[X]<=50」だけを条件として
指定すればOk、ということになります。
(「0<[X]<=50」の次が「80<[X]<120」などのように、「50～80」が欠けた
　場合は、省略ができない、と)


【参考】
「0<[X]<=50」は、このままだと「0 < ([X]<=50)」という式と解釈されます。
この場合、「[X]<=50」は、「真(=-1)」か「偽(=0)」か「Null」のいずれかに
なります。
何にせよ、「0<[X]<=50」全体として「正(=-1)」となることがないため、
ご質問の式では、IIF関数は常に第3引数に指定された値「""」を返す
ことになります。

この結果、式全体としては「"" Or "" Or ""」という形となり、「0かNull」
以外なので、「真(=-1)」という値が返された、ということです。

なお、Nullについては、以前、他の方の質問につけた回答も、併せて参考までに：
http://oshiete.goo.ne.jp/qa/4850675.html

a)IIF関数で対応する場合：
　IIF関数の第2引数または第3引数に、IIF関数を入れ子とする必要があります。

式: IIF([X]<=0, "", IIF([X]<=50, "A", IIF([X]<=100, "B", IIF([X]<=150, "C", ""))))


b)別の組込関数を使用する場合：
　IIF関数は二択ですので入れ子にする必要がありますが、Accessのクエリで
　使用できる、似た機能の関数に、Switch関数というものもあります。
　これであれば、入れ子にする必要がなくなります。
　(詳しくは、Accessのヘルプを参照下さい)

式: Switch([X]<=0, "", [X]<=50, "A"...続きを読む

他の回答も見る

QACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ

ACCESSで空白のデーターをクエリで判定/識別する方法を教えてください。
EXCELでは空白を""で判定/識別表していますがACCESSではどうなるのでしょうか。

下の例はフィールドに試験番号があればその番号を、空白なら”欠席”と表示しようとしています。
IIf(([試験番号]="空白の場合何を入れる？"),[試験番号],"欠席")

Aベストアンサー

もうひとつの書き方は
式1: IIf([試験番号] Is Not Null,[試験番号],"欠席")
第２、第３引数の、質問の順序にあわせるとこうなる。

他の回答も見る

Q【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには

バージョン：Access2002

フォーム「frm01」にテキストボックス「tb01」が作ってある場合、
Forms.frm01.tb01.Value="あいう"
とすれば、フォームもコントロールも指定できるのですが、
Dim strTxt As String
strTxt = "tb01"
Forms.frm01.strTxt.Value="あいう"
だと、文字列型変数"strTxt"が展開されないのでフォーム「frm01」のコントロール「strTxt」を探してしまいエラーになってしまいます。

文字列型変数でフォームやコントロールを指定するには、どのようにすればよいのでしょうか？

Aベストアンサー

フォームの場合
　Forms(strFrm)

フォームのコントロールの場合
　Forms(strFrm).Controls(strTxt)


これでも参照できますが、普通ここまで省略しませんね。
　Forms(strFrm)(strTxt)

あとで見たとき、訳がわからなくなりそう。

他の回答も見る

QAccess サブフォームでの選択行の取得

こんにちは。

Access初心者です。

サブフォームでテーブルの項目を表示させていますが、
選択された行を取得する方法はありますか？
サボフォームの下の方に現在選択されているレコード数が表示されてますが、その値でかまいません。

調べているのですが、なかなか検討がつきません。
宜しくお願い致します。

Aベストアンサー

フォーム名がフォーム1、サブフォームコントロールの名前がサブフォーム1だとすると、

Forms!フォーム1!サブフォーム1.Form.CurrentRecord

で取得できます。
(「Forms」と「Form」がありますのでご注意下さい)


また、フォーム1にコードを記述する場合であれば

Me!サブフォーム1.Form.CurrentRecord

サブフォーム1へのコード記述であれば

Me.CurrentRecord

という構文によっても、それぞれ取得が可能です。

他の回答も見る

QACCESSでフォームを使って、テーブルを参照、データ入力、データ更新をしたいのです

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

　ID　　　商品コード　　日付　　　　金額　
　1　　　　G1　　　　　20080101　　532153
　2　　　　G1　　　　　20080101　　564281
　3　　　　G1　　　　　20080301　　538123
　4　　　　J4　　　　　20080301　　124531
　5　　　　J4　　　　　20080302　　125483

ID：オートナンバー　商品コード：数値型　日付：数値型　金額：数値型

これを使い、
フォームではまず

レコードナンバーを入力画面
　　　　　　　↓
レコード番号を入れると、そのレコードのデーターが画面に表示され、
その画面で修正可能
　　　　　　　↓
　保存　ボタンで保存

という流れです。

レコードナンバーはIDを使おうと思っています。

データの量が莫大な為、コンポボックスなどは使えません。

できるだけ、VBAなどは使わずに作りたいです。

よろしくお願い致します。

フォームを使って、テーブルを参照、データ入力、データ更新をしたいのです。

売上テーブル

　ID　　　商品コード　　日付　　　　金額　
　1　　　　G1　　　　　20080101　　532153
　2　　　　G1　　　　　20080101　　564281
　3　　　　G1　　　　　20080301　　538123
　4　　　　J4　　　　　20080301　　124531
　5　　　　J4　　　　　20080302　　125483

ID：オートナンバー　商品コード：数値型　日付：数値型　金額：数値型

これを使い、
フォームではまず

レコードナンバーを入...続きを読む

Aベストアンサー

まずそのテーブルを基にしてフォームを作成します。
そのフォームのヘッダー部分にテキストボックスを配置後、一旦
上書き保存。
フォームのレコードソースを
SELECT *
FROM テーブル名 WHERE ID=[Forms]![フォーム名]![テキストボックス名]
とします。
次にテキストボックスの更新後処理に
Me.Requery
とすれば完成です。
フォームを開いてテキストボックスにID入力後エンターしてください。

保存に関しては、コマンドボタン作成後クリック時イベントに
DoCmd.RunCommand acCmdSaveRecord
とすれば良いでしょう。

この手のモノは検索すれば相当数ヒットするので、そちらを参考にされるのもよろしいかと。

他の回答も見る

QアクセスVBAのMe!と[ ]

基本的なことですみません。

アクセスのイベントプロシージャで、Me!ってありますけど、これはどういう意味なんでしょうか？

また、Me!の後に、Me!.～～と書く場合と、Me!.[～～]と書く場合がありますが、どこが違うのでしょうか？

Aベストアンサー

>プロシージャ内で[]を使う場合は、そのフォーム外のオブジェクトを使う場合と考えてよろしいでしょうか？
別のオブジェクトを使う場合だけではありません。
Hensu = Me![Text1]のようにHensuという変数に自身のTest1の値を代入する場合のように。
[]で括られているのがオブジェクト名やコントロール名だよという事。
クエリの抽出条件に存在しない[？]とすれば？というコントロール等が参照できないので？というダイアログが表示されるように？というオブジェクトやコントロールは何？と聞いてくるように。
>フォーム内のオブジェクトの場合はあくまでMe!で良いのでしょうか
Forms.[フォーム名]![コントロール名]やForms![フォーム名]![コントロール名]が構文。
アクティブなフォームが自分自身ならForms![フォーム名]の変わりにMeでもOKですという事。

と言う解釈の方が良いと思います。

他の回答も見る
ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報