如何根据选择查询找出是否有记录?

时间:2015-04-07 03:44:40

标签: vba access-vba

在我的代码中,我正在对一个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

1 个答案:

答案 0 :(得分:0)

我发现了我的愚蠢错误。我忘了用##附上日期。 所以,如果我将第3行更改为此行:

myR2.FindFirst ("[LimitType] =" & chooseLimitType & "And [ReviewDate] =#" & setDate &"#")

代码按预期工作。