access窗体双击某个字段，弹出此字段的所有信息

Question

Private Sub Form_Load()
Dim ctr As Control
For Each ctr In Me.Controls
If ctr.Section = acDetail And ((TypeOf ctr Is TextBox) Or (TypeOf ctr Is ComboBox) Or (TypeOf ctr Is CheckBox)) Then
ctr.OnDblClick = "=allDblClick()"
End If
Next
End Sub
Private Function allDblclick()
DoCmd.OpenForm "查看档案表", , , "[员工编号]=" & Me.员工编号

End Function

我想双击第一张图的一个字段，就弹出第二张图的信息，员工编号是对应的，双击42号就弹42号的。我上面的代码可以弹出直接是所有信息，没办法弹出这种子窗体显示的，我该怎么改呢。我还想点上面的按钮依然是42号的信息