av8tordude
01-23-2011, 11:32 AM
I have this code that inputs times each digit I type. Can some assist in editing the code to allow me to enter numbers with commas.
i.e
1000 = 1,000
10000 = 10,000
100000 = 100,000
Select Case Len(Me.txtReport)
Case 1
Me.txtReport = Format(Me.txtReport, "00\:00")
Case Is > 1
v = Replace(Me.txtReport, ":", "")
Me.txtReport = Format(Val(v), "00\:00")
Case Else
End Select
Thank you for your help
i.e
1000 = 1,000
10000 = 10,000
100000 = 100,000
Select Case Len(Me.txtReport)
Case 1
Me.txtReport = Format(Me.txtReport, "00\:00")
Case Is > 1
v = Replace(Me.txtReport, ":", "")
Me.txtReport = Format(Val(v), "00\:00")
Case Else
End Select
Thank you for your help