2015-04-07 41 views
0

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

我发现我的愚蠢的错误。我忘记用##附上日期。 所以如果我改变了3号线到这一个:

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

如预期的代码工作。