我有一个经典表单和一个子表单,该表单从查询中获取记录,并且我想为该子表单使用的查询名称分配一个变量:
Dim qryVar as String
qryVar = Me.subForm1.Query.Name
这当然行不通..
在父表单的代码中
Sub Test()
Dim qryVar as string
qryVar = Me.Controls("SubForm1").Form.RecordSource
debug.print qryVar
End Sub
在模块代码中调用测试
Sub TestFormCode()
Frm_ParentFormObject.Test 'Change this to whatever your form's name is
End Sub
RecordSource返回所有SQL代码,我只需要使用的查询名称。对于查询,我的意思是查询名称显示在左侧列表中。
除非是更改,并且您使用的版本与我不同,否则不应该这样。如果转到子窗体的属性,它是sql字符串还是实际查询?
对于查询,我的意思是查询名称显示在左侧列表中。
子窗体的属性没有sql,没有查询..为空白
然后就没有查询名称,因为您正在动态创建一个查询名称。如果您进行查询并使用该查询的代码,则将获得一个查询名称。