Report.OnCurrent プロパティ (Access)

レポートの OnCurrent プロパティの値を設定または返します。 読み取り/書き込みが可能な String です。

構文

式。OnCurrent

式: Report オブジェクトを表す変数。

解説

特定のレポートを開くたびにプロシージャが自動的に実行されるようにするには、フォームの OnCurrent プロパティを [Event Procedure] に設定すると、 Private Sub Report_Current() と呼ばれるプロシージャが自動的にスタブ アウトされます。

OnCurrent プロパティを使用すると、フォームの OnCurrent プロパティの値をプログラムで決定したり、フォームの OnCurrent プロパティをプログラムで設定したりできます。

UI でフォームの OnCurrent プロパティを設定すると、レポートの [プロパティ ウィンドウ] の [現在] ボックスの横にある [...] ボタンを選択すると表示される [ビルダーの選択] ウィンドウでの選択に基づいて値が取得されます。

• 式ビルダーを選択した場合、値は =expression になります。ここで、 expression は式ビルダー ウィンドウからの式です。

• [マクロ ビルダー] を選択した場合、値はマクロの名前です。

• Code Builder を選択すると、値は [Event Procedure] になります。

例

次のコード例は、レポートの OnCurrent プロパティを設定する方法を示しています。

Private Sub Report_Load()

        Me.OnCurrent = "[Event Procedure]"

End Sub
		

イベント プロシージャ Report_Current() が自動的と呼ばれる 現在 のイベントが発生した場合。 この手順では、レポートの 2 つのテキスト ボックスの値が収集され、処理用の別のプロシージャに送信されます。

Private Sub Report_Current()

        ' Declare variables to store price and available credit.
        Dim curPrice As Currency
        Dim curCreditAvail As Currency

        ' Assign variables from current values in text boxes on the Report.
        curPrice = txtValue1
        curCreditAvail = txtValue2

        ' Call VerifyCreditAvail procedure.
        VerifyCreditAvail curPrice, curCreditAvail

End Sub
		

次の例に渡される 2 つの値だけで処理します。

Sub VerifyCreditAvail(curTotalPrice As Currency, curAvailCredit As Currency)
    ' Inform the user if there is not enough credit available for the purchase.
    If curTotalPrice > curAvailCredit Then
        MsgBox "You don't have enough credit available for this purchase."
    End If
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。