CD Publisher

 Introduction

In this exercise, we will develop an application for a small CD publishing company. The owner wants the prices to be calculated so a customer would get a discount if he orders more. To attract customers and encourage them to order more, she has decided to fix the prices so that the customer would pay:

• \$20/CD if she orders less than 20 units
• \$15/CD if she orders less than 50 units
• \$12/CD if she orders less than 100 units
• \$8/CD if she orders less than 500 units
• \$5/CD if she orders more than 500 units

1. Start Microsoft Access and create a blank database
2. Save the database as CD Publisher
3. Start a new form in Design View. Save it as PriceEvaluation
4. To use the needed spin button, on the Toolbox, click the More Controls button
5. From the list, click Microsoft UpDown Control, Version 6.0 and click somewhere on the form
6. Design the form as follows:

 Control Properties Form Caption: CD Publisher - Order Evaluation Navigation Buttons: No Modal: Yes Border Style: Dialog TextBox Label Caption: Number of CDs: Name: txtQuantity UpDown Name: updQuantity Alignment: Right Align Buddy Control: txtQuantity Max: 10000 TextBox Label Caption: Unit Price: Name: txtUnitPrice Format: Currency Decimal Places: 2 TextBox Label Caption: Total Price: Name: txtTotalPrice Format: Currency Decimal Places: 2 CommandButton Use the Command Button Wizard to create a button used to close the form. Set its Caption to Close and Name it cmdClose
7. Access the Code Editor or Microsoft Visual Basic. In the Object combo box, select updQuantity. In the Procedure combo box, select Change
8. Implement the Change event as follows:

 ```Private Sub updQuantity_Change() Dim Quantity As Integer Dim UnitPrice, TotalPrice As Currency txtQuantity = updQuantity.Value Quantity = updQuantity.Value If Quantity < 20 Then UnitPrice = 20 ElseIf Quantity < 50 Then UnitPrice = 15 ElseIf Quantity < 100 Then UnitPrice = 12 ElseIf Quantity < 500 Then UnitPrice = 8 Else UnitPrice = 5 End If TotalPrice = Quantity * UnitPrice txtUnitPrice = CStr(UnitPrice) txtTotalPrice = CStr(TotalPrice) End Sub```
9. To allow the user to enter a quantity value, access the LostFocus event of the txtQuantity text box and implement it as follows:

 ```Private Sub txtQuantity_LostFocus() updQuantity.Value = CInt(txtQuantity) End Sub```
10. Test the application