【已解决】请教大神：引用窗体变量的RecordSource属性出现“类型不匹配”

lx12112006

1. '右键导出EXCEL button
   
2. Public Function ExcelOut()
   
3.     Dim strPath As String
   
4.     Dim obj As Control
   
5.     Dim frm As Form
   
6.     Dim frm_p As Form
   
7.     Dim strSQL As String
   
8.     Dim strSQL2 As String
   
9.    
   
10.     '刷新
    
11. 
    
12.     Set obj = Screen.ActiveControl
    
13.     Set frm = obj.Parent
    
14.     Set frm_p = frm.Parent
    
15.    
    
16.     Debug.Print frm.Name
    
17.     Debug.Print frm_p.Name
    
18.    
    
19.     strSQL = Forms(frm_p)(frm).Form.RecordSource
    
20.     'strSQL2 = Forms!frm策略组合维护.frm策略组合维护_子窗体.Form.RecordSource
    
21.    
    
22.     Debug.Print strSQL
    
23.     'Debug.Print strSQL2
    
24.    
    
25.    
    
26.     'strPath = SelectFolder()
    
27.     'DoCmd.RunSQL "Select * INTO [Sheet1] IN 'E:\ACCESS\股指期货投资管理系统\FilesOut' 'EXCEL 8.0;' FROM 表名"
    
28.    
    
29. End Function

复制代码

哪位大神帮我看看，strSQL怎么也取不到RecordSource，总是提示类型不匹配。但是我把变量替换成窗体名称直接引用，strSQL2就没有问题。好奇怪
——————————————————————————————
更新一下，其实问题转化为：引用recordsource时，Forms!主窗体!子窗体.recordsource中如果主窗体和子窗体用窗体变量代替，应该怎么写？
——————————————————————————————
再次更新，谢谢各位大牛的指点，这个问题得到了解决，问题的核心还是父子窗体变量的引用格式问题。原来子窗体作为参数引用的时候前面不是forms(XX)，而是被当成一个控件，需要用controls(XX)。改为strSQL = Forms(frm_p.Name).Controls(frm.Name).Form.RecordSource 就可以了。


得到了大家的帮助，我就回馈大家吧，我把这个右键导出的函数给完善了，大家有需要的可以拿去用。应该说应用场景还是比较多的，对于窗体中有TreeView的时候，一般会有个子窗体动态的显示点击相应节点后的数据，所以子窗体的recordsource是动态更新的，想右键导出选择后的子窗体数据，是可以把这个函数装在commandbar里面。注意有个公共常量是默认的导出路径，需要修改一下。不知道为啥贴不上来，好像限制了最大行数？
代码在这里：
http://www.office-cn.net/forum.php?mod=redirect&goto=findpost&ptid=122039&pid=751231&fromuid=251741

lx12112006

我感觉是引用窗体用法不对？

roych

1、写法不对。写法是：Forms!主窗体!子窗体.recordsource
2、如果不是引用查询或者表，而是使用sql语句时，是可以获取的。如果是查询的话，则可以考虑使用querydef的sql属性。
3、如果只是导出的话，其实不必那么复杂，用transferspreadsheet就好了。

lx12112006

roych 发表于 2016-8-11 23:11
1、写法不对。写法是：Forms!主窗体!子窗体.recordsource
2、如果不是引用查询或者表，而是使用sql语句时 ...

谢大神，但是关于1和3我还有些问题：
我这个函数是想导出子窗体的数据，但是子窗体的recordsource是动态变化的，貌似transferspreadsheet只能导出表或者查询的结果？好像不满足需要。
然后第一个关于引用父子窗体写法，我直接把父子窗体写出来引用是没有问题的，换成变量就不对了，求教大神如果父子窗体都是变量的话，引用recordsource语句要怎么写呢？查了一个晚上都没有找到==
querydef没有用过，要学习一下，看看能不能满足需要。

lx12112006

补充一下，这句引用的：Forms(frm_p)(frm).Form.RecordSource 是参考这个
http://www.office-cn.net/forum.p ... &fromuid=251741
我还试过了以下几种都不行：
Forms!Forms(frm_p).Forms(frm).Form.RecordSource
Forms(frm_p).Forms(frm).Form.RecordSource
Forms!Forms(frm_p)(frm).Form.RecordSource

快给搞疯掉了
如果不是变量，直接写Forms!frm策略组合维护.frm策略组合维护_子窗体.Form.RecordSource就可以。但是我想写个通用的函数，在多个地方调用，所以想把父子窗体都作为变量。

tmtony

你要先明白forms与frm变量区别
来自: 微社区

lx12112006

tmtony 发表于 2016-8-12 08:55
你要先明白forms与frm变量区别

怎么说？Forms是集合，引用变量只能用forms(XX)的格式，但是我用Forms!Forms(frm_p).Forms(frm).Form.RecordSource的格式也不行。应该怎么改？或者哪里有个例子让我学习一下呢？谢谢啦

tmtony

Forms!Forms(frm_p).Forms(frm).Form.RecordSource的格式也不行
这个肯定错了啊
你要理解里面的意思
如果是知道 具体已打开的窗体的名称
Forms!你的窗体的名称.form.recordsource
或者在窗体上引用
me.parent.form.recordsource
不要2者混在一起使用，就乱了

lx12112006

tmtony 发表于 2016-8-12 12:06
Forms!Forms(frm_p).Forms(frm).Form.RecordSource的格式也不行
这个肯定错了啊
你要理解里面的意思

我这段程序是个函数，所以就是不知道窗体的名称，也不在窗体里面哦。不过，我已经解决这个问题啦，就是把这句改为strSQL = Forms(frm_p.Name).Controls(frm.Name).Form.RecordSource 就可以了。原来子窗体作为参数引用的时候前面不是forms(XX)，而是被当成一个控件，需要用controls(XX)。
Anyway，还是谢谢啦

lx12112006

1. '右键导出EXCEL button
   
2. Public Function ExcelOut()
   
3. 
   
4.     Dim obj As Control
   
5.     Dim frm As Form
   
6.     Dim frm_p As Form
   
7.     Dim strFileName As String
   
8.     Dim s1 As String
   
9.     Dim s2 As String
   
10.     Dim strSQL As String
    
11.     Dim strSQL2 As String
    
12. 
    
13.     '取得要导出的数据所在的窗体和子窗体
    
14.     Set obj = Screen.ActiveControl
    
15.     Set frm = obj.Parent
    
16.     Set frm_p = frm.Parent
    
17.    
    
18. 
    
19. 
    
20.     strSQL = Forms(frm_p.Name).Controls(frm.Name).Form.RecordSource
    
21.     'strSQL = Forms!frm策略组合维护.frm策略组合维护_子窗体.Form.RecordSource
    
22.     'Debug.Print strSQL
    
23.    
    
24.         '取得另存为文件名
    
25.     With Application.FileDialog(msoFileDialogSaveAs)
    
26.         .InitialFileName = strPathOut & frm_p.Caption & ".xls"
    
27.         If Not .Show Then Exit Function
    
28.         strFileName = .SelectedItems(1)
    
29.         If Not strFileName Like "*" & ".xls" Then
    
30.             strFileName = strFileName & ".xls"
    
31.         End If
    
32.         If Len(Dir(strFileName)) > 0 Then Kill strFileName
    
33.     End With
    
34.    
    
35. 
    
36.     '将recordsource断句为select和from
    
37.     s1 = Mid(strSQL, 1, InStrRev(strSQL, "from") - 1)
    
38.     s2 = Mid(strSQL, InStrRev(strSQL, "from"))
    
39.    
    
40.     strSQL2 = s1 & "INTO [Sheet1] IN '" & strFileName & "' 'EXCEL 8.0;'" & s2 & ";"
    
41.     'Debug.Print strSQL2
    
42.     DoCmd.RunSQL strSQL2
    
43.       
    
44.    
    
45. End Function

复制代码