日期区间的代码可以这样写:
Dim datMIXDATE As Date'设定开始日期变量
Dim datMAXDATE As Date’设定结束日期变量
dim strLINJING As Long
datMIXDATE = Me.Text25'设定开始日期等于某文本框的值
datMAXDATE = Me.Text27'设定结束日期等于某文本框的值
strLINJING = " AND ((*.日期) Between " & "#" & datMIXDATE & "#" & " And " & "#" & datMAXDATE & "#" & ")" '此处设定查询条件
其它条件自己设吧,数据库查询的代码有现成的,偶也不多说了,但这可以做成一个现成的查询,至于追加表查询偶还没有用到过,你再问问吧。
偶不是版主,在此孟浪现丑了,请版主指点吧