On submit check if duplicate & return w/info

[Sean Tech]

Hello,

I am trying to put some code together for regulating data going into my table. What I am looking for is when the user presses the submit button on the form, a message box pops up if it found that the quote number that was entered into the form has already been used. However, I am also looking for the message box to pull up the name of the quote that was first used.

I am unsure of what information is needed for this but will gladly provide any requested information. A generic example is fine as well.

Thank You,
Sean

[liimra]

Add this to the "OnClick" event and it should work:

If DCount("IDFieldName", "QuoteTableOrQueryName", "[IDFieldName] = " & IDFieldNameOnForm) = 1 Then
MsgBox "This ID was used and Quote was" & " " & "'" & DLookup("QuoteFieldName", "QuoteTableOrQueryName", "[IDFieldName] = " & IDFieldNameOnForm) & "'"
ElseIf DCount("IDFieldName", "QuoteTableOrQueryName", "[IDFieldName] = " & IDFieldNameOnForm) = 0 Then
MsgBox "This ID doesn't exit"

It will count if there is another record with the same IDNumber and return the message you choose with the corresponding quote in single quotes "'".

Regards,
Ali

[Sean Tech]

Thank you very much, That worked. I completely forgot about Dlookup.

[liimra]

Glad it worked. Would you please mark this post as answered so it becomes more helpful for others.

Regards,
Ali