[已解决]加上IF后就不行了,提示 日期格式错误 # .....

SunmoonBaby

原本可以运行的,加上IF后就不行了,提示 日期格式错误  #  #  .....
    Dim mySQL As String
    mySQL = "INSERT into 异常结果(异常项目,异常结果,检查时间,编号,姓名,性别,检查时年龄)"
    mySQL = mySQL & " values('" & "K" & "','" & Me.[K] & "',# " & Me.[检查时间] & "# ," & Me.[编号] & ",'" & Me.[姓名] & "','" & Me.[性别] & "','" & Me.[检查时年龄] & "')"
    If Me.[K] > 5.5 Then Me.[K-性质] = "升高": DoCmd.RunSQL mySQL
    If [K] < 3.5 Then [K-性质] = "降低": DoCmd.RunSQL mySQL


没有IF的时候运行没问题啊...为什么啊...

[ 本帖最后由 cuxun 于 2008-1-25 06:30 编辑 ]

109091372

111111111111111111111

SunmoonBaby

搞定啊,多谢各位!!!

andymark

1.     If Me.[K] > 5.5 Then Me.[K-性质] = "升高": CurrentDb.Execute mySQL
     If [K] < 3.5 Then [K-性质] = "降低": CurrentDb.Execute mySQL
     上面的语句不管K是否大于5.5 或小于3.5 其执行的结果都是一样的, 因为mySQL语句里并没有调用[K-性质] 的内容

SunmoonBaby

Private Sub K_AfterUpdate()
    Dim mySQL As String
    mySQL = "INSERT into 异常结果(异常项目,异常结果,检查时间,编号,姓名,性别,检查时年龄)"
    mySQL = mySQL & " values('K','" & Me.[K] & "',#" & Me.[检查时间] & "#," & Me.[编号] & ",'" & Me.[姓名] & "','" & Me.[性别] & "','" & Me.[检查时年龄] & "')"
    If Me.[K] > 5.5 Then Me.[K-性质] = "升高": CurrentDb.Execute mySQL
    If [K] < 3.5 Then [K-性质] = "降低": CurrentDb.Execute mySQL
End Sub

tz-chf

"K"直接写进去好了，用不着再用&连接了。

SunmoonBaby

代码就在上面啊...

andymark

上传示例看看