Access开发平台--通用查询如何实现默认当天或当月/本月或默认其它指定值

时　间:2017-02-13 11:16:33
作　者:杜超   ID：16058  城市：江阴
摘　要:有一学员问我：通用查询能否默认当天，于是帮他整理归类了，如下图
正　文:

代码整理如下：    
例一
 .WhereSQL = "生产日期=date()"
 .QueryConditions = "生产日期默认等于" & Date
 .RunQuery
 
例二
 .WhereSQL = "生产日期=#2017-02-13#"
 .QueryConditions = "生产日期默认等于2017-02-13"
 .RunQuery

例三
    Dim d月初 As Date
    Dim d月末 As Date
    d月初 = DateSerial(Year(Date), Month(Date), 1)
    d月末 = DateSerial(Year(Date), Month(Date) + 1, 1) - 1
   
    Set mclsQuery = New GeneralQuery
    With mclsQuery
        .QueryForm = Me.sfrQuickQuery.Form
        .DataForm = Me.sfrList.Form
        .AddAllFields
        .FieldName = "规格"
        .WhereSQL = "生产日期 between #" & d月初 & "# And #" & d月末 & "#"
        .QueryConditions = "生产日期默认等于当月(" & d月初 & "-" & d月末 & ")"
        .RunQuery
    End With

例四
 .FixedWhereSQL = "[bxrq]>=DateAdd('d',-60,Date()) "
 .FixedQueryConditions = "([报销日期]在60天内记录)"
 .RunQuery

例五
 .WhereSQL = "[状态]<>'已完成'"
 .QueryConditions = "([状态] 不等于 ""已完成"")"
 .RunQuery