access中选定字段的替换用vba怎么写

dalanmao

一张表table中有一个字段叫"运输方式",想把此字段为107003.00的全部替换成汽车,107002.00替换成火车.先在excel中(excel中运输方式对应的是E列)用录制宏的办法弄了一个,代码如下.但在access中不能直接用,请教高手

Columns("E:E").Select
selection.Replace What:="107003.00", Replacement:="汽车", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    selection.Replace What:="107002.00", Replacement:="火车", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

dalanmao

没有人会吗?
等待高手解答

sgrshh29

"运输方式"字段必须是文本类型

strsql="update tbl set 运输方式='汽车' where 运输方式='107003.00'"
currentdb.execute  strsql
strsql="update tbl set 运输方式='火车' where 运输方式='107002.00'"
currentdb.execute strsql

dalanmao

2个问题，第一个，上面这个宏执行了20次就说不能执行了，有没有办法解决？
再一个问题，因为我是从excel导入的数据，其中有一字段是“时间”，格式是2009-07-05，现在想把他改成access默认的时间格式2009/07/05。请问该怎么写替换把其中的“-”换成“/”。
这样写吗：strsql = "update tbl set 时间='/' where 时间='-'"
CurrentDb.Execute strsql

dalanmao

高手都哪儿去了啊？
提一提。

sgrshh29

原帖由 dalanmao 于 2009-8-12 17:09 发表
2个问题，第一个，上面这个宏执行了20次就说不能执行了，有没有办法解决？
再一个问题，因为我是从excel导入的数据，其中有一字段是“时间”，格式是2009-07-05，现在想把他改成access默认的时间格式2009/07/05。请 ...

"第一个，上面这个宏执行了20次就说不能执行了"
不可能的事情居然发生了???
"再一个问题，因为我是从excel导入的数据，其中有一字段是“时间”，格式是2009-07-05，现在想把他改成access默认的时间格式2009/07/05。"
先检查一下时间这个字段的数据类型,再选择格式.

dalanmao

原帖由 sgrshh29 于 2009-8-14 11:37 发表

"第一个，上面这个宏执行了20次就说不能执行了"
不可能的事情居然发生了???
"再一个问题，因为我是从excel导入的数据，其中有一字段是“时间”，格式是2009-07-05，现在想把他改成access默认的时间格式2009/07/0 ...

第一个问题，宏－新建－操作里选RunMacro，宏名就是模块里的模块名字吧。
第二个问题，时间这个字段的数据类型是文本，如果在设计视图里把他改变成“日期/时间”的话，这个字段的所有值会变成一串看不懂的数字。
时间这个字段“-”替换成“/”，可以用SQL语句“UPDATE [表名] SET 时间 = replace(时间,'-','/')”
但是用一个SQL语句好像不能同时把运输方式和时间都替换了。

sgrshh29

strsql="update tbl set 运输方式='汽车' where 运输方式='107003.00'"
currentdb.execute  strsql
strsql="update tbl set 运输方式='火车' where 运输方式='107002.00'"
currentdb.execute strsql
strsql="update tbl set 时间 = replace(时间,'-','/')"
currentdb.execute strsql

dalanmao

请教楼上，这三个替换不能用SQL语句同时实现吗？

sgrshh29

这不是同时实现了吗？你想用一个sql语句实现？不行的。