Office中国论坛/Access中国论坛

标题: [求助]vba中if设定的条件不起作用 [打印本页]

作者: landfish 时间: 2006-5-15 18:51
标题: [求助]vba中if设定的条件不起作用
如题

   N = 0
      Rs.MoveFirst
         For i = 1 To Rs.RecordCount
            If Rs("品名") = Me![cbo品名] Then
               If Me![结束时间] >= Rs("时间") Then  '~~这个条件被忽视,但是下面的赋值语句可以正常执行
                     N = N + Rs("入库") - Rs("出库")

                  End If
                  Rs.MoveNext
            Else
                  Rs.MoveNext
            End If

         Next

      Me![总库存] = N

表为
id  品名  出库入库时间....
1 XXX 100 0    2006-05-01.....
2 XXX 0    50    2006-05-06.....

.....

我要求的是到品名=xx,的货物到具体某一时间为之的库存是多少
但是以上语句求得的是品名=xx的货物在仓库中所有的库存是多少
虽然我设置了 If Me![结束时间] >= Rs("时间")作为时间限定,可是
却没有作用,还望各位前辈指点.

作者: tz-chf 时间: 2006-5-15 18:53
Me![结束时间] >= Rs("时间")

写法格式不对

作者: landfish 时间: 2006-5-15 19:39
Me![结束时间] >= Rs("时间") 不对那么正确的应该怎么写?

我之前就试着写成 Rs("时间")<=Me![结束时间] ,但是一样条件被忽视……

还望指点

作者: LucasLynn 时间: 2006-5-15 19:43

以下是引用landfish在2006-5-15 10:51:00的发言：

如题

   N = 0
      Rs.MoveFirst
         For i = 1 To Rs.RecordCount
            If Rs("品名") = Me![cbo品名] Then
               If Me![结束时间] >= Rs("时间") Then  '~~这个条件被忽视,但是下面的赋值语句可以正常执行
                     N = N + Rs("入库") - Rs("出库")

                  End If
                  Rs.MoveNext
            Else
                  Rs.MoveNext
            End If

         Next

      Me![总库存] = N

表为
id  品名  出库入库时间....
1 XXX 100 0    2006-05-01.....
2 XXX 0    50    2006-05-06.....

.....

我要求的是到品名=xx,的货物到具体某一时间为之的库存是多少
但是以上语句求得的是品名=xx的货物在仓库中所有的库存是多少
虽然我设置了 If Me![结束时间] >= Rs("时间")作为时间限定,可是
却没有作用,还望各位前辈指点.

断点，监视。

作者: landfish 时间: 2006-5-15 19:51
菜鸟~~~4月份刚从本论坛起飞的菜鸟,

断点之类的东西对我来说太深奥了

希望哪位能直接帮我把这段程序改好吧

作者: hi-wzj 时间: 2006-5-15 20:27
Me.结束时间看看。不行的话，上传例子。

作者: wuaza 时间: 2006-5-15 20:30
"#"& Me![结束时间] &"#" >= Rs("时间")

作者: landfish 时间: 2006-5-15 20:36

以下是引用wuaza在2006-5-15 12:30:00的发言：

"#"& Me![结束时间] &"#" >= Rs("时间")

恍然大悟~~~感谢斑竹和wuaza解决困扰我一周的问题

看来有时候写VBa没有语言基础实在难啊

不过幸好有各位的帮助!

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