获得值后返回控件焦点

luhao

不知怎用 Screen.ActiveControl去解决 ,请老师们指教

luhao

2# todaynew
我尝试了这样的函数,提不示:表达式引用了一个关闭或不存在的对象
Private Sub List0_DblClick(Cancel As Integer)
    If ActiveFormForm_SFiler筛选排产主表数据 = ActiveForm Then
        Form_SFiler筛选排产主表数据.ActiveControl = Me.List0.Column(0)
        DoCmd.Close acForm, "S筛选数据FrilersFile"
    End If
   
    If ActiveFormForm_SFiler筛选排产订单明细 = ActiveForm Then
        Form_SFiler筛选排产订单明细.ActiveControl = Me.List0.Column(0)
        DoCmd.Close acForm, "S筛选数据FrilersFile"
    End If
End Sub

luhao

4# todaynew
如果只有一个条件
    If ActiveFormForm_SFiler筛选排产主表数据 = ActiveForm Then
        Form_SFiler筛选排产主表数据.ActiveControl = Me.List0.Column(0)
        DoCmd.Close acForm, "S筛选数据FrilersFile"
    End If
就运行正常的.
但2个条件就出错了

luhao

4# todaynew 最后用了
Private Sub List0_DblClick(Cancel As Integer)
    If CurrentProject.AllForms("SFiler筛选排产主表数据").IsLoaded = True Then '判断窗体是否打开
        Form_SFiler筛选排产主表数据.ActiveControl = Me.List0.Column(0)
        DoCmd.Close acForm, "S筛选数据FrilersFile"
    End If
   
    If CurrentProject.AllForms("SFiler筛选排产订单明细").IsLoaded = True Then '判断窗体是否打开
        Form_SFiler筛选排产订单明细.ActiveControl = Me.List0.Column(0)
        DoCmd.Close acForm, "S筛选数据FrilersFile"
    End If
End Sub
测试通过

luhao

8# todaynew
弹出方式和模式 都选是就不会出错了