[求助]vba中if设定的条件不起作用

landfish

如题

     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

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

写法格式不对

landfish

Me![结束时间] >= Rs("时间") 不对那么正确的应该怎么写?

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

还望指点

LucasLynn

以下是引用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

菜鸟~~~4月份刚从本论坛起飞的菜鸟,

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

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

hi-wzj

Me.结束时间  看看。不行的话，上传例子。

wuaza

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

landfish

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


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

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

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

不过幸好有各位的帮助!