在我的代码中,我正在对一个Access表中的记录进行一些批量编辑并添加新记录。然而,在添加新记录之前,我需要通过检查几个字段来检查是否已经有这样的记录,如果它们存在则没有任何操作,如果没有这样的记录,则完成编辑和添加。 这是检查部分的代码:
Set myR2 = CurrentDb.OpenRecordset("_tbl_FILimits_", dbOpenDynaset)
'If the recordset is non-empty, exit.
myR2.FindFirst ("[LimitType] =" & chooseLimitType & "And [ReviewDate] =" & setDate)
If myR2.NoMatch Then
MsgBox "There is no such period exists, proceding next..."
updateRecords myR, myArray
Else
MsgBox "!!! Choose different review date. ALready exists such period! Quitting..."
Exit Sub
End If
答案 0 :(得分:0)
我发现了我的愚蠢错误。我忘了用##附上日期。 所以,如果我将第3行更改为此行:
myR2.FindFirst ("[LimitType] =" & chooseLimitType & "And [ReviewDate] =#" & setDate &"#")
代码按预期工作。