Office中国论坛/Access中国论坛

标题: 为什么这段代码运行有错误呢?急,谢谢!(前端是ACCESS,后端是SQL) [打印本页]

作者: walker-dong 时间: 2006-8-31 19:16
标题: 为什么这段代码运行有错误呢?急,谢谢!(前端是ACCESS,后端是SQL)
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 时间: 2006-9-1 04:18
至少问题出在第二时间判断strwhere上，and写在前面。

作者: 6831860 时间: 2006-9-1 16:06
报的什么错误？

作者: dailingmcd 时间: 2006-9-18 18:13
11

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)