ACCESS提供一个叫“Treeview”的控件，可以制作学科树，单击学科树的某个叶子节点，可以访问相应的学科数据。但用户又要求，检索后，要在不同学科下浏览检索结果，这就要求，单击学科树时，也要同时触发检索。

   具体的实现方法为：

   Treeview的NodeClick事件，定义一个SQL变量，用户获取子节点的信息；同时，对进行条件判断，判断用户是否输入检索条件，如用户未输入检索条件，则直接把这个SQL变量赋给查询结果窗体；如用户输入了检索条件，则把用户的输入转化为SQL语句，并用and条件和这个SQL连接，这样就实现了学科树检索和用户条件检索的结合。

（二）、多字段检索和全文检索

    用户要求能进行全文检索，怎么做呢？可以新建一个查询，把要检索的多个字段进行连接，连接成一个长字段，用户进行全文检索时就在这个字段内检索就可以了。这种实现方法不是特别好，但我测试，在目前的数据量下不会有问题，另外，ACCESS的查询保存的是SQL语句，并不会增加数据库表的体积，数据库体积不会增大，目前测试速度没有问题。

（三）、查询结果中记录的导出

     查询结果存储在一个子窗体内，用户要求把查询结果导出为EXCEL格式。把窗体导出的数据导出方法很多，在其他开发工具里很容易就实现，但在ACCESS里确有些费周折。网上查了下，主要的方法有复制的方法，用VBA代码把子窗体的光标移动到第一条记录，然后写个循环，依次选中所有的行，然后，调用excel把选中的行复制到excel里去。这种方法在数据量小的时候，一点问题没有，但超过1万条是就很慢了。

我使用的是另一种方法，使用vb里的Excel.Application，这个对象可以直接把窗体里的内容复制到一个excel里，

具体如下：

exlpath = getFilepath(, "excel(*.xls)", "保存文件为xls", , False)

 If exlpath = "" Then Exit Sub

（这一段是调用一个函数，给用选择一个保存路径的选择，用户选择的路径保存在exlpath里）

（下面的代码网上有，大意是创建一个excel对象，读取表结构，把表结构拷贝至第一行，从A2单元格开始拷贝数据）

Set oExcel = CreateObject("Excel.Application")

Set oBook = oExcel.Workbooks.Add()

Me.xiform.Form.Recordset.MoveFirst

For i = 0 To Me.xiform.Form.Recordset.Fields.Count - 1

oBook.Worksheets(1).Cells(1, i + 1).Value = Me.xiform.Form.Recordset.Fields(i).Name

Next

oBook.Worksheets(1).Range("A2").CopyFromRecordset Me.xiform.Form.Recordset

oBook.SaveAs ("" & exlpath & "")

MsgBox "导出成功"

errexit:

oBook.Close False

oExcel.Quit

Set oBook = Nothing

Set oExcel = Nothing

Exit Sub

errit:

MsgBox "错误号为" & Err.Number & " 错误说明：" & Err.Description

End If

Resume errexit

仔细看了Excel.Application这个对象，好像和dde有点像，可以对导出的excel格式进行一些更为精确的实质。但实现起来真的有点麻烦。

（四）调用帮助文件：

     做好的帮助文件为chm格式，要在菜单或其他地方调用这个帮助文件。首先在模块里做一个函数：

Public Function help()

ShellExecute 0, "Open", "" & Application.CurrentProject.Path & "\help\help.chm", "", "", SW_SHOW

End Function

在菜单或按钮上调用就可以。