访问日期格式问题答案

【问题标题】：Access date format issue访问日期格式问题
【发布时间】：2018-11-08 18:55:13
【问题描述】：

我从 DB2 数据库中提取 Access 中的一些数据时遇到问题。 I 查询工作正常，并在访问中创建表以导出到 Excel。但是，我的日期显示为 7 位日期 1181108，当导出到 Excel 时，格式显示为 '181108。我已经尝试了我所知道的一切来更改 Access 中日期的格式，以便它可以正确导出，但我不知所措。将其从文本更改为短日期只会给我一个奇怪的日期，例如 5133 年 9 月 1 日。我知道我在这里遗漏了一些东西。我是 VBA 和 Access 的新手，希望能在这方面朝着正确的方向轻推。感谢您分享您的知识。

让我通过添加我的 SQL 语句来编辑我的问题：下面是我的查询。不确定在哪里插入日期格式部分。 'SQL'statment tp drop data in table

 rs.Open "SELECT ITEMBL.HOUSE, SLQNTY.LLOCN, ITMRVA.ITNBR, ITMRVA.ITDSC, SLQNTY.LQNTY, ITEMBL.MOHTQ, ITMRVA.ITCLS,ITEMBL.PLANIB,ITMRVA.ITTYP,SLQNTY.FDATE, ITEMBL.SCPDT,ITMRVA.UCDEF " _
         & " FROM AMFLIBG.ITEMBL ITEMBL, AMFLIBG.ITMRVA ITMRVA, AMFLIBG.ITMRVB ITMRVB, AMFLIBG.SLQNTY SLQNTY " _
         & " WHERE SLQNTY.HOUSE = ITEMBL.HOUSE And SLQNTY.ITNBR = ITEMBL.ITNBR And ITMRVB.ITNBR = ITMRVA.ITNBR And ITMRVB.ITRV = ITMRVA.ITRV And ITMRVB.STID = ITMRVA.STID " _
         & " AND SLQNTY.ITNBR = ITMRVA.ITNBR AND ((ITEMBL.HOUSE='CYP') AND (ITMRVA.STID='003') AND (ITMRVA.CFST='CUR') AND (SLQNTY.LLOCN ='ADJUST'))", CYP_AdjConn



'Loop through IBM data and for each record found, add it to the local table
Do Until rs.EOF
    rsLocal.AddNew
        rsLocal("Whs") = rs("HOUSE")
        rsLocal("Location") = rs("LLOCN")
        rsLocal("Item") = rs("ITNBR")
        rsLocal("Description") = rs("ITDSC")
        rsLocal("On-Hand") = rs("MOHTQ")
        rsLocal("On-Hand2") = rs("LQNTY")
        rsLocal("Default Cost") = rs("UCDEF")
        rsLocal("Class") = rs("ITCLS")
        rsLocal("Planner") = rs("PLANIB")
        rsLocal("I/T") = rs("ITTYP")
        rsLocal("FIFO") = rs("FDATE")
        rsLocal("Date of last scrap") = rs("SCPDT")
    rsLocal.Update
rs.MoveNext
Loop

【问题讨论】：

标签： vba date ms-access format

【解决方案1】：

看起来像文本日期。在尝试导出到 Excel 之前，将这些（在查询中）转换为真实的日期值，方法是去除前导 1：

TrueDate: DateSerial(Mid([TextField], 2, 2), Mid([TextField], 4, 2), Mid([TextField], 6, 2))

“1181108”-> 2018-11-08

如果字段为“SCSDT”且“上次报废日期”的数据类型为日期，则可能是：

If Val(rs("SCPDT")) = 0 Then
    rsLocal("Date of last scrap") = Null
Else
    rsLocal("Date of last scrap") = DateSerial(Mid(rs("SCPDT"), 2, 2), Mid(rs("SCPDT"), 4, 2), Mid(rs("SCPDT"), 6, 2))

【讨论】：

这将是与提取数据的查询不同的查询吗？或添加到现有查询中。如果添加。我不知道我会把那句话放在哪里。
现有查询应该可以工作。使用查询设计器并在设计网格的字段行上输入该表达式。
@Gustav 谢谢我们越来越近了。日期格式是正确的，但是日期不正确。 “181108”现在看起来像 1931 年 1 月 3 日。我相信可能需要对字符进行一些修剪。 1180710 需要是 07/10/2018 .. 所以我想我需要从文本格式中修剪第一个数字 1 并调整日期，以便首先出现月份和日期，然后出现年份。我错误地引用了它应该有 7 位而不是 6 位的原始文本日期格式。所以 181108 在我的表中是 1181108。很抱歉打错了。
当我为该字段调整您的代码时，这实际上适用于 FDATE。对于 SCPDT 日期，它给了我错误消息：“运行时错误 13 类型不匹配”。（叹）。但它发生的是一些日期只是一个“0”，意思是没有日期。在那个专栏中，我一开始并没有注意到这一点。无论如何要摆脱“0”或忽略。非常感谢。
我已经编辑了答案，将 Null 设置为零值。