一键输出简单列表的功能按钮开发

最近生产和我说，配舱系统实在是太烦了，
他和我说了一下他的工作方式，
首先是打开系统，
第二步打开筛选器，
第三步抄下今天所有未确认的订单到自己的本子上，
然后跑到车间去一票一票确认，
生产表示浪费时间的主要有两点：
①本来由总经办来截图给生产，生产来回复是否能够按时完成，然后王陈去系统里一票一票确认，这也就意味着，原本只需要动动嘴巴，做做决策，现在既要做决策，又要做文员的工作（一票一票的点）；
②订单明细太长，生产只需要订单号就可以了，有时候为了找一票订单需要花费很长时间，例如生产二部一票订单有12个柜的，这个时候就比较麻烦；

解决：
①第一个问题，其实爱莫能助的，为什么会有以前的这种模式——把所有的文员工作放到总经办，那是因为暂时没有办法去统一协调每个部门的工作，我们不可能让
②第二个问题其实是可以解决的，就是要把窗体里筛选出来的订单，压缩一下，只取出里面的订单号，确认结果和最终的延期时间么。这个很简单的。

接下来的工作

一、思路——所谓思路就是用最短的语言，用人能听懂的话：
首先要从窗体中取出数据源，然后用一定的技术（这里你要我怎么说呢？既然要说人话，那我说DAO和EXCEL VBA你又要懵逼了）把数据源压缩成订单号列表，放到Access里面去，最后把数据放到Excel里面去。

那么
①数据源取出来是什么东西？
答：有可能是一个Select字符串，
例如：“SELECT A,B,C FROM TABLEX”
也有可能是一个表格或者查询的名称，
例如：“采购查询”
那么，这两种情况？这个怎么处理？看代码吧！
②数据源拿到了，接下来要用到那些知识？
第一个是VBA代码操作查询的知识（包括怎样创建、怎样删除、怎样检查Application里是否有同名查询）；
第二个是DAO或者是ADO的数据记录集的知识；
第三个是Excel VBA的知识，特别是Excel的对象。

Private Function createQry()
    Dim strSQLQr As String
    Dim db As DAO.Database
    Dim qr As DAO.QueryDef

    strSQLQr = Form_frm采购订单查询.Form.RecordSource
    If strSQLQr = "采购订单查询" Then
        strSQLQr = "select * from " & strSQLQr
    End If
    Set db = CurrentDb

    '-----检查是否存在同名查询
    Dim I As Integer
    db.QueryDefs.Refresh
    For I = 0 To db.QueryDefs.Count - 1
        If "Qry_PeicangList" = db.QueryDefs(I).Name Then
            '如果查询名：Query_temp存在
            db.QueryDefs.Delete "Qry_PeicangList"
            Exit For
        End If
    Next I


    Set qr = db.CreateQueryDef("Qry_PeicangList", strSQLQr)
    db.Close: Set db = Nothing
    Application.RefreshDatabaseWindow
    MsgBox "创建成功！"
End Function

补充：

但是在实际过程中我发现一个BUG，打开记录集的时候，如果FROM 后面的表格是查询，那么就算查询里面有数据，可能记录集也是空的，尤其是查询语句中包含Like语句时。
所以我在想，如果把数据放到一个中间表中，那么记录集是肯定不会空的，之前也经常看见朱总这么操作，只要最后把表格删掉就好了。
表格定义的文章看这里：“ CreateField方法简记”

'-----------检查是否存在同名表格，如果存在就删除--------------
    For i = 0 To DB.TableDefs.Count - 1
        If "tblPaigui" = CurrentDb.TableDefs(i).Name Then
            '如果查询名：Query_temp存在
            CurrentDb.TableDefs.Delete "tblPaigui"
            Exit For
        End If
    Next i
    '-----------创建表格--------------
    Set tb = DB.CreateTableDef("tblPaigui")
    With tb
        .Fields.Append .CreateField("采购订单号", dbText)
        .Fields.Append .CreateField("采购日期", dbDate)
    End With
    '将表添加到对象集合中
    DB.TableDefs.Append tb
    Application.RefreshDatabaseWindow
    Set tb = Nothing
    DB.Close: Set DB = Nothing

最后用我getTblExcel函数，将数据输出到Excel表格中。

2017年6月7日上午10点半
俞智峰