Office中国论坛/Access中国论坛

标题: access911中条件查询如何解决? [打印本页]

作者: yangruilai 时间: 2002-11-11 06:04
标题: access911中条件查询如何解决?
http://access911.myetang.com/study/a_rpt003.htm文件下载示例报表打印与预览vba中
Set TableA = DB.OpenRecordset("本月", dbOpenSnapshot)

其中本月查询的日期直接指定为#2001-1-1#  ,如果日期为form指定的日期,应如何解决?
我试了很久,都不能传递参数.

Private Sub Command2_Click()
On Error GoTo Err_command2_Click       '产生错误则转到Err_command2_Click行

      '请参看我主页上《学习》栏目中文章《如何制作复杂报表——利用Excel输出复杂报表》
      '其他数据的输出也可以参考下面的程序
      Dim xlApp As Excel.Application
      Dim xlBook As Workbook, xlSheet As Worksheet
      Dim TableA As Recordset, DB As Database, Wks As Workspace
      Dim X1 As Long, X2 As Long, Y As Long


         '将“rpt.xls”复制一个备份到“temp.xls”
         Dim strSource As String, strDestination As String
         strSource = "m:\rpt.xls"
         strDestination = "m:\temp.xls"
         FileCopy strSource, strDestination

         '将“temp.xls”打开

         Set xlApp = CreateObject("Excel.Application")
         Set xlApp = New Excel.Application
         xlApp.Visible = True
         Set xlBook = xlApp.Workbooks.Open("m:\temp.xls")
         Set xlSheet = xlBook.Worksheets(1)

         '打开数据表

         Set Wks = Workspaces(0)
         Set DB = CurrentDb()
         Set TableA = DB.OpenRecordset("本月", dbOpenSnapshot) '打开查询
         TableA.MoveFirst

         Do Until TableA.EOF = True
            Select Case TableA!街道
                  Case "城南"
                     X1 = 6
                     X2 = 15
                  Case "城西"
                     X1 = 7
                     X2 = 16
                  Case "城北"
                     X1 = 8
                     X2 = 17
                  Case "城东"
                     X1 = 9
                     X2 = 18
                  Case "城郊"
                     X1 = 10
                     X2 = 19
            End Select
            xlSheet.cells(X1, 3) = TableA!申报户数
            xlSheet.cells(X1, 4) = TableA!注销户数
            xlSheet.cells(X1, 5) = TableA!中小修合计
            xlSheet.cells(X1, 6) = TableA!中修
            xlSheet.cells(X1, 7) = TableA!小修维修
            xlSheet.cells(X1, 8) = TableA!效益面积
            xlSheet.cells(X1, 9) = TableA!修理费支出
            xlSheet.cells(X1, 10) = TableA!返工户数
            xlSheet.cells(X1, 11) = TableA![占%]

            xlSheet.cells(X2, 2) = TableA!大修申报户数
            xlSheet.cells(X2, 3) = TableA!完成大修理
            xlSheet.cells(X2, 4) = TableA!大修效益面积
            xlSheet.cells(X2, 5) = TableA!大修修理费支出
            xlSheet.cells(X2, 7) = TableA!房改房申报户数
            xlSheet.cells(X2, 8) = TableA!房改房完成修理
            xlSheet.cells(X2, 9) = TableA!房改房效益面积
            xlSheet.cells(X2, 10) = TableA!房改房修理费支出

            TableA.MoveNext
         Loop



         TableA.close

         xlBook.Save
         xlSheet.PrintPreview
         xlBook.close
         xlApp.Quit


Exit_command2_Click:
Exit Sub

Err_command2_Click:
MsgBox "异常终止！"
Resume Exit_command2_Click

End Sub

[此贴子已经被作者于2002-11-10 20:58:07编辑过]

作者: access2sql 时间: 2002-11-11 17:09
queryName.sql="select * from tableName where date=#" & format(form.textbox.value,"yyyy-mm-dd") & "#"

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)