ACCESS 的修改语句如何写？

ACCESS 的修改语句如何写？

docmd.save
就可以了，或者是
Me.字段名称.Requery
这样刷新一下也可以

private sub command0_click()     '本代码需要引用ado数据访问对象，于vbe编辑器 菜单 工具 引用     '勾选microsoft activex data objects library 2.5或其他版本并确定     dim rs as new adodb.recordset     dim strsql as string, xh as long, fxh as long     strsql = "select 序号,分序号 from 表1 order by 序号"     rs.open strsql, currentproject.connection, adopenkeyset, adlockoptimistic     if not rs.bof and not rs.eof then         xh = rs!序号         do until rs.eof             if rs!序号 = xh then                 fxh = fxh + 1             else                 xh = rs!序号                 fxh = 1             end if             rs!分序号 = fxh             rs.update             rs.movenext         loop     end if     rs.close     set rs = nothing     msgbox "分序号填写完毕" end sub点击按钮，代码运行后，直接打开表1，新填入的分序号可能会倒序排列，但是没问题的。可以运行选的查询重新排序即可  “select * from 表1 order by 序号,分序号”。 如果表1的序号严格按大小顺序排列，则上述代码中的选择查询语句就不需要强制排序了 strsql = "select 序号,分序号 from 表1 order by 序号" 改为： strsql = "select 序号,分序号 from 表1" 这样代码运行后，打开表1就不会出现分序号倒序的情况。