Solved

# How remove decimal and 2 trailing zeros from multiple values in field

Posted on 2006-07-13
1,027 Views
Hello,

I have a table that has numeric values (eg. 2506.00) that I have already convert to text.  Now I need to remove the decimal and the 2 trailing zeros.  The field name is Group_Index.  Also, in case you need to know, the values are not all 4 digits. They actually start at 1.00, then go all the way to 2506.00.

So I want 2506.00 to be changed to 2506.

Would I do this using an update query?  How should it be written?  If you can provide me with the SQL that would be even better!

Thanks!
0
Question by:pelampe
• 5
• 3
• 2
• +2

LVL 65

Expert Comment

u could try round

round(2506.00,0)
0

LVL 65

Expert Comment

or format

format(2506.00,"0")
0

LVL 44

Expert Comment

update mytable set myfld = replace(myfld,".00","");
0

LVL 65

Expert Comment

yes, update query, thats what u asked for in your last sentence!
Well I guess GRayL has given u the syntax
and after re-reading, values are not all digits

stick with his solution

0

Author Comment

Couldn't get it to work.

Here is the SQL:

UPDATE Parcel_Info SET Parcel_Info.Group_Index = replace(Group_Index,".00","");

Here is the error message: Undefined function 'replace' in expression

Let me know what I'm doing wrong, please.

BTW, using Access 97 is that is relevant.

Phil.
0

LVL 4

Expert Comment

If its text you could use instr() to locate the decimal point then take everything to the left of it.

heres the syntax

Expr1: IIf(InStr([field1],".")=0,[field1],Left([field1],InStr([field1],".")))

Just an idea.

Carl.
0

Author Comment

Carl,

Almost worked.  Took the 2 trailing zeros off.  But left the decimal.

So it went from this: 2506.00

to this 2506.

Any ideas?
0

LVL 38

Accepted Solution

Jim P. earned 25 total points

UPDATE Parcel_Info SET Parcel_Info.Group_Index = Left(Group_Index,Len(Group_Index)-3   );
0

LVL 44

Assisted Solution

GRayL earned 25 total points
Replace does not work with Jet In A97.  You could also try:

UPDATE Parcel_Inof SET Parcel_info.Group_Index = Left(Group_Index,Instr(Group_Index,".00")-1)
0

LVL 65

Expert Comment

Ray, here is a version of Replace for A97

Public Function A97Replace(pstrIn, pstrOld, pstrNew)

Dim strWork As String
Dim strL As String
Dim strR As String
Dim intX As Integer
strWork = pstrIn

Do
intX = Nz((InStr(1, strWork, pstrOld, vbTextCompare)), 0)
If intX > 0 Then
strL = Left\$(strWork, intX - 1)
strR = Right\$(strWork, (Len(strWork) - intX - Len(pstrOld) + 1))
strWork = strL & pstrNew & strR
Else
Exit Do 'Escape from the loop if nothing else to do
End If
Loop

A97Replace = strWork
End Function

so u could still use your original solution

update mytable set myfld = a97replace(myfld,".00","");

UPDATE Parcel_Info SET Parcel_Info.Group_Index = A97Replace(Group_Index,".00","");

But Jim's and your alternative solution will work just as well so as long as it just ends with .00

0

LVL 65

Expert Comment

By the way, the post if for information only, not an attempt to get points! so please do not accept my post as part of any solution
0

LVL 38

Expert Comment

No objecions
0

Author Comment

Hello All,

I apologize for not responding sooner, but I just got back from a two week vacation, yesterday.

BTW, you all have been a TREMENDOUS help to me in getting a better grip on how to use Access  and I GREATLY apprieciate having a forum like this!

Have a great day!

Phil
0

## Featured Post

Introduction The Visual Basic for Applications (VBA) language is at the heart of every application that you write. It is your key to taking Access beyond the world of wizards into a world where anything is possible. This article introduces you to…
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship. Add the tables: Create the relationship: Decide if you’re going to set referential integrity: Decide if you want cascade upda…