如何让它自动执行两个控件的单击事件?(

我想:双击列表框的某笔记录打开一个修改窗体,

如何让它自动执行两个控件的单击事件?(一个是自动执行一个选取方块的单击事件;一个是自动执行一个按钮的单击事件)。

然后再自动关闭那个修改窗体

我把那两个单击事件写在双击事件中了，但还是不行

代码以下：

Private Sub BOOKING_DblClick(Cancel As Integer)
If IsNothing([Forms]![CTRORDER]![ORDERDATE]) Or [Forms]![CTRORDER]![ORDERNO] = "*" Then Exit Sub
Forms![CTRSTATUS]![BOOKING] = Forms![CTRORDER]![BOOKING]
DoCmd.OpenForm "CTRSTATUS ADD", , , , acFormEdit
Forms![CTRSTATUS ADD]![ORDERSTATUS].Enabled = True
Forms![CTRSTATUS ADD]![ORDERSTATUS].Locked = False
Forms![CTRSTATUS ADD]!CONTAINER.Enabled = False
Forms![CTRSTATUS ADD]!CONTAINER.Locked = True
Forms![CTRSTATUS ADD]!CTRTYPE.Enabled = False
Forms![CTRSTATUS ADD]!CTRTYPE.Locked = True
Forms![CTRSTATUS ADD]!SIZE20.Enabled = False
Forms![CTRSTATUS ADD]!SIZE20.Locked = True
Forms![CTRSTATUS ADD]!SIZE40.Enabled = False
Forms![CTRSTATUS ADD]!SIZE40.Locked = True
Forms![CTRSTATUS ADD]!SIZE45.Enabled = False
Forms![CTRSTATUS ADD]!SIZE45.Locked = True

'.............................................

'以下是单击那个修改窗体中其中一个控件的事件
'(Private Sub ORDERSTATUS_Click()
If Forms![CTRSTATUS ADD]![ORDERSTATUS] = True Then
Forms![CTRSTATUS ADD]!ORDEROUTNO = Forms![CTRORDER]!ORDERNO
Forms![CTRSTATUS ADD]!ORDEROUT = Forms![CTRORDER]!ORDERDATE
Forms![CTRSTATUS ADD]!POD = Forms![CTRORDER]!POD
Forms![CTRSTATUS ADD]!DEST = Forms![CTRORDER]!DEST
Forms![CTRSTATUS ADD]!GWT = Forms![CTRORDER]!GWT
Forms![CTRSTATUS ADD]!ILV = Forms![CTRORDER]!ILV
Forms![CTRSTATUS ADD]!SHIPPER = Forms![CTRORDER]!SHIPPER
Forms![CTRSTATUS ADD]!OCONSIGNEE = Forms![CTRORDER]!OCONSIGNEE
Forms![CTRSTATUS ADD]!COMMODITY = Forms![CTRORDER]!COMMODITY
Forms![CTRSTATUS ADD]![EX VESSEL] = "ORDER"
Forms![CTRSTATUS ADD]!EXSHIPPER = Forms![CTRORDER]!EXSHIPPER
Forms![CTRSTATUS ADD]!ONHAND = True
Else
Forms![CTRSTATUS ADD]!ORDEROUTNO = Null
Forms![CTRSTATUS ADD]!ORDEROUT = Null
Forms![CTRSTATUS ADD]!POD = Null
Forms![CTRSTATUS ADD]!DEST = Null
Forms![CTRSTATUS ADD]!GWT = Null
Forms![CTRSTATUS ADD]!ILV = Null
Forms![CTRSTATUS ADD]!SHIPPER = Null
Forms![CTRSTATUS ADD]!OCONSIGNEE = Null
Forms![CTRSTATUS ADD]!COMMODITY = Null
Forms![CTRSTATUS ADD]![EX VESSEL] = Null
Forms![CTRSTATUS ADD]!EXSHIPPER = Null
Forms![CTRSTATUS ADD]!ONHAND = False
End If
'.............................................

'以下是单击那个修改窗体中其中另一个控件的事件
'(Private Sub SAVE_Click()
If Forms![CTRSTATUS]!ORDERREFRESH = 1 Then
If Forms![CTRSTATUS ADD].Dirty Then
  DoCmd.RunCommand acCmdSaveRecord
  DoCmd.Close acForm, "CTRSTATUS ADD"
  'Forms![CTRSTATUS].Refresh
  'Forms![CTRORDER].Refresh
  Exit Sub
  End If
  End If
If Forms![CTRSTATUS]!ORDERREFRESH = 2 Then
If Forms![CTRSTATUS ADD].Dirty Then
  DoCmd.RunCommand acCmdSaveRecord
  DoCmd.Close acForm, "CTRSTATUS ADD"
  'Forms![CTRSTATUS].Refresh
  Forms![CTRRETURN].Refresh
  Exit Sub
  End If
  End If
If Forms![CTRSTATUS]!ORDERREFRESH = 3 Then
If Forms![CTRSTATUS ADD].Dirty Then
  DoCmd.RunCommand acCmdSaveRecord
  DoCmd.Close acForm, "CTRSTATUS ADD"
  'Forms![CTRSTATUS].Refresh
  Forms![CTRTEMPOUT].Refresh
  Exit Sub
  End If
  End If
If Forms![CTRSTATUS ADD].Dirty Then
  DoCmd.RunCommand acCmdSaveRecord
  DoCmd.Close acForm, "CTRSTATUS ADD"
  'Forms![CTRSTATUS].Refresh
  End If
Me![CTRORDER].Refresh

End Sub