Office中国论坛/Access中国论坛

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

作者: walker-dong 时间: 2006-8-31 19:24
标题: 为什么这段代码运行有错误呢?急,谢谢!(前端是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

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