gonzal13
asked on
Addition
I would like to know the formatting on the addition of two labels that are numbers.
curPartsandTax1 = Val(txtPartsCharge1.Text) * 1.08
curLaborHours1 = Val(txtLaborHours1.Text) * 30 Example
lblPartsandTax1.Caption = FormatNumber(curPartsandTa x1, 2) 59.99
lblLaborDollars1.Caption = FormatNumber(curLaborHours 1, 2) 1,374.00
lblJobTotal1.Caption = FormatNumber(curPartsandTa x1, 2) _
+ FormatNumber(curLaborHours 1, 2) 59.991,374.00 ???
curPartsandTax1 = Val(txtPartsCharge1.Text) * 1.08
curLaborHours1 = Val(txtLaborHours1.Text) * 30 Example
lblPartsandTax1.Caption = FormatNumber(curPartsandTa
lblLaborDollars1.Caption = FormatNumber(curLaborHours
lblJobTotal1.Caption = FormatNumber(curPartsandTa
+ FormatNumber(curLaborHours
ASKER
Please close out this question
gonzal13(Joe)
gonzal13(Joe)
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I had not looked at this site since I had posted another question that helped me get started on the project.
This is the final code:
'Maintain a list box.
'Use dropdown combo box
'Use command Buttons
Private Sub cboClear_Click()
'The list is named cboCombo1
'The command clears the Combo1 list
cboCombo1.Clear
End Sub
Private Sub cboCombo1_Change()
End Sub
Private Sub cboCount_Click()
'The ListCount command is used with the message box
'to view the number of lines in the list
MsgBox "The number of Types is " & cboCombo1.ListCount
End Sub
Private Sub cboPrint_Click()
'The ListCount returns the number of items in a list
'If no item is selected, the ListIndex is set to -1.
'The first item in the list is ListIndex 0 and ListCount
'is always one more than the largest List Index
' Index is a database object that provides access to
'Data in rows of a table, based on key values.
Dim intIndex As Integer
Dim intFinalValue As Integer
intFinalValue = cboCombo1.ListCount - 1
For intIndex = 0 To intFinalValue
Printer.Print cboCombo1.List(intIndex)
Next intIndex
Printer.EndDoc
End Sub
'vbExclamation dislays using the Msb Box a
'message found in quotes. Usually a warning Message.
'Private Sub cmdADD_Click()
'
'If cboCombo1.Text <> "" Then
'cboCombo1.AddItem cboCombo1
'Else
'MsgBox "Blank data", vbExclamation, "Error"
'End If
'End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdRemove_Click()
'A combo box control combining the features of a text box
'and list box.
'This control allows the user to select an item either
'by typing into a ComboBox or by selecting it from a list.
'Remove an item from a ListBox or Combo Box.
'object.RemoveItem.Index
'vbInformation Display information using a combo box
If cboCombo1.ListIndex <> -1 Then
cboCombo1.RemoveItem cboCombo1.ListIndex
Else
MsgBox " First select Item to remove", vbInformation, _
"No Selection made"
End If
End Sub
Private Sub cmdSort_Click(Index As Integer)
'Take the combo box list, name the row and sort
cboCombo1.Recordset.sort = "bagles"
End Sub
'Private Sub mnuADD_Click()
'End Sub
'Private Sub mnuFile_Click()
'End Sub
Private Sub Form_Load()
End Sub
gonzal13(Joe)
This is the final code:
'Maintain a list box.
'Use dropdown combo box
'Use command Buttons
Private Sub cboClear_Click()
'The list is named cboCombo1
'The command clears the Combo1 list
cboCombo1.Clear
End Sub
Private Sub cboCombo1_Change()
End Sub
Private Sub cboCount_Click()
'The ListCount command is used with the message box
'to view the number of lines in the list
MsgBox "The number of Types is " & cboCombo1.ListCount
End Sub
Private Sub cboPrint_Click()
'The ListCount returns the number of items in a list
'If no item is selected, the ListIndex is set to -1.
'The first item in the list is ListIndex 0 and ListCount
'is always one more than the largest List Index
' Index is a database object that provides access to
'Data in rows of a table, based on key values.
Dim intIndex As Integer
Dim intFinalValue As Integer
intFinalValue = cboCombo1.ListCount - 1
For intIndex = 0 To intFinalValue
Printer.Print cboCombo1.List(intIndex)
Next intIndex
Printer.EndDoc
End Sub
'vbExclamation dislays using the Msb Box a
'message found in quotes. Usually a warning Message.
'Private Sub cmdADD_Click()
'
'If cboCombo1.Text <> "" Then
'cboCombo1.AddItem cboCombo1
'Else
'MsgBox "Blank data", vbExclamation, "Error"
'End If
'End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdRemove_Click()
'A combo box control combining the features of a text box
'and list box.
'This control allows the user to select an item either
'by typing into a ComboBox or by selecting it from a list.
'Remove an item from a ListBox or Combo Box.
'object.RemoveItem.Index
'vbInformation Display information using a combo box
If cboCombo1.ListIndex <> -1 Then
cboCombo1.RemoveItem cboCombo1.ListIndex
Else
MsgBox " First select Item to remove", vbInformation, _
"No Selection made"
End If
End Sub
Private Sub cmdSort_Click(Index As Integer)
'Take the combo box list, name the row and sort
cboCombo1.Recordset.sort = "bagles"
End Sub
'Private Sub mnuADD_Click()
'End Sub
'Private Sub mnuFile_Click()
'End Sub
Private Sub Form_Load()
End Sub
gonzal13(Joe)
ASKER
I would like to close this question out. I klnow all of you had spent time in helping me. Before I looked at any of your comments, I found the answer in the text book. I have 2000 points and would gladly give someone the points, but there are so man notes, that I do not think it is fare to award points to any one person.
Sincerely
gonzal13(Joe)
Sincerely
gonzal13(Joe)
The FormatNumber() function returns a String object, and the "+" operator means Concatenation for Strings, so try this instead:
lblJobTotal1.Caption = FormatNumber(curPartsandTa
Regards,
Idle_Mind