DateAdd + DLookup

Question

我正在请求一些指导来解决我在尝试编辑数据库中的“AfterUpdate”事件时遇到的问题。它似乎在我的本地机器上正常工作，但是当我尝试在网络数据库中实现它时，它无法正常工作（偶尔会在其中一个字段中随机放入日期，不会在提供新的日期时删除日期ID等）

下面是VBA代码，我有：

Private Sub provider_surveyID_AfterUpdate() 

provider_survey_dueDate = DateAdd("ww", 2, DLookup("completed_on", 
"qry_ProviderSurveyInfo", "provider_surveyID=" & provider_surveyID)) 
provider_survey_reminder2weeks = DateAdd("ww", 4, DLookup("completed_on", 
"qry_ProviderSurveyInfo", "provider_surveyID=" & provider_surveyID)) 
provider_survey_reminder4weeks = DateAdd("ww", 6, DLookup("completed_on", 
"qry_ProviderSurveyInfo", "provider_surveyID=" & provider_surveyID)) 

End Sub 

查询是正确的，在加入调查ID到合适的参与者，以确定在使用原有的“completed_on”日期DateAdd函数。

您能否看到任何原因导致其无法正常工作 - 在输入当前未使用的ID时删除日期？另外，认为在这种情况下使用Nz（provider_surveyID，0）是明智的吗？我还没有实现它，因为我想使它适当地工作，因为它在我的本地没有任何问题 - 我输入ID，它填充;我输入20（尚未使用），它会使所有日期再次为空。

Answer 1

Dlookups使用起来可能很慢且棘手，它也会在未输入标准时返回随机值。我不确定你的表格是如何放在一起的（我假设它是一种形式），这可能是一个部分答案：

Private Sub provider_surveyID_AfterUpdate() 
Dim dtComplete as Date 

If IsNull(provider_serveyID) then 
    provider_survey_dueDate="" 
    provider_survey_reminder2weeks="" 
    provider_survey_reminder4weeks="" 
Else 
    dtComplete = DLookup("completed_on","qry_ProviderSurveyInfo", "provider_surveyID=" & provider_surveyID) 
    provider_survey_dueDate=DateAdd("ww",2,dtComplete) 
    provider_survey_reminder2weeks=DateAdd("ww",4,dtComplete) 
    provider_survey_reminder4weeks=DateAdd("ww",6,dtComplete) 
End if 
End sub