ACCESS ユーザー定義関数の設定方法について教えてください

このQ&Aのポイント
  • データベースが破損し、新しいデータベースにクエリ・フォーム等をインポートしました。破損する前のデータベースでは、メインフォームの「プロパティ」の「アクティブ時」に =サイズ元にもどる() と記述し、標準モジュールに Public Function サイズ元に戻る() として使用しておりました。しかし、インポート後にエラーが発生し、イベントプロパティに指定した式「アクティブ時」で指定した関数名が見つからないというエラーが出ました。
  • 現在は、プロパティの=サイズ元にもどる()を削除し、イベントプロシージャに直接記述することで問題なく動作しています。ただし、他のフォームでも同様の方法を使用しているため、この方法での復旧方法を探しています。
  • ACCESSのユーザー定義関数の設定方法について、急いで質問しましたので、質問内容が支離滅裂かもしれませんが、何卒よろしくお願いいたします。
回答を見る
  • ベストアンサー

ACCESS ユーザー定義関数の設定?

非常に困っております。 データベースが破損し、新しいデータベースにクエリ・フォーム等をインポートしました。 破損する前のデータベースでは、メインフォームの「プロパティ」の「アクティブ時」に =サイズ元にもどる() と記述し、標準モジュールに Public Function サイズ元に戻る() 'フォームを元のサイズに DoCmd.Restore End Function として使用しておりました。 が、インポート後下記のようなエラーがでるようになりました。 イベントプロパティに指定した式 アクティブ時 でエラーが発生しました 指定した式に、Microsoft Accessが見つけることができない関数名が含まれています。 プロパティの =サイズ元にもどる() を削除し、イベントプロシージャに記述すれば 問題なく動くのですが、他のフォームでも同様の方法を使用しているため なんとかこの方法での復旧方法を探しています。 なにとぞよろしくお願いします。 急いで質問しましたので、支離滅裂になっているかもしれません。 申し訳ございません。

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

  • ベストアンサー
回答No.1

まさか、 > Public Function サイズ元に戻る() > 「アクティブ時」に =サイズ元にもどる() と記述 漢字とひらがなの違い、とか、そんな単純な話じゃないですよね?

RINKAITO
質問者

お礼

少し前のバックアップをベースに作り直しました。 破損したデータベースのフォームをそのままインポートすると、 上記のエラーになり、コードを保持せずにインポートすると 問題ないようでした。 どうもありがとうございました。

RINKAITO
質問者

補足

確認しましたが、そこは大丈夫でした。 新規データベースにインポートしたので、その辺はいじっていません。

関連するQ&A

  • ACCESSのエラー

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

  • アクセスでのエラーについて

    アクセス2000で作成したデータベースを「データベースの変換」を行ってアクセス2003で動かしているのですが、エラーが発生して対処しかねています。 アクセス2000の段階で、ファイルへのアクセスでエラー、というメッセージが出て 修復できず、今はデータベースの変換をしてアクセス2003で操作している状態です。 まずアクセスを起動すると、 "<フォーム名>を読み込み中にエラーが発生しました。プロジェクトの読み込みを続行しますか?" と聞いてきます。「はい」を選択するとその後は何も聞いてきません。 そして、フォームを開こうとすると "プロシージャの呼び出し、または引数が不正です"、や、 "イベントプロパティに指定した式 開く時 でエラーが発生しました。プロシージャの呼び出し、または引数が違います" といったメッセージが出て、フォームを開くことができません。また、 "データベースのVisual Basic for Applicationsプロジェクトが破損しています" というメッセージも出ました。 一気に書いてしまいましたが、どなたか分かる方がいらっしゃいましたら、解決策など教えていただけないでしょうか。 よろしくお願いします。

  • Accessのメニュー画面

    windows XP・Access2330でデータベースを作成し、メニュー画面にフォームを開くボタンをコントロールウィザードを使用してコマンドボタンで作ったのですが、開こうとすると「イベントプロパティに指定した式 クリック時でエラーが発生しました:不正な文字です。」*マクロ名、ユーザー定義関数名、「イベントプロシージャ」以外の式が指定されています。*関数、イベント、マクロの評価でエラーが発生しました。というエラーがでて開けません。フォーム自体は開いてデータも入力する事が出来、データベースとしてはちゃんと動いてくれているのですが・・・何が原因でどう対処したらいいのか教えていただけますか?

  • アクセス StatusTextChangeイベント

    とあるフォームで、 フォームビューからデザインビューにしようとすると、 イベントプロパティに指定した式 StatusTextChangeでエラーが発生しました。 と表示されます。 これって、日本語で言ったらどのイベントでしょうか? (開く時とか更新時とか) プロパティのイベントを見てもStatusTextChangeがなんだかわかりませんでした。

  • accessについて教えてください

    データベースソフト【アクセス】のエラーメッセージについて教えてください 独学でアクセスを勉強しています。 アクセスのテキストを辿りながら売上管理のフォームを作成しました 3つのテーブルがありリレーションさせています (1)フォームで商品登録フォームをテーブルを元にオートフォームで作成しました フォームを閉じるボタンを設定し実行してみたところ。。。 【イベントプロパティに設定した式 クリック時 でエラーが発生しました:名前が適切でありません:終了_Click *マクロ名、ユーザー定義関数名、[イベントプロシージャ]以外の式が指定されています *関数、イベント、マクロの評価でエラーが発生しました】 以上のメッセージが表示されました テキストの解答とプロパティと設定は全て同じでした リレーションシップも参照整合性も設定は全て同じです (2)上記のエラーメッセージ以外に 上記と同じフォームから新しいデータを入力をしてみたらこちらもエラーメッセージが出ました 【リレーションシップを設定しているテーブルがあるためレコードを削除または更新ができません】 という内容です たまに出るメッセージなのですが これまではテーブルのフィールド名が違っていて、訂正すると新レコードの入力ができました 今回も色々確認してみましたが理由がわかりません アクセスを業務で使用したことがないためエラーの対処方法がわかりません ホームページや書店で色々探してみましたが理由がまったくわかしません 初心者な質問なのかもと思いますが お分かりのかたがいらっしゃればアドバイスお願いします

  • Accessについて(DLOOKUP関数、VBA)

    Accessで入力フォームを作成しています。 参照式が突然「#Name?」となってしまい表示されません。 また、「イベントプロパティに指定した式クリック時でエラーが発生しました:オブジェクトまたはクラスがこのイベントセットをサポートしていません」というメッセージの解決方法がわかりません。 作成したテーブルは次の2つです(見積書作成用のデータベースを作ろうとしています)。 ・見積基本情報テーブル ・見積明細テーブル 見積基本情報テーブルは、得意先名称や担当者等の基本情報を入力します。 見積明細テーブルは、使用する材料の明細、単価、金額等を入力します。 【質問1】 見積明細テーブルに入力用するためのフォームを作成しました。 見積番号(テキスト形式)をキーに以下の参照式を入れています。 =DLookUp("[名称]","見積基本情報テーブル","[見積番号]='" & [見積番号] & "'") 今までは参照できていたのに、突然、「#Name?」となってしまい表示されません。 (他のフォームにも同じ関数を入れていますが、そのフォームは正しく参照ができています。) 何が原因かわかりません。 【質問2】 また、フォームに「明細追加ボタン」を作成し、以下のコードで新しいレコードの追加&見積明細Noを自動で採番できるようにしました。 DoCmd.GoToRecord , , acNewRec Me![見積明細No].DefaultValue = DMax("[見積明細No]", "[見積明細テーブル]", "見積番号 =" & "'" & Me![見積番号] & "'") + 1 はじめはうまくいっていたのに、「イベントプロパティに指定した式クリック時でエラーが発生しました:オブジェクトまたはクラスがこのイベントセットをサポートしていません」というメッセージが出るようになってしまいました。 これらのエラーが出るようになった直前に追加した作業は、単価×数量を計算した値を「金額」欄に入れるマクロ(「値の代入」)です。 基本的なエラーなのかもしれませんが、初心者なので、自分では何がいけないのかが全くわかりません。(市販の本を読みながら作業をしています) よろしくお願いします。

  • アクセスのコマンドボタンについて

    アクセスについて教えて下さい。 コマンドボタンで、フォームのデータをワンクリックで開くように設定したいのですが、コマンドボタンウィザードを使って、 フォームの操作→フォームを開く→フォームを指定 という操作でボタンを作りました。 ですが、ボタンをクリックして操作しようとすると、 「イベントプロパティに指定した式 クリック時 でエラーが発生しました:名前が適切ではありません:(フォーム名)_Click   *マクロ名、ユーザー定義関数名、「イベントプロシージャ」以外の式が指定されています。   *関数、イベント、マクロの評価でエラーが発生しました。」 というメッセージが出てきて、フォームを開くことができませんでした。 ウィザードだけではフォームを開くボタンを作成することはできないのでしょうか? 何か対処があれば教えて下さい。 よろしくお願いいたします。

  • ACCESSエラー「モジュールがありません」

    ACCESS2000でテーブルとフォームを作っていたら下記のエラーメッセージが出てきました。 「実行時エラー'2001';直前の操作はキャンセルされました。」 その後、 「イベントプロパティに指定した式 クリック時でエラーが発生しました:モジュールがありません。※マクロ名、ユーザー定義関数名、[イベントプロシージャ]以外の式が指定されています。※関数、イベント、マクロの評価でエラーが発生しました。」 というメッセージもでてきました。また、フォームが開かなくなり誤作動をし始めたのですが原因がわかりません。どなたか回避策をご存知ないでしょうか?

  • アクセスについてです(レポート)

    フォームからレポートを開く時に、 VBAでコントロールにコントロールソースを指定したいのですが どうやらエラーになってしまうようです。 フォームからではなく手動でレポートを開く場合は エラーにはなりません。 レポートのレコードソースは、T_testを指定していて、 その上にあるコントロールは非連結で指定したコントロールソースをvbaで入れたいです。 なので、レポートのLoadイベントで Private Sub Report_Load() Me.テキスト0.ControlSource = "8月" End Sub として、手動でレポートを開く分には問題ないのですが このコードのまま、フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewPreview End Sub とすると、Me.テキスト0.ControlSource = "8月"で、 実行時エラー2191 印刷プレビュー時または印刷を開始した後は コントロールソースプロパティを設定できません。 のエラーが発生します。 フォームから Private Sub コマンド0_Click() DoCmd.OpenReport "レポート1", acViewDesign End Sub とすると、レポートのLoadイベントが発生しませんでした。 ご回答よろしくお願いします。

  • Access VBA Sub のパラメーター

    フォームに作ったボタンのイベントとして、 「イベント プロシージャ」→「クリック時」→ 「・・・」で サブルーチンを作ろうとしています。 「・・・」で Private Sub 名前_Click() が出ますが、パラメターを、例えば「名前_Click(p1)」と付けると 「イベントプロパティに指定した式 クリック時 でエラーが発生しました: ・・・」 が出ます。 (1)_Click()には、パラメターを設定できないのでしょうか? (2)もし、付けられるのでしたら、付ける方法を教えて下さい (3)もし、_Click()には、パラメターを設定できないのでしたら、代替え方法を教えて下さい よろしくお願いします。

専門家に質問してみよう