日期为空时，使用默认值，在代码生成器里要怎以写？

昕儿　发表于：2010-10-03 11:23:08 　

Private Sub OK_Click()
   Dim TimeStar As String, TimeEnd As String, strSQL As String
    If IsNull(Me.开始时间) Then
         TimeStar = 开始时间.DefaultValue
    Else
        TimeStar = Me.开始时间
    End If
    If IsNull(Me.结束时间) Then
        TimeEnd = 开始时间.DefaultValue
     Else
        TimeEnd = Me.结束时间
    End If


strSQL = "select * from 出货记录 Where (日期 >=" & TimeStar & ") and (日期<=" & TimeEnd & ") "

Me.时间子窗体1.Form.RecordSource = strSQL

End Sub

这是我自己写的， Me.时间子窗体1.Form.RecordSource = strSQL 这一句老是出错，不知道要怎么改。请大家帮忙下。。。

Top

煮江品茶发表于：2010-10-03 19:50:13

strSQL = "select * from 出货记录 Where (日期 >=#" & TimeStar & "#) and (日期<=#" & TimeEnd & "#) "

Top

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

Access交流中心

日期为空时，使用默认值，在代码生成器里要怎以写？