hi experts,
i have problem in displaying commas and decimal to a certain amount in a textbox and label. it only display certain amount without comma.
below are my codes;
______
Private Sub lblAllowable_Change()
lblAllowable.Caption = Format("4321", "#,##0.00")
End Sub
____
____
Private Sub cmdSearch_Click()
txtLastname.Text = ""
txtFirstname.Text = ""
txtMiddle_Initial.Text = ""
Set rs = New ADODB.Recordset
rs.Open "Select Lastname, Firstname, Middle_Initial, Rate from Employees where Employees_IdNo Like '" & txtSearch & "'", cn, adOpenKeyset, adLockPessimistic
If Not rs.EOF Then
lblAllowable.Caption = Round(Val(lblRate * 30 * 0.4), 2)
Ado.RecordSource = "Select Lastname, Firstname, Middle_Initial, Rate from Employees where Employees_IdNo Like '" & txtSearch & "'"
Ado.Refresh
rs.Close
Set rs = Nothing
Else
MsgBox "No entry yet for this ID Number", vbCritical, "Charges"
End If
End Sub
____