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