有经验的高手教教：插入表中的日期为什么变成1/30/1900？

secondonsite

我定义了一个日期变量PayDate，用插入语句写道表Table中一概变成1/30/1900.请高手点睛。

Insert Into Table (ItermDate) Select DateAdd("m", 1, PayDate)

secondonsite

补充一句：ItermDate字段也是日期型。

andymark

变量PayDate  的类型是日期吗

secondonsite

PayDate变量定义的是:

Dim PayDate As Date

secondonsite

字段ItermDate定义的是

Short Date

Benjamin_luk

是否已将日期赋予了PayDate？

从你贴的代码中看不到这样的语句。[em08]

secondonsite

值已经赋了。下面是原代码。

Dim PayDate As Date

    PayDate = DLookup("ItermDate", "Iterm", "Order = " & DMax("[Order]", "Iterm", "Notes Like " & "'Pay the loan of Camry'"))
   
    While Date >= DateAdd("m", 1, PayDate) And Date <= DateAdd("m", 36, "1/4/2006")
        PayDate = DateAdd("m", 1, PayDate)
        DoCmd.RunSQL "INSERT INTO Iterm ( Notes, SortOrder, Charges, ItermDate, Remark ) SELECT 'Pay the loan of Camry' AS Notes, " & OutlayID & " AS SortOrder, " & Payment & " AS Charges, " & Format(PayDate, "Short Date") & " AS ItermDate, " & Format(PayDate, "Short Date") & " AS Remark"

    Wend

secondonsite

奇怪的是，我用一文本框观察PayDate变量，显示6/4/2006.这是正常显示（文本框设成Short Date）.但打开表还是错的1/30/1900.我将光标放上去，好像变成时间了。似乎将时间12:30:00按日期格式显示的结果。真费解！

Benjamin_luk

在VBA中通配符是这样引用的：

myValue,

文本： ‘“& myValue &”’

数字：“& myValue &”

日期：#“& myValue &”#

自己修改一下试试

secondonsite

高人啊！你的一点点建议拯救了我一天的迷茫，谢谢！