Office中国论坛/Access中国论坛

标题: 在线急等好心人！如何赋值所有的记录？ [打印本页]

作者: howze 时间: 2009-6-21 13:43
标题: 在线急等好心人！如何赋值所有的记录？
本帖最后由 howze 于 2009-6-22 23:02 编辑

用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 时间: 2009-6-21 15:52
可通过RecordSet循环进行按条件赋值

作者: howze 时间: 2009-6-21 16:44
能说下具体代码怎么写吗？
谢谢了！！！

作者: zyp 时间: 2009-6-21 16:46
可以直接用更新查询进行操作啊

更新的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 时间: 2009-6-21 16:55

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

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

作者: howze 时间: 2009-6-22 22:18
难道就没有人知道吗？

作者: howze 时间: 2009-6-22 22:39
再顶一下

作者: fan0217 时间: 2009-6-22 23:01
不是没人知道，而是你那样的标题是得不到有效的帮助的。

请修改标题吧！

作者: howze 时间: 2009-6-22 23:05
这个帖子从周日中午就开了
一直没有得到解决
不得已才改的标题
现在改回来了
烦请各位给与解答吧
万分感谢了！！！

作者: howze 时间: 2009-6-23 00:13
顶上

作者: fnsmydyang 时间: 2009-6-23 06:26
你的问题不是没有人解决,只是提问的方法不正确,前天你提出了同样类似问题,今天我还是以同样的方法帮你解决,自己看看吧!
[attach]38547[/attach]

作者: szcid051319 时间: 2009-7-13 15:11
好好学习了！！

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