台历记事本示例：日期的语法错误？

jia　发表于：2014-04-20 09:15:51 　

煮江品茶老师的“台历记事本示例”在2010版本使用中出现---日期的语法

请教

Function CtrlColor()
    Dim i As Integer
    Dim d As Date
    For i = 1 To 42
        If Me.Controls("L" & i).Visible = True Then
            d = DateSerial(Me.年度.Value, Me.月度.Value, Val(Me.Controls("L" & i).Caption))
            If DCount("*", "记事表", "日期= #" & d & "#") > 0 Then
                Me.Controls("L" & i).ForeColor = 255
            Else
                Me.Controls("L" & i).ForeColor = 0
            End If
        End If
    Next
End Function

Top

煮江品茶发表于：2014-04-20 13:54:25

2010没用过。你可以在这个语句之前msgbox d，看看是什么东西。

Top

jia 发表于：2014-04-20 15:46:42

煮江品茶老师您好：显示日期“2014/4/1星期二”

Top

renco 发表于：2014-04-22 21:28:31

d = DateSerial(Me.年度.Value, Me.月度.Value, Val(Me.Controls("L" & i).Caption))

改成

d = cdate(Me.年度.Value & "-" & Me.月度.Value & "-" & Val(Me.Controls("L" & i).Caption))

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]台历记事本示例：日期的语法错误？