S
solar
Hi,
Can u pls.anybody solve this problem....?
i have set primary key for one fields, which indicates duplicate message
when i enter duplicate value. The message access display is too lengthy like
as below.
"The changes you requested to the table were not successful because they
would create duplicate values in the index, primary key, or relationship.
Change the data in the field or fields that contain duplicate data, remove
the index, or redefine the index to permit duplicate entries and try again."
I wanted to display as my desire message, for which i used the following
code which is not working...
Private Sub Text18_AfterUpdate()
On Error GoTo Err_Text18_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Text18_Click:
Exit Sub
Err_Text18_Click:
If InStr(UCase(Err.Description), "DUPLICATE") > 0 Then
MsgBox "Eh..!..Its Duplicate value.."
text18.text = ""
Resume Next
End If
End Sub
Thnx..in advance..
Solar..
Can u pls.anybody solve this problem....?
i have set primary key for one fields, which indicates duplicate message
when i enter duplicate value. The message access display is too lengthy like
as below.
"The changes you requested to the table were not successful because they
would create duplicate values in the index, primary key, or relationship.
Change the data in the field or fields that contain duplicate data, remove
the index, or redefine the index to permit duplicate entries and try again."
I wanted to display as my desire message, for which i used the following
code which is not working...
Private Sub Text18_AfterUpdate()
On Error GoTo Err_Text18_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_Text18_Click:
Exit Sub
Err_Text18_Click:
If InStr(UCase(Err.Description), "DUPLICATE") > 0 Then
MsgBox "Eh..!..Its Duplicate value.."
text18.text = ""
Resume Next
End If
End Sub
Thnx..in advance..
Solar..