Office中国论坛/Access中国论坛

标题: 请教怎么处理刷新！ [打印本页]

作者: gxy1000 时间: 2011-5-3 19:27
标题: 请教怎么处理刷新！
点添加按钮后，添加了新的经手人，当回到这个窗体里，在组合框内仍然看不到新添加的经手人，只有当本窗体关闭后，再重新打开，才能看到新添加的经手人，请问如果才能不用关闭后再打开这个窗体就能看到新添加的记录？

作者: gxy1000 时间: 2011-5-3 19:35
已经解决！！

Private Sub 组合框名称_GotFocus()
Me.组合框名称.Requery
End Sub

作者: todaynew 时间: 2011-5-3 20:37

gxy1000 发表于 2011-5-3 19:35
已经解决！！
Private Sub 组合框名称_GotFocus()
Me.组合框名称.Requery

如果窗体上有比较多的组合框、列表框、子窗体的话，可以写一个自定义函数来全部刷新相关的控件和子窗体。可以建一个按钮，用单击事件调用该函数。

Function Req(ctrls As Controls)
Dim ctrl As Control
For Each ctrl In ctrls
If ctrl.ControlType = acComboBox Or ctrl.ControlType = acListBox Then
ctrl.Requery
End If
If ctrl.ControlType = acSubform Then
ctrl.Form.Requery
End If
Next ctrl
End Function

作者: gxy1000 时间: 2011-5-4 09:55
学习！！！谢谢！！！

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