Check for duplicate before update

S

Sandy Burgess

I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
 
K

Klatuu

This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
 
S

Sandy Burgess

Same Problem.

However, I removed the validation text from the SSN field on Table Patient
Data. This seems to work for the error message but causes a new issue. The
new issue is that a patient could be loaded without a SSN. That is not
acceptable. Is there a way to make it required on the input form?

Sandy Burgess


Klatuu said:
This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)

--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
Click to expand...
Click to expand...
 
K

Klatuu

Yes, In the form's Before Insert event

If IsNull(Me.textSSN) Then
MsgBox "SSN Is Required"
Cancel = True
End If
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
Same Problem.

However, I removed the validation text from the SSN field on Table Patient
Data. This seems to work for the error message but causes a new issue. The
new issue is that a patient could be loaded without a SSN. That is not
acceptable. Is there a way to make it required on the input form?

Sandy Burgess


Klatuu said:
This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)

--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
Click to expand...
Click to expand...
Click to expand...
 
S

Sandy Burgess

That made sense but it's not working. Now it won't let me even enter the
SSN. It just gives me the SSN is REquired message. Any other idea's?
--
Sandy Burgess


Klatuu said:
Yes, In the form's Before Insert event

If IsNull(Me.textSSN) Then
MsgBox "SSN Is Required"
Cancel = True
End If
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
Same Problem.

However, I removed the validation text from the SSN field on Table Patient
Data. This seems to work for the error message but causes a new issue. The
new issue is that a patient could be loaded without a SSN. That is not
acceptable. Is there a way to make it required on the input form?

Sandy Burgess


Klatuu said:
This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)

--
Dave Hargis, Microsoft Access MVP


:

I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
Click to expand...
Click to expand...
Click to expand...
 
K

Klatuu

That makes no sense.
Try moving the code to the Before Update event.
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
That made sense but it's not working. Now it won't let me even enter the
SSN. It just gives me the SSN is REquired message. Any other idea's?
--
Sandy Burgess


Klatuu said:
Yes, In the form's Before Insert event

If IsNull(Me.textSSN) Then
MsgBox "SSN Is Required"
Cancel = True
End If
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
Same Problem.

However, I removed the validation text from the SSN field on Table Patient
Data. This seems to work for the error message but causes a new issue. The
new issue is that a patient could be loaded without a SSN. That is not
acceptable. Is there a way to make it required on the input form?

Sandy Burgess


:

This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)

--
Dave Hargis, Microsoft Access MVP


:

I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
Click to expand...
Click to expand...
Click to expand...
 
S

Sandy Burgess

Do I leave the coding in TextSSN - Before Update?
--
Sandy Burgess


Klatuu said:
That makes no sense.
Try moving the code to the Before Update event.
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
That made sense but it's not working. Now it won't let me even enter the
SSN. It just gives me the SSN is REquired message. Any other idea's?
--
Sandy Burgess


Klatuu said:
Yes, In the form's Before Insert event

If IsNull(Me.textSSN) Then
MsgBox "SSN Is Required"
Cancel = True
End If
--
Dave Hargis, Microsoft Access MVP


:

Same Problem.

However, I removed the validation text from the SSN field on Table Patient
Data. This seems to work for the error message but causes a new issue. The
new issue is that a patient could be loaded without a SSN. That is not
acceptable. Is there a way to make it required on the input form?

Sandy Burgess


:

This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)

--
Dave Hargis, Microsoft Access MVP


:

I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
Click to expand...
Click to expand...
Click to expand...
 
K

Klatuu

No, putting it there is not reliable because if the user doesn't make any
entry in the control, the event will not fire.
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
Do I leave the coding in TextSSN - Before Update?
--
Sandy Burgess


Klatuu said:
That makes no sense.
Try moving the code to the Before Update event.
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
That made sense but it's not working. Now it won't let me even enter the
SSN. It just gives me the SSN is REquired message. Any other idea's?
--
Sandy Burgess


:

Yes, In the form's Before Insert event

If IsNull(Me.textSSN) Then
MsgBox "SSN Is Required"
Cancel = True
End If
--
Dave Hargis, Microsoft Access MVP


:

Same Problem.

However, I removed the validation text from the SSN field on Table Patient
Data. This seems to work for the error message but causes a new issue. The
new issue is that a patient could be loaded without a SSN. That is not
acceptable. Is there a way to make it required on the input form?

Sandy Burgess


:

This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)

--
Dave Hargis, Microsoft Access MVP


:

I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
Click to expand...
Click to expand...
Click to expand...
 
S

Sandy Burgess

Thanks for the info. I am still working this project. I'll let you know if
I have more questions. You have been extremely helpful. Thanks!
--
Sandy Burgess


Klatuu said:
No, putting it there is not reliable because if the user doesn't make any
entry in the control, the event will not fire.
--
Dave Hargis, Microsoft Access MVP


Sandy Burgess said:
Do I leave the coding in TextSSN - Before Update?
--
Sandy Burgess


Klatuu said:
That makes no sense.
Try moving the code to the Before Update event.
--
Dave Hargis, Microsoft Access MVP


:

That made sense but it's not working. Now it won't let me even enter the
SSN. It just gives me the SSN is REquired message. Any other idea's?
--
Sandy Burgess


:

Yes, In the form's Before Insert event

If IsNull(Me.textSSN) Then
MsgBox "SSN Is Required"
Cancel = True
End If
--
Dave Hargis, Microsoft Access MVP


:

Same Problem.

However, I removed the validation text from the SSN field on Table Patient
Data. This seems to work for the error message but causes a new issue. The
new issue is that a patient could be loaded without a SSN. That is not
acceptable. Is there a way to make it required on the input form?

Sandy Burgess


:

This is why I never use validation rules at the table field level.
You may try using an Undo and see if that will resolve the problem.

MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.UNdo
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)

--
Dave Hargis, Microsoft Access MVP


:

I am really struggling with an input form for new patients. Input form
should NOT allow duplicate SSN's.

Table called patient data contains SSN (text Field). There is also a field
called ID that is numeric. I have the following event procedure coded to the
before update .
Code 1:
Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.SelStart = 0
Me.textSSN.SelLength = Len(Me.textSSN)
End If

End Sub


When a duplicate SSN is entered on the form I get the msg box with "SSN
exists. Verify SSN". When I hit ok. I get an Access Popup that states “The
value in the field or record violates the validation rule for the record or
field ………â€
How can I get rid this second popup?

I have also tried Code 2 which gives me the same result. Code 2 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub

Never fear, I went out on a limb and tried code 3 which gives me the same
result. Code 3 is

Private Sub textSSN_BeforeUpdate(Cancel As Integer)

Dim strCriteria As String

strCriteria = "[SSN] = '" & Me.textSSN & "' AND " _
& "[ID] <> " & Me.textID

If IsNull(DLookup("SSN", "Patient Data", strCriteria)) Then
'do nothing, no match
Else
MsgBox "SSN exists. Verify SSN."
Cancel = True
Me.textSSN.Undo


End If

End Sub


I am a self taught access person. Never learned how to code. Can someone
help me? This is a volunteer project for a health free clinic. Your help is
appreciated
Sandy Burgess
Click to expand...
Click to expand...
Click to expand...
 
S

Sandy Burgess

Just to let you know, I did get this to work. I'm not an expert by any means
but your help allowed me to pull this off. Thank you.
--
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Replace Access error message with more descriptive message. 4
Error Message with Duplicate Values 10
BeforeUpdate Problem 16
BeforeUpdate event 3
How to pass multiple Fields to new Form 2
Error 3075 Syntax Error 5
Autofill 3
Before Update (DCount) 5

Top