Check for duplicate before update

  • Thread starter Thread starter Sandy Burgess
  • Start date Start date
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
 
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)
 
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...
 
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...
 
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...
 
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...
 
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...
 
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...
 
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...
 
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.
--
 
Back
Top