1

モジュール内にホームページフォームを開く関数があります。

Function goto_home()
    Dim stDocName As String

    'DoCmd.Close acForm, "CallingForm.Name" , acSaveYes
    stDocName = "home_page"
    DoCmd.OpenForm stDocName
End Function

各フォームオブジェクト内でコードを複製するのではなく、コードを使用するすべてのフォームにコマンドボタンがあるため、モジュール内にあります。

私のコードのコメント行は、ホームページを開く前に呼び出しフォームを閉じる必要があります。フォームオブジェクトから実行する場合は使用me.form.nameしますが、モジュールでは実行できません。

呼び出しフォームへの参照を可能にする同等のモジュール構文はありますか？

4

1 に答える 1

3

関数にフォーム名をいつでも渡すことができます。

Function goto_home(frmName As String)

Dim stDocName As String
Dim stLinkCriteria As String

    DoCmd.Close acForm, frmName , acSaveYes
    stDocName = "home_page"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

End Function

次に、各フォームからこれを呼び出すときに、フォームの名前を呼び出し引数に入れることができます。

于 2012-12-28T14:08:55.953 に答える