Return to Snippet

Revision: 9679
at November 17, 2008 16:00 by heislekw

Initial Code
Private Sub LastName_BeforeUpdate(Cancel As Integer)
On Error GoTo Err_Handler

Dim LN As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset

Set rsc = Me.RecordsetClone

LN = Me.LastName.Value
stLinkCriteria = "[LastName]=" & "'" & LN & "'"

    'Check table for duplicate
    If DCount("LastName", "tblPatients", stLinkCriteria) > 0 Then
        'Undo duplicate entry
        'Message box warning of duplication
        MsgBox "The last name " & LN & " is already in use." & _
        Chr(13) & Chr(13) & "Please check to see if this patient has already been entered. " & _
        "If not, then assign the patient a different number.", vbInformation, "Duplicate Last Name"
        'Go to the duplicate record
        'rsc.FindFirst stLinkCriteria
        'Me.Bookmark = rsc.Bookmark
    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 value (text)

Initial Tags

Initial Language
Visual Basic