Office中国论坛/Access中国论坛

标题: 请教,RunSQL执行更新查询的问题?(已解决) [打印本页]

作者: 07688971217 时间: 2008-12-19 21:35
标题: 请教,RunSQL执行更新查询的问题?(已解决)
Public Function gengxindate()
Dim SQL As String
Dim dtej As Date
Dim dtex As Date
dtej = DLookup("日期", "表1")
dtex = dtej + 1
SQL = "UPDATE 表1 " & _
"SET 表1.日期 = dtex " '这里错了,该怎么改呢?
DoCmd.RunSQL SQL
End Function
运行这个函数时提示输入参数"dtex",

[ 本帖最后由 07688971217 于 2008-12-20 19:00 编辑 ]

作者: andymark 时间: 2008-12-19 22:32
dtej = DLookup("日期", "表1") 你这只返回一个日期?

SET 表1.日期 = dtex " 这里dtex不是一个变量,当然不行

作者: zyp 时间: 2008-12-20 09:44
这句不规范,最好是:
dtej = DLookup("[日期]", "表1")

更新语句为:

SQL = "UPDATE 表1 SET 表1.日期 = #"& dtex &"#"

作者: 07688971217 时间: 2008-12-20 19:10
谢谢二位,问题解决了
Public Function gengxindate()
Dim SQL As String
Dim dtej As Date
Dim dtex As Date
dtej = DLookup("日期", "表1")
dtex = dtej + 1
Date = dtex
SQL = "UPDATE 表1 SET 表1.日期 = #" & dtex & "#"
DoCmd.RunSQL SQL
End Function
因为电脑主板坏了,每次开机系统日期都回到2004-1-1,所以想用这段代码来更改系统日期,
没系统的学过VBA,对这些符号& '' " ' '() ...很是不解

作者: zyp 时间: 2008-12-20 20:33

原帖由 07688971217 于 2008-12-20 19:10 发表
谢谢二位,问题解决了
Public Function gengxindate()
Dim SQL As String
Dim dtej As Date
Dim dtex As Date
dtej = DLookup("日期", "表1")
dtex = dtej + 1
Date = dtex
SQL = "UPDATE 表1 SET 表1.日期 ...

不一定是主板坏了, 可能只是主板上的那颗纽扣电池没电了, 换一粒应该就可以了

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