问一下，我要显示本月的数据在这里怎么加？

misonyou　发表于：2015-08-20 09:24:27 　

Private Sub Form_Load()
    On Error GoTo ErrorHandler

    LoadIcon Me.btnAdd_Image, "add.ico"
    LoadIcon Me.btnEdit_Image, "edit.ico"
    LoadIcon Me.btnDelete_Image, "delete.ico"
    LoadIcon Me.btnPrint_Image, "print.ico"
    LoadIcon Me.btnImport_Image, "import.ico"
    LoadIcon Me.btnExport_Image, "export.ico"
    LoadIcon Me.btnClose_Image, "db cancel.ico"

    Set mclsQuery = New GeneralQuery
    With mclsQuery
        .QueryForm = Me.sfrQuickQuery.Form
        .DataForm = Me.sfrList.Form
        .AddAllFields
    End With
    Me.Recalc
    Me.sfrList.Form.Filter = "日期=" & sqldate(FirstDayOfMonth(Date))
Me.sfrList.Form.Filter = "日期=" & sqldate(FirstDayOfMonth(Date))
最后面的这句无效，要怎么改？

Top

杜超发表于：2015-08-20 09:26:47

Access开发平台--用户只能看到自己录入的数据功能[Access软件网]

http://www.accessoft.com/article-show.asp?id=10349
你把where 部门条件，改成日期条件

Top

金宇发表于：2015-08-21 08:52:54

Me.sfrList.Form.Filter = "日期>=" & sqldate(FirstDayOfMonth(Date)) &" and 日期<=" & sqldate(LastDayOfMonth(Date)) Me.FilterOn = True

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

[5分]问一下，我要显示本月的数据在这里怎么加？