Hollis, Virginia
hollisvj at pgdp.usec.com
Wed Nov 18 09:43:26 CST 2009
I need to prevent duplicates based on two text field entries. I asked something like this awhile back & want to use something similar on another form except base it on two fields. The ItemName & ItemDesc (these are Text fields). I set the ItemName & ItemDesc as primary keys - thought that would work. But I still can't get it to say - 'hey you already entered this item, you can't add it again'. Also, should they be primary keys or is there a better way for that too? Dim OXK As String Dim stLinkCriteria As String Dim rsc As DAO.Recordset Set rsc = Me.RecordsetClone If Not IsNull(Me.ItemName) Then OXK = Me.ItemName.Value (Need to have ItemDesc too) stLinkCriteria = "[ItemName]=" & "'" & OXK & "'" 'Check for duplicate If DCount("ItemName", "tbl_ItemMain", (AND ItemDesc) _ stLinkCriteria) > 0 Then 'Undo duplicate entry Me.Undo 'Message box warning of duplication If MsgBox("Item " _ & OXK & " has already been entered." _ & vbCr & vbCr & "Would you like to view to the record?", _ vbYesNo, "Duplicate Record") = vbYes Then rsc.FindFirst stLinkCriteria Me.Bookmark = rsc.Bookmark Else Exit Sub End If End If End If Set rsc = Nothing