如何用模块控制查询中的日期区间？

aone

查询A中包含一个日期区间，窗体a中有“起始日期”和“截止日期”两个文本框，如果只在一个窗体引用没问题，between [窗体a]![起始日期] and [窗体a]![截止日期]；现有另一个窗体b也有“起始日期”和“截止日期”，能否在模块中定义一个函数判断窗体a或窗体b是否打开，并使查询a中日期引用当前打开的窗体中的起止日期？请多指教！

Grant

Dim MyFrm
    For Each MyFrm In CurrentProject.AllForms
        If MyFrm.IsLoaded = True And MyFrm.Name = "frm_DataQuery" Then
                      '正在执行
        End If
    Next

静儿

那如果两个窗体都打开了呢？

tz-chf

原帖由 静儿 于 2008-6-5 15:49 发表
那如果两个窗体都打开了呢？

说得好！这种情况就不必太智能了，另做一个查询不就得了。

aone

谢谢2楼朋友！判断窗体是否打开我学会了，我的意思是在模块中设计一个变量比如zxrq()，然后判断窗体a或窗体b是否打开，如果窗体a打开，则zxrq的变量赋值为between [窗体a]![起始日期] and [窗体a]![截止日期]，如果窗体b打开，则zxrq赋值为between [窗体b]![起始日期] and [窗体b]![截止日期]。
我试了：
Function zxrq() As Date
If IsLoaded("cttj统计执行") <> 0 Then
    zxrq between([cttj统计执行]![起始日期]) And ([cttj统计执行]![截止日期])
ElseIf IsLoaded("ctzx执行主窗体") <> 0 Then
zxrq between([ctzx执行主窗体]![起始日期]) And ([ctzx执行主窗体]![截止日期])
End If
End Function

在查询引用时出错。我学了没多久，也都是在这里偷的拳头，呵呵！请朋友们帮忙！

Grant

模块中引用窗体值 forms("窗体名称").控件名称

tz-chf

Function zxrq() As Date
有这样写的吗?

aone

谢谢grant，我试一下。

yamaying

学习学习