从OpenArgs参数继续获取null

时间:2015-09-03 18:28:57

标签: forms vba ms-access-2010

在MS Access 2010中,我创建了一个包含两种表单的数据库。我试图将数据从第一种形式传递到第二种形式。第一个表单上有一个按钮,它打开第二个表单,但它应该传递两个参数,如下所示:

Private Sub Command14_Click()
Dim data As String
data = Me.Schedule_ID.Value & "|" & Me.Schedule_Name.Value
'MsgBox data
DoCmd.OpenForm "Set Employees, Dates And Times", acNormal, , , , , data
End Sub

在第二个表单上,我试图像这样检索OpenArg参数:

Private Sub Form_Open(Cancel As Integer)
MsgBox Me.OpenArgs  '<<< OpenArgs is Null!
Dim Pstring As Variant
If Not IsNull(Me.OpenArgs) Then
   Pstring = Split(Me.OpenArgs, "|")
   Me.txtPlannedScheduleID.Value = Pstring(0)
   Me.txtPlannedScheduleName.Value = Pstring(1)
End If
End Sub

它停在第一行MsgBox Me.OpenArgs上。 OpenArgs是Null。这是为什么?我该如何解决?

0 个答案:

没有答案