Microsoft
Software
Hardware
Network
Question : Questio on beforeupdate event to prevent duplicate record
I have a form that has 5 data fields: field 1, ... 5 (the form is bound to an external table). I added a module to prevent duplicate records being saved to database by checking three critical fields (field 1,...3) at UI level, i.e.:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim updtRecs As Recordset
sql = "SELECT field1, field2, field3 FROM table ... WHERE ..."
Set updtRecs = CurrentDb().OpenRecordset(
sql)
If updtRecs.RecordCount <> 0 Then
MsgBox "Warning: Possible duplicate entry."
Cancel = True
End If
...
This works good for new records that contain changes on the three critical fields (feild 1, 2, 3). The problem is when users made change on another non-critical fields (field 4, field 5) on current existent record, the error message will still popup becuase updtRecs.RecordCount is not 0 in this case (since those three critical fields are not changed and is still in current table).
Any good quick fix on this issue so that when users edit and save current non-critical fields on existent records on the form, the validation will be skipped so that there is no such warning (of course, for the three critical fields, the validation is still there)?
I got advice that I could put the code in the before update events of the three fields instead of the form before update event. Is this the best solution? the problem is I have a long duplicate checking module (open and close a recordset, etc.), do I need to call this module everytime a critical field is changed? Thanks for the advice.
Answer : Questio on beforeupdate event to prevent duplicate record
For just 3 known fields you could do..
if me.field1<> me.field1.oldvalue or me.field2<> me.field2.oldvalue or me.field3<> me.field3.oldvalue then
' check for duplicates here
else
' don't bother
end if
Random Solutions
Putting a variable into SQL
SBS 2003 with ISA running Exchange behind another SBS 2003 with ISA w/o Exchange - OWA errors
Reboot Networked Computer
Moving mailboxes from SBS 2003 to Exchange 2007
Nested Subquery efficiency
Exchange 2003 Activesync - some accounts able to authenticate, some return a 403 error on Exchange and can't connect on mobile devices
how do installing owa on a client pc
Help using Function to Get Current User's Desktop: Access 2003 VB
Client Connectivity problems
Change label caption in report header