关于如何将记录显示在即使窗口中

wonderfeng

如何将表中不符合条件的记录(已筛选)全部（多条记录）显示在即时窗体(或msgbox弹出窗体)中

wonderfeng

晕，看来我没说清楚啊！

版主，辛苦，谢谢啦。

继续向你学习

andymark

在立即窗口里显示的

把Debug.Print  改成msgbox

fan0217

切换带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

wonderfeng

我好像不能显示出来吗

点击按钮无反应啊，但看了下程序，却都是执行的

andymark

wonderfeng

例子如上

表中记录已经被筛选了（不符合要求的），想把这两张表中记录的name字段显示在即时窗体中！

andymark

用符合记录相反条件的筛选，把例子传上来