[5分]开单子窗体里的指定字段输入内容回车后弹出另一窗体的同时如何自动更改开单子窗体的输入状态

Private Sub 物料代码_AfterUpdate()
     
    DoCmd.OpenForm "物料筛选"
    Screen.ActiveForm.条件 = Me.物料代码
'    Set B = Forms!物料筛选
'    B.条件_AfterUpdate
        Dim strWhere As String


        strWhere = Trim$(Screen.ActiveForm.条件.Text)
        strWhere = "   [物料代码] & [物料名称] & [规格型号] & [主机型]  Like '*" & strWhere & "*'"


        '设置子窗体的筛选器条件
        Screen.ActiveForm.[筛选-物料主文件 子窗体].Form.Filter = strWhere
        '应用筛选
        Screen.ActiveForm.[筛选-物料主文件 子窗体].Form.FilterOn = True
        
     DoCmd.SelectObject acForm, "开单窗体"
     SendKeys "{ESC}"
     
End Sub