Print Report from Form's ComboBox with Macro Where Condition (1 Viewer)

[arnelgp]

see macro35 so i added On Error.
now in design view of DealersRegion report , check the Open event on how to put Msgbox when there is no data.

 

[irsmalik]

sir @arnelgp​

If Report has No Data, there is a NoData Message....
If Chart Report has No Data..... this NoData Message Does Not Work....
Is there any way to Display NoData Message in Chart Report.....
Thanks
irsmalik

 

[arnelgp]

the db i uploaded was the latest i have.
did you check it first?

 

[irsmalik]

Here is the message when try to run the database... I am using Access 2007

 

[arnelgp]

ooh, i will have to install office 2007 first...

 

[irsmalik]

OK Sir... Thanks I got it.....
But each time we have to modify the Query Name.... Can we make a Standard for all Reports ?
irsmalik

 

[arnelgp]

you don't modify the query name
see macro, i add code.
also added code on the Open event of the report.

 

[irsmalik]

Sir... Arnelgp
this Message is OK

Can we prevent from this Message.... how to Switch Off this Message.... Plz guide

thanks
irsmalik

 

[arnelgp]

did you see the Macro35?
i added OnError macro, put the same to your macro.

 

[irsmalik]

Yes... now I checked.... working with Macro ....it is working good... Thank You Sir....

I am trying to use Event Procedure ..... please check below line.... where I am making Mistake.
***
Private Sub Report_Open(Cancel As Integer)
Cancel = (DCount("1", "Sales by CategoryGLTa") = 0)

DoCmd.SetWarnings False

If Not Cancel Then
With DoCmd
.SelectObject acForm, "CategoryWise"
.Minimize
End With
Else
MsgBox "No data Found for this Category in Greenlet"
End If
End Sub
********************
irsmalik

 

[arnelgp]

Docmd.SetWarnings only applicable only for Action Queries.

 

[irsmalik]

Sir... please check above Code, where to Put
DoCmd.SetWarnings
as this code is not working and both messages are appearing.
irsmalik

 

[irsmalik]

Sir... Arnelgp
I Retrieve a group of fields by using DLookup....
It is ProductName, PackSize, UnitPrice, StockInHand..... etc

=DLookUp("[UnitPrice]","Products","[ProductID] =" & NZ([Forms]![DataEntryForm]![cboProduct],0))

How can I Edit UnitPirce....? in some case, plz guide.
irsmalik