Managing Patner

Hankwembo Christopher,FCCA,FZICA,CIA,MAAT,B.A.Sc

<div>
<div class="content wysiwyg-content">
I want the Point of sales report to close automatically either after printing or if it failed to print , how do I do it , please do not worry about the the attached action queries they are there to handle the double entry only , below is my VBA code: 
 
Private Sub CmdPos_Click() 
DoCmd.SetWarnings False 
DoCmd.OpenQuery &quot;QryRevenueAccount&quot; 
DoCmd.OpenQuery &quot;QryCostofSales&quot; 
DoCmd.OpenQuery &quot;QryStockAccount&quot; 
DoCmd.OpenQuery &quot;QryVatAccount&quot; 
DoCmd.OpenQuery &quot;QryReceiptsAcc&quot; 
DoCmd.Save 
DoCmd.OpenReport &quot;rptPosReceipts&quot;, acViewPreview, , &quot;ItemSoldID =&quot; &amp;&nbsp;Me.ItemSoldID 
DoCmd.PrintOut , , , , 1 
DoCmd.Close acReport, &quot;rptPosReceipts&quot; 
Me.Refresh 
End Sub 
 
 
See how the above code can be amended. 
 
Regards 
 
Chris
</div>
</div>

I want the Point of sales report to close automatically either after printing or if it failed to print , how do I do it , please do not worry about the the attached action queries they are there to handle the double entry only , below is my VBA code:

Private Sub CmdPos_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "QryRevenueAccount"
DoCmd.OpenQuery "QryCostofSales"
DoCmd.OpenQuery "QryStockAccount"
DoCmd.OpenQuery "QryVatAccount"
DoCmd.OpenQuery "QryReceiptsAcc"
DoCmd.Save
DoCmd.OpenReport "rptPosReceipts", acViewPreview, , "ItemSoldID =" & Me.ItemSoldID
DoCmd.PrintOut , , , , 1
DoCmd.Close acReport, "rptPosReceipts"
Me.Refresh
End Sub


See how the above code can be amended.

Regards

Chris

How to close the POS report automatically if the print failed

A printer is a peripheral which makes a persistent human readable representation of graphics or text on paper or similar physical media. Traditional printers are being used more for special purposes, like printing photographs or artwork, and are no longer a must-have peripheral; 3D printing has become an area of intense interest, allowing the creation of physical objects. An image scanner is a device that optically scans images, printed text, handwriting, or an object, and converts it to a digital image. Hand-held scanners, where the device is moved by hand, have evolved from text scanning "wands" to 3D scanners used for industrial design, reverse engineering, test and measurement, orthotics, gaming and other applications.

Printers and Scanners

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Sales is the act of selling something; the exchange of goods, services, or property for money. Use this topic to talk about sales cycles & funnels and sales strategy. Please do not use this topic for Marketing.