Return to Snippet

Revision: 39569
at January 18, 2011 16:03 by heislekw

Initial Code
Private Sub ABID_AfterUpdate()
On Error GoTo Err_Handler
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone

    'Check table for duplicate
    If DCount("ABID", "tblAntibioticsSubjects", "ABID=" & Me.ABID & " AND SubjectID = " & Me.SubjectID) > 0 Then
        'Undo duplicate entry
        'Message box warning of duplication
        MsgBox "This antibiotic has already been selected for this patient.", vbInformation, "Duplicate Antibiotic"
    End If

Set rsc = Nothing

    Exit Sub
    If Err.Number = 94 Then
        ' Invalid use of Null error
        Resume Exit_Handler
    End If
End Sub

Initial URL

Initial Description

Initial Title
Check for duplicate record from many to many table - numeric

Initial Tags

Initial Language
Visual Basic