Office中国论坛/Access中国论坛

标题: 关于如何将记录显示在即使窗口中 [打印本页]

作者: wonderfeng    时间: 2006-9-27 22:37
标题: 关于如何将记录显示在即使窗口中
如何将表中不符合条件的记录(已筛选)全部(多条记录)显示在即时窗体(或msgbox弹出窗体)中
作者: andymark    时间: 2006-9-27 22:45
用符合记录相反条件的筛选,把例子传上来


作者: wonderfeng    时间: 2006-9-27 22:58

[attach]20601[/attach]


例子如上

表中记录已经被筛选了(不符合要求的),想把这两张表中记录的name字段显示在即时窗体中!
作者: andymark    时间: 2006-9-27 23:15
[attach]20602[/attach]

作者: wonderfeng    时间: 2006-9-27 23:47
我好像不能显示出来吗

点击按钮无反应啊,但看了下程序,却都是执行的
作者: fan0217    时间: 2006-9-27 23:52
切换带VBE界面打开立即窗口查看执行情况(Ctrl+G)。

Private Sub Command0_Click()
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Rs.Open "select name from Comp_temp1", Conn, adOpenKeyset, adLockOptimistic
Do While Not Rs.EOF
    Debug.Print Rs.Fields(0)
   Rs.MoveNext
Loop
Rs.Close

Rs.Open "select name from Comp_temp2", Conn, adOpenKeyset, adLockOptimistic
Do While Not Rs.EOF
    Debug.Print Rs.Fields(0)
   Rs.MoveNext
Loop

Set Rs = Nothing
Set Conn = Nothing
End Sub
作者: andymark    时间: 2006-9-27 23:52
在立即窗口里显示的

把Debug.Print  改成msgbox
作者: wonderfeng    时间: 2006-9-28 00:09
晕,看来我没说清楚啊!

版主,辛苦,谢谢啦。

继续向你学习




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3