有八组（1组，2组，3组……）每组都有[姓名][时间]字段，要求建个窗体，输入姓名，点查询就会对照查询8个表，只要那个表的姓名相同就会显示表名，姓名，时间，有可能重名都要求能显示，求高手指点一下

方法  另做一个表  为临时表   假设为tmp

以tmp建立子窗体    为主窗体的子窗体

循环检查8个组里 对应名字 如果存在  就将表名  结果 追加到tmp  最后刷新子窗体  

代码如下：

Private Sub 查询_Click()
CurrentDb.Execute "delete * from tmp"
Dim SQL As String
Dim rst As Object
Dim str
Dim z As String
z = Me.姓名
Dim lngNumber As Integer
    For Each str In Array("一组", "二组", "三组", "四组", "五组", "六组", "七组", "八组")
    SQL = "select '" & str & "' as 表名 ,姓名,时间 from " & str & " where 姓名='" & z & "'"
    Set rst = CurrentDb.OpenRecordset(SQL)
    
If rst.RecordCount > 0 Then
CurrentDb.Execute "INSERT INTO tmp " & SQL


        End If
        Next
Me.tmp.Requery


End Sub
点击下载此附件