Office中国论坛/Access中国论坛

标题: 请问日期更新问题 [打印本页]

作者: chenxu9141 时间: 2004-8-5 23:21
标题: 请问日期更新问题
[气瓶信息]![检验日期]用的是短型,可是总是跳出来类型不匹配,是不是表达式些错了,请教各位,谢谢

Private Sub 命令7_Click()

On Error GoTo Err_命令7_Click

B = Form![自编号]

Set r = CurrentDb.QueryDefs("气瓶信息查询1")

   s = "UPDATE 气瓶信息 SET [气瓶信息]![检验日期] =" + Date + "WHERE [气瓶信息]![自编号]=""" + B + """"



r.sql = s

r.Execute

   MsgBox "记录保存成功"

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_命令7_Click:

Exit Sub

作者: swo 时间: 2004-8-6 07:52
用# & date & #试试

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