Solved

Reference number generator for access

Posted on 2006-11-09
6
208 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
ScreenConnect 6.0 Free Trial

Discover new time-saving features in one game-changing release, ScreenConnect 6.0, based on partner feedback. New features include a redesigned UI, app configurations and chat acknowledgement to improve customer engagement!

 
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 500 total points
ID: 17910320

Private Sub Text50_Click()

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

End Sub
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

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

You can of course define an array to hold data that is of a particular type like an array of Strings to hold customer names or an array of Doubles to hold customer sales, but what do you do if you want to coordinate that data? This article describes…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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 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…

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