自定义子表单查询

Question

所以我正在做的是我用句柄

创建了一个表单

Dim oSub
Dim oQuery As QueryDef

Set oSub = CreateControl(oForm.Name, acSubform, acDetail, "", "", xPos, currentY + 1000, breite, oHeight)
oSub.Name = "sub000"                        

strSQL = "select * from testTable"

queryname = "abfSAM000"
Set oQuery = CurrentDb.CreateQueryDef(queryname, strSQL)
CurrentDb.QueryDefs(queryname).sql = strSQL

oSub.SourceObject = "Query." & queryname

Forms!Form1!sub000.Form.NavigationButtons = False

问题现在是我想将Subform的NavigationButtons设置为false。 这样做我总是得到错误

＆＃34;您输入的表达式是指一个已关闭或不存在的对象＆＃34;

因此，如果我在调试模式中检查表格是否存在（例如，我在直接窗口中输入？oSub.name），它会显示＆＃34; sub000＆＃34;并且在设计视图中，我看到名称为＆＃34; sub000＆＃34;的子表单 - 显然子表单存在 - 所以它关闭了吗？但是什么

关于那个的任何想法??

全部谢谢！

编辑：我找到了解决方案。我必须先将oForm切换到FormView然后再转动按钮......我猜这是表格对象实例化后出现的真实对象。只是一个猜测