Hello there. I need help. Is it possible to know what causes the error “Compile error: invalid use of property” towards the vba code that I am working? This occurs whenever I put the call function for “Cost_of_Items” on the Private Sub I am working with. Btw, I am making an automated POS system through VBA userform. Thank you so much!

Computer Networking: A Top-Down Approach (7th Edition)
7th Edition
ISBN:9780133594140
Author:James Kurose, Keith Ross
Publisher:James Kurose, Keith Ross
Chapter1: Computer Networks And The Internet
Section: Chapter Questions
Problem R1RQ: What is the difference between a host and an end system? List several different types of end...
icon
Related questions
Question
Hello there. I need help. Is it possible to know what causes the error “Compile error: invalid use of property” towards the vba code that I am working? This occurs whenever I put the call function for “Cost_of_Items” on the Private Sub I am working with. Btw, I am making an automated POS system through VBA userform. Thank you so much!
X
+
Dim change, Tax, sum, ItemCost, i As Double
Dim Barcode
Function Cost of Items ()
sum = 0
For i = 0 To 1st Display. List Count - 1 Step 1
=
sum
sum =
Next i
Tax= 0.0825
lblSubTotal.Caption = Format ((sum), "$#,##0.00")
lblTax. Caption = Format (((sum* Tax) / 100), "$#,##0.00")
lblTotal.Caption = Format ((((sum* Tax) / 100) + sum), "$#,##0.00")
Barcode = Format ((((sum* Tax) / 100) + sum), "$#,##0.00")
lblItemCo. Caption = Barcode
sum
sum + Val (1st Display.List (i))
Transcribed Image Text:X + Dim change, Tax, sum, ItemCost, i As Double Dim Barcode Function Cost of Items () sum = 0 For i = 0 To 1st Display. List Count - 1 Step 1 = sum sum = Next i Tax= 0.0825 lblSubTotal.Caption = Format ((sum), "$#,##0.00") lblTax. Caption = Format (((sum* Tax) / 100), "$#,##0.00") lblTotal.Caption = Format ((((sum* Tax) / 100) + sum), "$#,##0.00") Barcode = Format ((((sum* Tax) / 100) + sum), "$#,##0.00") lblItemCo. Caption = Barcode sum sum + Val (1st Display.List (i))
Ln 27, Col 6
Run Tools Add-Ins Window Help
(General)
Private Sub Command Mozzadog Click()
ItemCost = 0
ItemCost = ItemCost + 50
1stDisplay.AddItem (ItemCost)
1stItem. AddItem ("Mozzadog")
Call Cost_of_Items
End Sub
Private Sub Frame14 Click()
Transcribed Image Text:Ln 27, Col 6 Run Tools Add-Ins Window Help (General) Private Sub Command Mozzadog Click() ItemCost = 0 ItemCost = ItemCost + 50 1stDisplay.AddItem (ItemCost) 1stItem. AddItem ("Mozzadog") Call Cost_of_Items End Sub Private Sub Frame14 Click()
Expert Solution
steps

Step by step

Solved in 3 steps

Blurred answer
Recommended textbooks for you
Computer Networking: A Top-Down Approach (7th Edi…
Computer Networking: A Top-Down Approach (7th Edi…
Computer Engineering
ISBN:
9780133594140
Author:
James Kurose, Keith Ross
Publisher:
PEARSON
Computer Organization and Design MIPS Edition, Fi…
Computer Organization and Design MIPS Edition, Fi…
Computer Engineering
ISBN:
9780124077263
Author:
David A. Patterson, John L. Hennessy
Publisher:
Elsevier Science
Network+ Guide to Networks (MindTap Course List)
Network+ Guide to Networks (MindTap Course List)
Computer Engineering
ISBN:
9781337569330
Author:
Jill West, Tamara Dean, Jean Andrews
Publisher:
Cengage Learning
Concepts of Database Management
Concepts of Database Management
Computer Engineering
ISBN:
9781337093422
Author:
Joy L. Starks, Philip J. Pratt, Mary Z. Last
Publisher:
Cengage Learning
Prelude to Programming
Prelude to Programming
Computer Engineering
ISBN:
9780133750423
Author:
VENIT, Stewart
Publisher:
Pearson Education
Sc Business Data Communications and Networking, T…
Sc Business Data Communications and Networking, T…
Computer Engineering
ISBN:
9781119368830
Author:
FITZGERALD
Publisher:
WILEY