改变表格某个字段属性提示磁盘空间不足无法执行操作

todaynew

逐条循环更新即可

todaynew

saraou 发表于 2012-4-19 09:21
请问怎样逐条循环更新啊？要写代码么？在哪里写呢？

1、在某个窗体上搞一个按钮；
2、在按钮的单击事件中写如下代码：

dim ssql as string
dim i as long
ssql="select * from 阁下的数据表名称"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=1 to rs.recordcount
   rs!日期型日期字段的名称.value=cdate(rs!文本型日期字段的名称.value)
   rs.update
   rs.movenext
next
rs.close
set rs=nothing