自己已解决；如何控制FristData大于LastData就提示出错？我的终止日期函数转换出问题

luhao

现追问：在查询窗体上，如何控制FristData大于LastData就提示出错？
if me.firstdata >me.lastdata then
  msgbox"FristData大于LastData"
end if

以下问题ACMAIN_CHM 已解决。
Private Sub Form_Load()
    Dim FirstData As Date
    Dim LastData As Date
    FirstData = CDate(Format(Year(Date) & "/" & Month(Date) & "/1", "yyyy/mm/dd"))
    LasteData = CDate(Format(Year(Date) & "/" & Month(Date) & "/1", "yyyy/mm/dd")) - 1
    Me.tx起始日期 = FirstData   ‘这个可以正常转成2009-5-1
    Me.tx终止日期 = LastData    ‘这个错显示的0:00:00
End Sub
构思：打开查询窗体，TX起始日期=当月第一日，TX终止日期=当月最后一日（或当天日期）

ACMAIN_CHM

建议
1, 请在程序前面加上 Option Explicit, 你可以在VBE的环境中 工具 选项 选上要求变量声明 (这样就可以避免你这个贴子中问题了)
2. 代码可以简化如下。
3. 用变量先得到date，以防止突变。

Option Compare Database
Option Explicit

Private Sub xxxx()
    Dim FirstData As Date
    Dim LastData As Date
    Dim dToday As Date
   
    dToday = Date  '防止在程序中出现跨天，比如执行FirstData = 时为2009-05-31 23:59:59,执行 LastData 为2009-06-01 00:00:00
   
    FirstData = dToday - Day(dToday) + 1
    LastData = DateAdd("m", 1, FirstData) - 1
   
    Debug.Print FirstData
    Debug.Print LastData
End Sub



******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次

luhao

建议
1, 请在程序前面加上 Option Explicit, 你可以在VBE的环境中 工具 选项 选上要求变量声明 (这样就可以避免你这个贴子中问题了)
2. 代码可以简化如下。
3. 用变量先得到date，以防止突变。

Option Compare ...
ACMAIN_CHM 发表于 2009-5-17 17:15

谢谢！现追问：在查询窗体上，如何控制FristData大于LastData就提示出错。