Edit U. S. Dollars

Bullfrog · Jan 19, 2000

Got kind of lost trying to Write my own Input-Edit For Dollars. 
Is there a Down load available ... Thanks

DougP · Jan 19, 2000

What method are you using to do it? 
Inut mask ????

tusconpapa · Jan 21, 2000

'''' Try this as a private sub .....Click 
Dim Mykash, MyCurr, mycheck 
Dim answ, test, Mypos 
Dim Dpoint 
Dim mylen 
''''''''' Badflag is in module1.bas as a global 
 
''''''This is a slice out of a larger Effort 
 
Mypos = 0 
Mykash = Amount.Text 'Puts Entry into Mykash 
If Mykash = " *" Then ' a bypass note leading space 
GoTo Bypass 
End If 
If Mykash = " 0" Then ' a bypass note leading space 
GoTo Bypass 
End If 
 
If Mykash = Empty Then 'Req By Office 
MsgBox "Insert value in amount" 
badflag2 = "yes" 
GoTo Theend 
End If 
 
If Mykash = Null Then 'R B O 
MsgBox "Insert value in amount" 
Badflag = "yes" 
GoTo Theend 
End If 
 
If Mykash = "" Then 'R B O 
MsgBox "Insert value in amount" 
Badflag = "yes" 
GoTo Theend 
End If 
 
 
mycheck = IsNumeric(Mykash) ' Returns True if good number. 
If mycheck = False Then 
MsgBox "Amount must be all numeric with one decimal point" 
badflag2 = "yes" 
GoTo Theend 
End If 
 
 
Mypos = InStr(1, Mykash, ".", vbTextCompare) 'GIVES POSITION OF FIRST "." 
 
 
mylen = Len(Mykash) ' gives length of Mykash 
answ = mylen - Mypos ' gives position of decimal point 
If Not answ = 2 Then ' two positions for US currency 
MsgBox "Decimal Point not in correct position" 
badflag2 = "yes" 'additional marker for errors 
GoTo Theend 
End If 
 
Enddecimal:

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Edit U. S. Dollars

Bullfrog

MIS

DougP

MIS

tusconpapa

MIS

Similar threads

Part and Inventory Search

Sponsor