更新日期字段

Question

日期字段名称：EmailDate， Table 姓名：MissingT, 备注字段名称：工作日志。

我正在尝试查询工作日志并找到一个词 "Effective date: " 并在 "Effective date: " 之后的同一行中获取其余字符。然后用它更新 "EmailDate" 字段。

UPDATE MissingT SET MissingT.Emaildate = mid([Worklog],(InStr(1,[Worklog],'Effective Date: ')+16),13)
WHERE (((MissingT.[worklog]) Like  "*" & 'Effective Date: ' & "*" ));

我收到转换错误消息。

另外，有没有办法从下往上而不是从上往下搜索工作日志备注字段？。我创建了另一个名为 "TempD" 的字段，并首先在其中获取日期。所以 TempD 归档中的日期看起来像 "Wed, Dec 3, 2014"。然后我查询使用 cdate 函数更新 emaildate，如下所示： UPDATE MissingT SET MissingT.emaildate = cdate(Format(Right([tempd],4) & "/" & Mid([tempd],6,3 ) & "/" & Mid([tempd],9,2))); ..........但我仍然遇到转换失败。

Answer 1

这可能比您之前的问题更棘手 -

自下而上，使用StrReverse函数。

? StrReverse("Hello World!")
!dlroW olleH

但是如果你想搜索特定字符串的起始位置，那么你可以使用InStrRev函数，

? InStrRev("Hello World! It is a wonderful day. It truly is", "It")
 37 
? InStr("Hello World! It is a wonderful day. It truly is", "It")
 14

你的错误是因为 Mid returns 是一个 String，但我的理解是 EmailDate 字段是 Date 类型。因此，您需要使用 CDate 或 CDbl 函数对其进行包装，以将其视为日期。

更新日期字段

Update a date field

ms-access

vba

sql-update