筛选后所有记录的某个字段内容是否可以显示到另一个窗体文本框中？

bjcompass

如例子：子窗体中的记录是经过在主窗体上输入条件查询而来。现在希望把查询后子窗体中所有记录中的”联系电话“字段内容传递到窗体1上的文本框text1中，而且每个电话号之间有一个英文逗号分隔。请各位老师看怎样解决呢？因为实际上查询条件很多，所以最好用窗体纪录集的方法，但是我实在搞不定，特来请教。

layaman_999

没有例子，使用ado吧

Henry D. Sy

可以的

bjcompass

就是因为自己在代码上搞不定 ，特来求教。
烦请版主受累 ，给写个代码例子吧！
不好意思。

鱼儿游游

你能传例子吗

bjcompass

不好意思，刚发现昨天发帖，例子没带上。
如例，希望把经过筛选后子窗体中“联系电话”字段内容都写进窗体1的text1,每个电话之间用英文逗号分隔。
谢谢各位老大关注！

Henry D. Sy

1. Private Sub Command15_Click()
   
2.     On Error GoTo Err_Command15_Click
   
3.     Dim rs As DAO.Recordset
   
4.     Dim strTel As String
   
5.     Dim strWhere As String                                                '定义条件字符串
   
6. 
   
7.     strWhere = ""                                                         '设定初始值是空字符串
   
8. 
   
9.     If Not IsNull(Me.姓名) Then
   
10.         strWhere = strWhere & "([姓名] like '*" & Me.姓名 & "*') AND "
    
11.     End If
    
12. 
    
13.     If Not IsNull(Me.性别) Then
    
14.         strWhere = strWhere & "([性别] like '*" & Me.性别 & "*') AND "
    
15.     End If
    
16. 
    
17.     If Not IsNull(Me.班级) Then
    
18.         strWhere = strWhere & "([学员班] like '*" & Me.班级 & "*') AND "
    
19.     End If
    
20. 
    
21.     If Not IsNull(Me.Combo41) Then
    
22.         strWhere = strWhere & "([学籍状态] like '*" & Me.Combo41 & "*') AND "
    
23.     End If
    
24. 
    
25.     If Len(strWhere) > 0 Then   '如果有输入条件
    
26.         strWhere = Left(strWhere, Len(strWhere) - 5)  '用LEFT函数截掉这5个字符。
    
27.     End If
    
28. 
    
29.     Me.查询学员_sub.Form.Filter = strWhere       ' 子窗体应用窗体查询
    
30.     Me.查询学员_sub.Form.FilterOn = True
    
31.     Set rs = Me.查询学员_sub.Form.RecordsetClone
    
32.     With rs
    
33.         .MoveFirst
    
34.         Do While Not .EOF
    
35.             strTel = strTel & .Fields("联系电话") & ","
    
36.             .MoveNext
    
37.         Loop
    
38.         .Close
    
39.     End With
    
40.     Set rs = Nothing
    
41.     DoCmd.OpenForm "窗体1", acNormal, , , , , strTel
    
42. 
    
43. Exit_Command15_Click:
    
44.     Exit Sub
    
45. 
    
46. Err_Command15_Click:
    
47.     MsgBox Err.Description
    
48.     Resume Exit_Command15_Click
    
49. 
    
50. End Sub
    

复制代码

bjcompass

感谢板主帮助！
原来使用了窗体间传递参数。学习收藏了。

Henry D. Sy

bjcompass 发表于 2012-7-1 22:13
感谢板主帮助！
原来使用了窗体间传递参数。学习收藏了。

不明白你为什么采取这样的显示形式，
如果只是想显示一下，只要用msgbox就可以了
一定要采取这种形式，你还需要处理：
1. 在执行查询时，先关闭窗体1
2. 在返回按钮事件中增加关闭窗体1代码
3. 定义个判断函数，在执行上述1,2时判断窗体1是否已经加载（打开）

bjcompass

谢谢热心指教 。
我是自学，一知半解。
想做一个数据库http方式访问短信接口群发短信的功能，需要把筛选出来的手机号码写入文本框或者写入一个.txt文档。