Solved

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

Posted on 2006-07-13
15
1,028 Views
Last Modified: 2008-03-06
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
Comment
Question by:pelampe
  • 5
  • 3
  • 2
  • +2
15 Comments
 
LVL 65

Expert Comment

by:rockiroads
ID: 17099853
u could try round

round(2506.00,0)
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 17099863
or format

format(2506.00,"0")
0
 
LVL 44

Expert Comment

by:GRayL
ID: 17099874
update mytable set myfld = replace(myfld,".00","");
0
 
LVL 65

Expert Comment

by:rockiroads
ID: 17099978
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

by:pelampe
ID: 17100219
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

by:Carl2002
ID: 17100579
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
Ransomware-A Revenue Bonanza for Service Providers

Ransomware – malware that gets on your customers’ computers, encrypts their data, and extorts a hefty ransom for the decryption keys – is a surging new threat.  The purpose of this eBook is to educate the reader about ransomware attacks.

 

Author Comment

by:pelampe
ID: 17102213
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

by:
Jim P. earned 25 total points
ID: 17103228
How about

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

Assisted Solution

by:GRayL
GRayL earned 25 total points
ID: 17112332
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

by:rockiroads
ID: 17113714
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:rockiroads
ID: 17113716
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

by:Jim P.
ID: 17445398
No objecions
0
 

Author Comment

by:pelampe
ID: 17504022
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!

Please accept my humble apology.

Have a great day!

Phil
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Overview: This article:       (a) explains one principle method to cross-reference invoice items in Quickbooks®       (b) explores the reasons one might need to cross-reference invoice items       (c) provides a sample process for creating a M…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
Familiarize people with the process of retrieving data from SQL Server using an Access pass-thru query. Microsoft Access is a very powerful client/server development tool. One of the ways that you can retrieve data from a SQL Server is by using a pa…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.

930 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now