Ambiguous Name Error

If you're not calling the routines anywhere, then yes, delete them.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)



"pm" wrote in message
...
Oh, by the way...I don't have any commands or macros entitled
"Update_Retail", nor any similar for "Distr". This all started because I
wanted to refresh the list box entries and see the most recent contact ID.
I
would be happy now if I can just get these records entered.

Shall I take out all these "Update" references?

"Joan Wild" wrote:

You have two copies of Private Sub Update_Retail_Click(). Delete the
lines
as indicated below (via a 'X')

"pm" wrote in message
...
I am getting "Ambiguous name Detected" error for a command that no
longer
exists on my form.

The following is a copy of what is in the module behind the form, but I
don't know what to take out or leave in.
------------------------------
X Private Sub Update_Retail_Click()
X On Error GoTo Err_Update_Retail_Click
X
X Dim stDocName As String
X
X stDocName = "Last Retail ID"
X DoCmd.OpenQuery stDocName, acNormal, acEdit
X
X Exit_Update_Retail_Click:
X Exit Sub
X
X Err_Update_Retail_Click:
X MsgBox Err.Description
X Resume Exit_Update_Retail_Click
X
X End Sub
Private Sub Update_Retail_Click()
On Error GoTo Err_Update_Retail_Click

Dim stDocName As String

stDocName = "Last Retail ID"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Update_Retail_Click:
Exit Sub

Err_Update_Retail_Click:
MsgBox Err.Description
Resume Exit_Update_Retail_Click

End Sub
Private Sub Update_Distr_Click()
On Error GoTo Err_Update_Distr_Click

Dim stDocName As String

stDocName = "Last Distr ID"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Update_Distr_Click:
Exit Sub

Err_Update_Distr_Click:
MsgBox Err.Description
Resume Exit_Update_Distr_Click

End Sub
-----------------------

Would appreciated simple steps to resolve this.

I have to finish a project TODAY and need help ASAP!



--
Joan Wild
Microsoft Access MVP