Change system error message 2

[lpgagirl]

I have created an index that prevents duplicate entries on two fields (same first and last name). Access generates an auto message when a duplicate occurs so that it can't be saved. Can I change the content of the message...or how can I have my own error message pop-up, not the system message.

Thanks in advance,



Jeannie

http://www.thefloyds.50megs.com

 

[Ed2020]

How are you saving data to the table? Is it a bound or unbound form?

Ed Metcalfe.

Please do not feed the trolls.....

 

[lpgagirl]

The form is bound to a Query (derived from Main table). The new record is saved using a button control. When the button is clicked to save, I have a dialogue box which appears to ask the user "Do you want to save this record?"

Hope this helps,



Jeannie

http://www.thefloyds.50megs.com

 

[Ed2020]

Private Sub Command4_Click()
On Error GoTo Err_Command4_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
If Err.Number = 2046 Or Err.Number = 3022 Then
MsgBox "The record you are trying to save already exists within the system. Data cannot be saved at this time.", vbExclamation, "Duplicate Data!"
Resume Exit_Command4_Click
Else
MsgBox Err.Description
Resume Exit_Command4_Click
End If

Ed Metcalfe.

Please do not feed the trolls.....

 

[Remou]

If you do not wish to use a button, it is possible to use Form_Error, for example, the code below will produce a custom message in place of the Access message in every (?) case:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
      Const DUPLICATE_VALUES = 3022
      If DataErr = DUPLICATE_VALUES Then
         MsgBox "Tut, Tut"
         Response = acDataErrContinue
      End If
End Sub