Hello Everyone Ok I have a line

[gator9]

Hello Everyone

Ok I have a line of code here that is designed to take the amount out of a field and put it in another field without the decimal being in the amount. The problem is that when this happens with an amount that is say [$240.50] or [$240.00] it shows up like [2405], and [240] how can I get it to make sure the [00] ceros are added at the end.

Me.MicrPA = Replace([PaymentAmount], ".", "", 1)

Sincerely,

Charles

http://gator9.com

 

[chmohan]

use the Right function and check for 2 0s and if they are add them after ur replace conversion

 

[gator9]

Do you have and example: Also it is ether 2 0s or 1 0 that causes the problem.

Sincerely,

Charles

http://gator9.com

 

[chmohan]

Dim StrVar
If Right(PaymentAmount,1) = "0" Then strVar= "0"
If Right(PaymentAmount,2) = "00" Then strVar= "00"

Me.MicrPA = Me.MicrPA & strVar

 

[gator9]

Thanks for all your help, but can you look at the code below and tell me if it is possible to do a public funiction that would do what I need as in pop the field via =MicrPA([PaymentAmount])

Public Function MicrPA(ByVal strDataToEncode As String)
Dim StrVar
If Right(PaymentAmount, 1) = "." Then StrVar = ""
If Right(PaymentAmount, 1) = "0" Then StrVar = "0"
If Right(PaymentAmount, 2) = "00" Then StrVar = "00"
MicrPA = MicrPA & StrVar
End Function

Thanks A LOT

Sincerely,

Charles

http://gator9.com

 

[chmohan]

Public Function ChangeMicrPA(ByVal strDataToEncode As String)as String
Dim StrVar
If Right(strDataToEncode, 1) = "0" Then StrVar = "0"
If Right(strDataToEncode, 2) = "00" Then StrVar = "00"
ChangeMicrPA = StrVar
End Function
MicrPA=MicrPa & ChangeMicrPA(PaymentAmount)

 

[gator9]

Get an error and debug message when it exe. Also the decimal line of code is not in there.


Sincerely,

Charles

http://gator9.com

 

[chmohan]

Public Function ChangeMicrPA(ByVal strDataToEncode As String)as String
Dim StrVar
StrVar=""

If Len(strDataToEncode)>0 Then
If Right(strDataToEncode, 1) = "." Then StrVar = ""
If Right(strDataToEncode, 1) = "0" Then StrVar = "0"
If Right(strDataToEncode, 2) = "00" Then StrVar = "00"
ChangeMicrPA = StrVar
End If
End Function
MicrPA=MicrPa & ChangeMicrPA(PaymentAmount)

make sure paymentamount is a string and a valid one at that ie len is more than 0

 

[dilettante]

Me.MicrPA = CStr(CLng(CSng(PaymentAmount) * 100))

 

[gator9]

That works great and the simplest of all thanks!!!!

Sincerely,

Charles

http://gator9.com