无法关闭和重新打开访问中的窗体(OLE连接)

Question

我是一个VBA新手，但也许你可以帮助:

我想刷新我的主表单"FinalForm"上的所有表单(子表单)和查询。然而，我使用Access作为SQL服务器的前端。所以很明显，通常的按钮(用向导创建的，如刷新，新记录等)将不起作用。

我创建了一个(愚蠢的)解决方法，关闭并重新打开表单:

Private Sub Befehl71_Click()
    DoCmd.Close acForm, "FinalForm"
    DoCmd.OpenForm FormName:="FinalForm"
End Sub

这在vba编辑器中工作正常，但如果被按钮触发(关于ole通信错误)则失败。

Answer 1

标准VBA程序为

Me.Requery

仅用于子表单

Me.PUT_SUBFORM_NAME_HERE.Form.Requery