Office中国论坛/Access中国论坛

标题: [求助] 老鬼斑斑谢谢你，但是程序有错，请再次赐教， [打印本页]

作者: ppsnow 时间: 2006-8-28 19:30
标题: [求助] 老鬼斑斑谢谢你，但是程序有错，请再次赐教，
首先要谢谢你，但是我又要麻烦你了。

就是当我选择后面的日期比前面大的时候就出错了，是不是再作个判断，如果前面的小于后面的日期就该跳出提示框“开始的日期必须小于结束日期"

我不知道该怎么加程序，，

Dim CEL
Dim RNG, RNG2
Dim R, R2

CEL = Sheet1.Range("IV5").End(xlToLeft).Address(0, 0)
With Sheet1.Range("H5:" & CEL)
      Set RNG = .Find(CDate(Me.CmbStart), LookIn:=xlFormulas).Offset(0, -1)
      Set RNG2 = .Find(CDate(Me.Cmbend), LookIn:=xlFormulas).Offset(0, 1)
End With

If Not RNG Is Nothing And Not RNG2 Is Nothing Then
      R = RNG.Address(0, 0)
      R2 = RNG2.Address(0, 0)
      Columns("H:" & Left(R, Len(R) - 1)).Hidden = True
      Columns(Left(R2, Len(R2) - 1) & ":BJ").Hidden = True
End If
End Sub

作者: ppsnow 时间: 2006-8-28 21:02
还有当我选择一个时间段，按了”show“只后，再改选”to“的日期，就又报错了，不知道怎么修改程序，最后目的是无论怎么该都可以正常显示，而不用按”back“再选择。

还有就是有窗体跳出来时，excel表就不能动了，只有关了窗体才能在表里操作，怎么办呢，

作者: 老鬼 时间: 2006-8-30 05:42
加一些条件判断进去就可以了，核心代码有了，其他只是修修补补。你可以“show”事件中把“back”中的代码加进去。

把窗体的showmodal设为"true"

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