在线急等好心人！如何赋值所有的记录？

howze

用VBA写了个代码
Private Sub 计算_Click()
If Me.查询子窗体!积压时间 = "积压1-10天" Then
Me.查询子窗体!划分 = "D1-D10"
End If
If Me.查询子窗体!积压时间 = "积压11-20天" Then
Me.查询子窗体!划分 = "D11-D20"
End If
If Me.查询子窗体!积压时间 = "积压21-30天" Then
Me.查询子窗体!划分 = "D21-D30"
End If
End Sub
现在的问题是，光标在第一条记录，那么点了“计算”按钮以后第一条记录可以被判断平且赋值
但是下面的记录都没有被判断
如果想判断第二条并且赋值
得把光标移动到第二条记录上
现在就是想问一下
后面加上什么语句可以让我的所有记录都被赋值
就是循环或者遍历我的所有记录进行判断并且赋值

koutx

可通过RecordSet循环进行按条件赋值

howze

能说下具体代码怎么写吗？
谢谢了！！！

zyp

可以直接用更新查询进行操作啊

更新的SQL语句大致如下(我是用三条SQL, 当然也可用iif判断缩成一条SQL):

currentproject.connection.execute("UPDATE 表名 SET 划分='A' WHERE 进货日期='20090605')
currentproject.connection.execute("UPDATE 表名 SET 划分='B' WHERE 进货日期='20090615')
currentproject.connection.execute("UPDATE 表名 SET 划分='C' WHERE 进货日期='20090625')

howze

可以直接用更新查询进行操作啊

更新的SQL语句大致如下(我是用三条SQL, 当然也可用iif判断缩成一条SQL):

currentproject.connection.execute("UPDATE 表名 SET 划分='A' WHERE 进货日期='20090605')
currentpr ...
zyp 发表于 2009-6-21 16:46

你好，能说下完整的代码吗？
Private Sub 计算_Click()
currentproject.connection.execute("UPDATE 表名 SET 划分='A' WHERE 进货日期='20090605')
currentproject.connection.execute("UPDATE 表名 SET 划分='B' WHERE 进货日期='20090615')
currentproject.connection.execute("UPDATE 表名 SET 划分='C' WHERE 进货日期='20090625')
end sub
这样不行啊？
是不是少了什么？

howze

已经放上附件了
麻烦帮忙看看
而且还有一个问题
我希望还是用我的思路
因为我那里有下拉菜单
里面要做表的选择
所以在赋值的时候不想有具体的某个表名
这样一限制了某个表名，我的下拉菜单就没用了
所以我还是想用当前窗体这种思路
现在就是差一个循环记录的方法
麻烦帮帮忙

howze

难道就没有人知道吗？

howze

再顶一下

fan0217

不是没人知道，而是你那样的标题是得不到有效的帮助的。

请修改标题吧！

howze

这个帖子从周日中午就开了
一直没有得到解决
不得已才改的标题
现在改回来了
烦请各位给与解答吧
万分感谢了！！！