Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Reference number generator for access

Posted on 2006-11-09
6
Medium Priority
?
220 Views
Last Modified: 2010-04-30
Hi All,

I need to find a way of generating a Number to go in to a text box in access.
the first number has to be based on the date, the numbers after that can be anything.

i,e. "SMP1-1117"

The first number comes from the date, if it is April it is SMP1, May would be SMP2.
April = SMP1
May = SMP2
June = SMP3
July = SMP4
August = SMP5
September = SMP6
October = SMP7
November = SMP8
December = SMP9

The name of the text box it goes in to is "Text50" any help would be great guys.

Thanks so Much.
0
Comment
Question by:pnorris99
  • 3
  • 3
6 Comments
 
LVL 1

Author Comment

by:pnorris99
ID: 17905248
What I had come up with initially was,

Private Sub Text50_Click()

If Calendar1 >= ("01/11/2006") And Calendar1 < ("31/11/2006") Then

Text50 = "test"

End If

End Sub

I was going to use multiple IF statements for the different months.

I have also just thought would it be possible to have the script pick up the year and enter it in the Reference.
So it would be SMP1-06??     ??=Random number.

PS, I will update the point shortly, I am not stingy lol, I am just having bother with my card lol.

Thanks again guys.
0
 
LVL 1

Author Comment

by:pnorris99
ID: 17905269
I increased the points now to a more reasonable amount.
0
 
LVL 15

Expert Comment

by:cquinn
ID: 17905751
Private Sub Text50_Click()

If Calendar1 >= ("01/11/2006") And Calendar1 < ("31/11/2006") Then

Text50 = "SMP" & cStr(Month(Calendar1) -3)

End If

End Sub
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 15

Expert Comment

by:cquinn
ID: 17905754
Opps - left some extraneous code in

Private Sub Text50_Click()

Text50 = "SMP" & cStr(Month(Calendar1) -3)

End Sub
0
 
LVL 1

Author Comment

by:pnorris99
ID: 17906941
Hi Mate thanks for that I have changed it a little to input the year also, do you know of a way displaying a 2 digit year i,e. YY rather than YYYY.

Also do you know of a way to create 2 extra digits on the end of this text that count up in 1's.

I am assuming this will be a little complicated as it is going to need to know what the last number was in order to add 1 to it.

SMP8-06-000  then the next record would be SMP8-06-001


Thanks again,

Private Sub Text50_Click()

Text50 = "SMP-" & cStr(Month(Calendar1) -3) & cStr(Year(Calendar1)) & "-"

End Sub
0
 
LVL 15

Accepted Solution

by:
cquinn earned 2000 total points
ID: 17910320

Private Sub Text50_Click()

Text50 = "SMP-" & cStr(Month(Calendar1) -3) & Format(Calendar1,"yy")) & "-"

End Sub
0

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

There are many ways to remove duplicate entries in an SQL or Access database. Most make you temporarily insert an ID field, make a temp table and copy data back and forth, and/or are slow. Here is an easy way in VB6 using ADO to remove duplicate row…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Suggested Courses
Course of the Month20 days, 22 hours left to enroll

810 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