AccessVBAにおけるOpenArgsの使用について

質問

AccessVBAを最近はじめた初心者です。
～～～フォーム1～～～
Private Sub コマンド0_Click()
DoCmd.OpenForm "フォーム2", , , , , , "コマンド0"
End Sub

Private Sub コマンド1_Click()
DoCmd.OpenForm "フォーム2", , , , , , "コマンド1"
End Sub

～～～フォーム2～～～
Private Sub Form_Load()
Dim strFormName As String

strFormName = Forms.フォーム1.OpenArgs
DoCmd.PrintOut strFormName
End Sub

上のプログラムのようにフォーム1でクリックしたボタンによってフォーム2を読み込んだ時の動作を変えるプログラムを作成しようとしています。
しかし、実際に起動させると、『strFormName = Forms.フォーム1.OpenArgs』の辺りで
「Null の使い方が不正です。」
というエラーメッセージが表示されます。
Accessのヘルプを参照に組んでみたのですが、どの箇所が間違っているのでしょうか？　回答、よろしくお願いします。

回答No.1

AlexSuns

×strFormName = Forms.フォーム1.OpenArgs
○strFormName = Me.OpenArgs