Solved

Keeping a number as a lenth=4 string

Posted on 2003-11-07
3
146 Views
Last Modified: 2010-05-03
I have a string called CustomerID and I need it in the format 0003, 0014 etc...  this is what I have, but my problem is if I enter a number say 13 it gives me 00013 when I really want 0013.  It is the select case part of the function that the problem lays I think.

'Creates a new JobID
Public Function NewJobID() As String
    Dim JobID As String, Counter As Single
    JobID = LastJobID + 1
    LastJobID = LastJobID + 1
    Call UpdateLastIDs
    Select Case JobID
        Case 1 To 9
            NewJobID = "000" & JobID
        Case 10 To 99
            NewJobID = "00" & JobID
        Case 100 To 999
            NewJobID = "0" & JobID
        Case 1000 To 9999
            NewJobID = JobID
    End Select
End Function


Thanks, Jebus
0
Comment
Question by:dj__jebus
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 

Author Comment

by:dj__jebus
ID: 9706198
lol, woops I said CustomerID    oh well, I have identical functions for both CustomerID and JobID, same thing...
0
 
LVL 3

Accepted Solution

by:
NBrownoh earned 50 total points
ID: 9706222
Ret = Abs(4 - Len(CStr(YourNum)))
FormatNum = String(Ret, "0") & YourNum

FormatNum is the number correctly formatted for this, and YourNum should be replaced with the variable holding the number you want to format
0
 
LVL 3

Expert Comment

by:NBrownoh
ID: 9706227
BTW FormatNum is a string variable and Ret is an integer variable
0

Featured Post

Salesforce Made Easy to Use

On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.

Question has a verified solution.

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

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
If you have ever used Microsoft Word then you know that it has a good spell checker and it may have occurred to you that the ability to check spelling might be a nice piece of functionality to add to certain applications of yours. Well the code that…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

689 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