1

EmployeeIDをダブルクリックすると、従業員情報を含むサブフォームを含む別のフォームが開くフォームを含むAccessデータベースがあります。このコードを使用して、元のフォームからEmployeeIDを取得します...

myID = CInt(Me.OpenArgs)

この文字列をセカンダリフォームとそれに含まれるサブフォームで使用していますが、EmployeeIDを取得していません。メインフォームには、Double-Clickイベントのこのコードがあります...

Private Sub EmployeeID_DblClick(cancel As Integer)
Dim myID As Variant 
myID = Me.EmployeeID

DoCmd.OpenForm "subformEmployeeInfo",,,,,,myID
DoCmd.OpenForm "frm_EmployeeInformation",,,,,,myID
End Sub

コードをステップスルーすると、OpenFormコマンドにIDが含まれていることに気付きますが、サブフォームコードに切り替えると、「無効なNullの使用」エラーが発生します。

4

1 に答える 1

0

サブフォームを使用すると、親 OpenArgs を参照できます。

ID= Me.Parent.OpenArgs

これらは、サブフォームが存在するフォームの OpenArgs です。

于 2013-02-21T16:28:56.243 に答える