2015-04-07 50 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 &"#") 

如預期的代碼工作。