another "print current record" question

[Guest]

I've been through the gamut of other threads responding to similar requests,
and have been unable to find a solution that works. From a form, I want to
click a command button, and have a coversheet print out with the current
record's info only.

The following code (courtesy of Allen Browne's response to another) gives me
an error - "The expression On Click you entered as the even property setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line below, I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,

 

[Rick B]

Is your button named "cmdPrintCoversheet"?

 

[Guest]

Under Prop -> Name, it shows butPrintCoversheet

Is your button named "cmdPrintCoversheet"?


--
Rick B

I've been through the gamut of other threads responding to similar
requests,
and have been unable to find a solution that works. From a form, I want
to
click a command button, and have a coversheet print out with the current
record's info only.

The following code (courtesy of Allen Browne's response to another) gives
me
an error - "The expression On Click you entered as the even property
setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line below,
I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,

 

[Rick B]

Then why did you put "cmdPrintCoversheet" in your code?

If you want the code to run when you click something called
"butPrintCoversheet" then that is what should be in your "click" event.

--
Rick B

Under Prop -> Name, it shows butPrintCoversheet

Is your button named "cmdPrintCoversheet"?


--
Rick B

I've been through the gamut of other threads responding to similar
requests,
and have been unable to find a solution that works. From a form, I
want
to
click a command button, and have a coversheet print out with the
current
record's info only.

The following code (courtesy of Allen Browne's response to another)
gives
me
an error - "The expression On Click you entered as the even property
setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line
below,
I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,

 

[Guest]

BTW - I really appreciate your help.

Then why did you put "cmdPrintCoversheet" in your code?

If you want the code to run when you click something called
"butPrintCoversheet" then that is what should be in your "click" event.

--
Rick B

Under Prop -> Name, it shows butPrintCoversheet

Is your button named "cmdPrintCoversheet"?


--
Rick B



I've been through the gamut of other threads responding to similar
requests,
and have been unable to find a solution that works. From a form, I
want
to
click a command button, and have a coversheet print out with the
current
record's info only.

The following code (courtesy of Allen Browne's response to another)
gives
me
an error - "The expression On Click you entered as the even property
setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line
below,
I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,

 

[Guest]

I put "cmdPrintCoversheet" in my code and get the same error. I just tried
changing the name of both the button and the subform to cmdPrintCover; now
instead of the original error, it prompts me for DocumentID. I've
double-checked, and that name is consistently and correctly used in the form
and in the button code from what I can see.

Then why did you put "cmdPrintCoversheet" in your code?

If you want the code to run when you click something called
"butPrintCoversheet" then that is what should be in your "click" event.

--
Rick B

Under Prop -> Name, it shows butPrintCoversheet

Is your button named "cmdPrintCoversheet"?


--
Rick B



I've been through the gamut of other threads responding to similar
requests,
and have been unable to find a solution that works. From a form, I
want
to
click a command button, and have a coversheet print out with the
current
record's info only.

The following code (courtesy of Allen Browne's response to another)
gives
me
an error - "The expression On Click you entered as the even property
setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line
below,
I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,

 

[Guest]

edit - by "correctly" I meant no misspellings. Clearly I'm not using it
right somewhere though.

I put "cmdPrintCoversheet" in my code and get the same error. I just tried
changing the name of both the button and the subform to cmdPrintCover; now
instead of the original error, it prompts me for DocumentID. I've
double-checked, and that name is consistently and correctly used in the form
and in the button code from what I can see.

Then why did you put "cmdPrintCoversheet" in your code?

If you want the code to run when you click something called
"butPrintCoversheet" then that is what should be in your "click" event.

--
Rick B

Under Prop -> Name, it shows butPrintCoversheet

:

Is your button named "cmdPrintCoversheet"?


--
Rick B



I've been through the gamut of other threads responding to similar
requests,
and have been unable to find a solution that works. From a form, I
want
to
click a command button, and have a coversheet print out with the
current
record's info only.

The following code (courtesy of Allen Browne's response to another)
gives
me
an error - "The expression On Click you entered as the even property
setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line
below,
I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,

 

[Rick B]

please try...



Private Sub butPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub


You do have a field in your form (and on the report) called "DocumentID",
right?

Your report is named "rptPCCoversheet", correct?



--
Rick B

Under Prop -> Name, it shows butPrintCoversheet

Is your button named "cmdPrintCoversheet"?


--
Rick B

I've been through the gamut of other threads responding to similar
requests,
and have been unable to find a solution that works. From a form, I
want
to
click a command button, and have a coversheet print out with the
current
record's info only.

The following code (courtesy of Allen Browne's response to another)
gives
me
an error - "The expression On Click you entered as the even property
setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line
below,
I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,

 

[Guest]

Ok, problems solved. The first one was caused by me having an extra copy of
the "private sub..." line after the "end sub" statement; it was fine after I
deleted it.

The second problem (not recognizing the ID field) was caused (I think) by
the fact that the report was sourced by a query of the form's source - not
the same source itself. I fixed it by changing the record source to the same
as the form.

Mad props to Rick Daddy for insights into the nature of events, and to
Stanley-Bostitch and Acco for producing sturdy staplers and paper clips with
which I can think when frustrated.

edit - by "correctly" I meant no misspellings. Clearly I'm not using it
right somewhere though.

I put "cmdPrintCoversheet" in my code and get the same error. I just tried
changing the name of both the button and the subform to cmdPrintCover; now
instead of the original error, it prompts me for DocumentID. I've
double-checked, and that name is consistently and correctly used in the form
and in the button code from what I can see.

Then why did you put "cmdPrintCoversheet" in your code?

If you want the code to run when you click something called
"butPrintCoversheet" then that is what should be in your "click" event.

--
Rick B



Under Prop -> Name, it shows butPrintCoversheet

:

Is your button named "cmdPrintCoversheet"?


--
Rick B



I've been through the gamut of other threads responding to similar
requests,
and have been unable to find a solution that works. From a form, I
want
to
click a command button, and have a coversheet print out with the
current
record's info only.

The following code (courtesy of Allen Browne's response to another)
gives
me
an error - "The expression On Click you entered as the even property
setting
produced the following error: Ambiguous name detected: cmdPrint
Coversheet_Click". When I try changing the name in the first line
below,
I
get no error, but nothing at all happens.

Private Sub cmdPrintCoversheet_Click()
Dim strWhere As String

If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If

If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[DocumentID] = " & Me.[DocumentID]
DoCmd.OpenReport "rptPCCoversheet", acViewPreview, , strWhere
End If
End Sub

Thanks for reading this far,