Office中国论坛/Access中国论坛

标题: 获得焦点问题 [打印本页]

作者: ALUZER 时间: 2012-12-15 09:51
标题: 获得焦点问题
在子窗体更新后如何让主窗体获得焦点

作者: ALUZER 时间: 2012-12-15 09:53
怎么到这里去了请版转帖

作者: tmtony 时间: 2012-12-15 10:05
主窗体.控件.setfocus

作者: ALUZER 时间: 2012-12-15 10:10
谢谢回复但还是不行主窗体名为【条码装箱】控件名为【筒数】子窗体名为【标签信息】【标签信息】下有【剩余标签】就是想更新【剩余标签】后【筒数】获得焦点

作者: ALUZER 时间: 2012-12-15 10:12
他走不出子窗体好像

作者: ALUZER 时间: 2012-12-15 10:13
Private Sub 剩余数量_DblClick(Cancel As Integer)
On Error GoTo ERR_
DoCmd.SetWarnings False
If MsgBox("确定将剩余的标签数量复位？", vbOKCancel, "") = vbOK Then
Forms!条码装箱!标签信息!剩余数量 = Forms!条码装箱!标签信息!标签数量 - 1
条码装箱.筒数.SetFocus
End If
EXIT_: Exit Sub
ERR_:
Resume EXIT_
End Sub
==不行

作者: ALUZER 时间: 2012-12-15 10:14
Private Sub 剩余数量_DblClick(Cancel As Integer)
On Error GoTo ERR_
DoCmd.SetWarnings False
If MsgBox("确定将剩余的标签数量复位？", vbOKCancel, "") = vbOK Then
Forms!条码装箱!标签信息!剩余数量 = Forms!条码装箱!标签信息!标签数量 - 1
Forms!条码装箱!筒数.SetFocus
End If
EXIT_: Exit Sub
ERR_:
Resume EXIT_
End Sub
==也不行

作者: ALUZER 时间: 2012-12-15 10:21
这个是用来记录条码打印机的剩余标签数量的

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)