Question

我需要一些关于此代码的帮助，我现在无法解决这些问题。

我正在创建一个用于处理ducment的数据库，这里我需要一个新上传文档的日期。

If MsgBox("Mai dátummal mehet?", vbYesNo, "Verzió") = vbYes Then
    db.Execute ("UPDATE Dokumentumok SET Verzió = Date() WHERE Jelölés='" & Me.Jelölés & "'")
Else
    version = InputBox("Add meg a dátumot éééé.hh.nn.", "Verzió", Date)
    version = Replace(version, ".", ". ")
    If IsDate(version) Then
        db.Execute ("UPDATE Dokumentumok SET Verzió ='" & CDate(version) & "' WHERE Jelölés='" & Me.Jelölés & "'")
    Else
        MsgBox "Rossz formátum, mentve mai dátummal"
        db.Execute ("UPDATE Dokumentumok SET Verzió = Date() WHERE Jelölés='" & Me.Jelölés & "'")
    End If
End If

首先msgbox询问它是否与今天的日期一致，如果是，那么它会更新工作正常的具体日期。如果没有，输入框会询问日期。我住在匈牙利，默认日期格式是YYYY.MM.DD.在这里，默认情况下访问它是YYYY。 MM。 DD。 - 他们之间有空间，不知道是否重要

到目前为止，我尝试使用以下格式输入，例如2015年10月20日：

二〇一五年十月二十○日。
1. 1. 20
二〇一五年十月二十○日
1. 1. 2015
二〇一五年十月二十○日
1. 1. 2015
二〇一五年十月二十○日
20/10/2015

即使尝试使用设置为手动的所有内容的模块中的小代码来更新表中的日期字段，也可以通过isdate（）检查每种类型都通过日期检查，但仍然是代码运行和日期字段保持为空或我得到错误参数太少，如果我尝试与＃34; \＆＃34;而不是＆＃34;。＆＃34;

version = "2015.10.20."
version = Mid(version, 6, 6) & Left(version, 4)
version = Replace(version, ".", "/")
If IsDate(version) Then
db.Execute ("UPDATE Dokumentumok SET Verzió = #" & version & "# WHERE Jelölés=E2")
End If

这个在查询表达式＆＃39; 2015中提供了错误缺失运算符。 10. 20。＆＃39;

    version = "2015. 10. 20. "
    If IsDate(CDate(version)) Then
    db.Execute ("UPDATE Dokumentumok SET Verzió = " & CDate(version) & " WHERE Jelölés=E2")

End If

查询表达式＆＃39;＃2015中的日期中的这一个语法错误。 10. 20。＆＃39;

db.Execute ("UPDATE Dokumentumok SET Verzió = #" & CDate(version) & "# WHERE Jelölés=E2")

我在＆＃39;＆＃39;之间尝试了很多变量组合。或##，＆＃39;＆＃39;，##，日期变量，格式化字符串变量等之间的值。

伙计们，我似乎无法让自己工作，我需要帮助。

提前致谢，克里斯托夫

Answer 1

所有（我希望）国际Access版本理解的日期格式是ISO格式YYYY-MM-DD。

日期分隔符为#

使用Format函数：

"UPDATE Dokumentumok SET Verzió = #" & Format(version, "yyyy-mm-dd") & "#"

访问VBA不会将日期输入日期字段

1 个答案: