为什么这段代码运行有错误呢?急,谢谢!(前端是ACCESS,后端是SQL)

walker-dong

Private Sub Command13_Click()
Dim strwhere As String
strwhere = ""

'来款时间判断
If Not IsNull(Me.时间开始) Then
'有输入
strwhere = strwhere & "([报产时间]>= #" & Format(Me.时间开始, "yyyy-mm-dd") & "#) AND "
                           Else
                           MsgBox "没有开始时间！", vbQuestion
End If
'来款时间判断
If Not IsNull(Me.时间结束) Then
'有输入
strwhere = strwhere & "([报产时间]<= #" & Format(Me.时间结束, "yyyy-mm-dd") & "#) AND "
                           Else
                         MsgBox "没有结束时间！", vbQuestion
End If

If Len(strwhere) > 0 Then
     '有输入条件
     strwhere = Left(strwhere, Len(strwhere) - 5)
End If
DoCmd.OpenReport "明细-出口创汇-报表", acPreview, , strwhere, acWindowNormal
End Sub

[此贴子已经被作者于2006-8-31 11:20:32编辑过]

tz-chf

至少问题出在第二时间判断strwhere上，and写在前面。

6831860

报的什么错误？

dailingmcd

11