双击数据表记录弹出窗体显示 结果提升输入参数值？

请教各位朋友一个问题  双击数据表记录时弹出一个窗体显示当前选择行记录  

我用了代码

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 "窗体1", acNormal, , "l5 = " & Me.l5 & ""
End Function  但是实现时提示 必须输入内容才可以继续？不知道为什么会这样？