Modules & VBA :: Function To Keep Numeric Value 4 Digits

Jul 14, 2015

I have the below function that works correctly. However, I would like the "Last_Nbr_Assigned" value to start at 0000 and increment by 1. So the very first number assigned would be 0001, then 0002, then 0003, and so on.

This number is automatically assigned so I haven't had luck with the validation properties. And if manually enter 0001 for the "Last_Nbr_Assigned", it will automatically cut off the 3 zeros, leaving me with 2 instead of the desired 0002.

Code:
Function NewRF() As String
Dim startRange_Var As Long, lastNum_Var As Long
On Error GoTo Err_Execute
'Retrieve last number assigned for RF
groupname_Var = Nz(DLookup("Group_Name", "Codes"), 0)

[Code] ....

View Replies


ADVERTISEMENT

How To Handle Null Fields Requiring Numeric And Text Function Simultaaneously

Jan 8, 2007

Hi friends,

I am new to this forum, and I am facing a problem while learning MS-Access.

I am preparing a database that stores the marks obtained by students in a particular paper in addition to their particulars in tables.
A query is then generated to canculate the aggregate marks and result (Pass/Fail) for the student. It is then presented in a report fomatted as a marksheet, as well as one tabulation chart.

The database is very crude in format, but I am happy with it since I do not know programming at all, and still I could make it.
I have used in built menu of "ms-access" and mouse clicks only for generating query. It was a learn by doing method.

The problem is that my marksheets require absent students to be marked as "ABSENT" or something of that kind. If I convert my Null values to :

Expr2: IIf(IsNull([E_1]),"ABSENT",[E_1])

It shows ABSENT for null value, but refuses to make column total for E_1; On the other hand if I do not enter such expression, it makes column total in tabulation report, but fails to mark "ABSENT" to those who did not appear. So I have to lose one thing to gain another, while I need both.

Can anybody help me at this?

pc

View 5 Replies View Related

Modules & VBA :: Select Case On First Two Digits Of A Field

Feb 4, 2014

I'm trying to use select case on the 1st two digits of a field. I f it equals 1- then the case is meet but its not working. Will this work or no?

[CODE Case (Left(Me.Step42, 2) = "1-")][/CODE]

View 10 Replies View Related

Forms :: Sort Numeric In Alpha-numeric Text

Mar 11, 2014

I have a text field having data i-e HO-1, HO,2, ACW-25 and so on. The field name is nBadge_num and is Unique. The data in this field is sorted automatically like 1, 10, 11, 12, 13, 2, 3, 4, 5...because this is the text field.

The number on the form is automatically generated, when the user type HO- for example on field exit event. The last number will generate like HO-5.

Code for automatic number generation is:

Dim dbs As Database, rst As Recordset, Response
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT Max(Right([nBadge_Num],Len([nBadge_Num])-" & Len(Me.NBadge_Num) & ")) AS MaxNo " _

[Code]....

My problem is when the number is generated it give HO-5 instead of HO-14, How can I sort the numeric part of the field ?

View 2 Replies View Related

Modules & VBA :: Creating A Function That Counts Records And Use That Function In A Query

Dec 11, 2013

So basically I need making a function that will count the number of records from another table/query based on a field from the current query.

View 2 Replies View Related

Modules & VBA :: Forcing One Numeric Field To Be Less Than One Just Entered?

Jul 10, 2013

I have two numeric fields: num_council and num_council_districts

num_council is entered first

num_council_districts has this edit:
>0 And <="[num_council]"

however it stops everything

clearly I'm not understanding something basic

View 2 Replies View Related

Modules & VBA :: Check If String Contains Numeric Characters?

Nov 7, 2013

Is there an easy way in VBA to loop through a recordset and determine if the text string in a text field includes numeric characters?

I'm trying to do something like this:

Code:
Do Until rst.EOF
rst.Edit
If Left(rst!FldText,10) contains any numeric characters Then
rst!FldType = "Mixed"
ElseIF Left(rst!FldText,10) contains "PO" Then
rst!FldType = "PO"
Else
rst!FldType = "Std"
End If
rst.Update

View 2 Replies View Related

Modules & VBA :: Limit A Field To Only Alpha Numeric Characters

Sep 25, 2013

I would like to know how to limit a field on a form to only Alpha Numeric characters.

Example: ~AAUZNTO

This would be scanned by a bar code and I want the field to show only this when scanned: AAUZNTO

View 14 Replies View Related

Modules & VBA :: Putting Data Together With Auto-numeric Field?

Jan 15, 2015

I have 2 databases with the same structure, but different data.

I want to put all the data in 1 database.

The problem is that the most important table (clients)has an autonumeric id field, that is used to link the records to the fields of many other tables; so, I cannot delete or change that field without losing connections.

View 4 Replies View Related

Modules & VBA :: Increment Variable Length Alpha Numeric Field By 1

Jul 8, 2013

I have a database that is used for tracking changes to numerous courses. Part of this database create a unique tracking number for each course problem developed. Currently I have the form do a comparison using the highest most number to compare against the current number assigned and prevent the form from saving until the number is incremented and not a duplicate, it would be a lot easier if I could just have it increment plus 1. I have seen various answers but they all seem to depend on the alpha portion of the field being a set value, in my instance it is variable in length. The only part that is fixed is the last four characters to the right which are the numeric portion I would like to increment. For example the field can equal:

QACP-M-PIQ-6059
QACP-M-PREF-6002

how to extract just the numeric portion, increment it by one and save?

View 2 Replies View Related

Modules & VBA :: Preventing Duplicates On Multiple Fields (Numeric And Text)

Oct 15, 2013

How to prevent duplicates on the combination of two fields - text & numeric?

I'm currently using the code below that warns users when the combination of two fields have already been used. (Combination of the TWO fields has to always be unique so if used again will warn the user)

Works well when both fields are numeric but fails when the JobDetails field is changed to text in the main table (tblPPMPLanner)

Code:
Option Compare Database
Option Explicit
Private Function IsDuplicateRecord() As Boolean
On Error Resume Next
Dim PreviousRecordID As Long
IsDuplicateRecord = False

[Code] ....

The field that should be a text field is called "JobDetails"

View 5 Replies View Related

Modules & VBA :: DLookup Multiple Criteria Not Working - Column Is A Numeric Field

Feb 25, 2015

I have a small problem with dlookup multiple criteria. Vba code looks like this:

Code:

Label34.Caption = DLookup("[Spent_Hours]", "249_1_CHours", "[Date_Added]= " & Me.Text27 & " And [Shift] = '" & Me.Text29 & "'")

This gives following error:

Syntax error in number in query expression '[Date_Added]=4.02.2015 And [Shift] = '2'.

[Shift] column is a numeric field.

View 14 Replies View Related

Modules & VBA :: Separate Numbers And String From Alpha-numeric String

Jun 7, 2013

MS-Access VBA code to separate numbers and string from an alphanumeric string.

Example:

Source: 598790abcdef2T
Output Required: 598790

Source: 5789065432abcdefghijklT
Output Required: 5789065432

View 13 Replies View Related

Last 4 Digits Of SSN

Oct 12, 2004

I have a database that uses the SSN as the primary key, but only the last 4 digits of the SSN need to be shown on the reports that are generated. I can't figure out how to use the Left function to extract only the last 4 digits. For example if a SSN were: 123-45-6789 I would want the field to read ***-**-6789, or just 6789 whichever is easiest. I would appreciate any help that could be given.

View 3 Replies View Related

Last 4 Digits Of Ssn

Feb 13, 2008

I need to pull only the last 4 digits of the SSN. How do I do that in my query?

View 1 Replies View Related

Compare Digits

Mar 8, 2007

Hi there!
I'm bulding this database where the user will have to insert a full phone number. What I would like to know is? if is there any way where Access can pick the first 5 digits of the number to compare with information already imputed in. by example if the user input the number 01942789789, access pick the number 01942 to look for a match? I know I could do with two diferents fields one for the code number and other for the number, but my boss only want one field. Is there anyone that could help me

Thanks

www.joaobeca.co.uk

View 1 Replies View Related

Sort By First 2 Digits Only

Jan 19, 2006

Open the database – then open the Report: rep_Billing

I have a query that is doing some sort and count functions. The column [TYPE] is sorted then counted. Instead of sorting by the full name can the query sort based off of the first 2 characters?

Example:
On the report the first company is: AMERICAN POSTCARDS

First it separates the colors, which is good.
Then separates the [TYPE] then counts the total amount that color was that type.
However I do not want the full type to be separated out, I want it based on the first 2 characters so that the “N-“ will all stay together as a group.

Final count should say: AMERICAN POSTCARDS
GREEN RA 3
RED N- 14
RED PR 16
RED RA 12
BLUE NC 1

I know I can get this info from the report, but it has to be done at the query level because it is going to be exported into another system at that point. Thanks.

Let me know if I need to make this clearer. Thank you all.

Travis

View 2 Replies View Related

Show Everything BUT The Last 3 Digits

Sep 7, 2006

Hi,

I am writing a very very simple query to identify postal codes from a list of addresses. The table containing the data has a field called POSTAL_CODE.

I need to exclude the last three digits of this postal code so as to only show the first 2,3,4 digits.

Example would be simple by having a query just showing the first few digits like this Left$([POSTAL_CODE],4) for example, however that will not show correctly for SK6 5LP and M2 4DJ and SK12 8LY.

I have either 2, 3, 4 digits I will need. All that is sure is - I do not want to see the last three digits. Identifying the last three is of course simple, but I cannot exclude them. Tried this

Right$([POSTAL_CODE],3) - and calling the field LAST_THREE
and then ([POSTAL_CODE]-[LAST_THREE])

However does not work because these are numbers and letters.

Probably a simple one, can someone please help - perhaps a query that sounds like this : show all but not Right$([POSTAL_CODE],3)

Ta

View 1 Replies View Related

Show Everything BUT The Last 3 Digits

Sep 7, 2006

Hi,

I am writing a very very simple query to identify postal codes from a list of addresses. The table containing the data has a field called POSTAL_CODE.

I need to exclude the last three digits of this postal code so as to only show the first 2,3,4 digits.

Example would be simple by having a query just showing the first few digits like this Left$([POSTAL_CODE],4) for example, however that will not show correctly for SK6 5LP and M2 4DJ and SK12 8LY.

I have either 2, 3, 4 digits I will need. All that is sure is - I do not want to see the last three digits. Identifying the last three is of course simple, but I cannot exclude them. Tried this

Right$([POSTAL_CODE],3) - and calling the field LAST_THREE
and then ([POSTAL_CODE]-[LAST_THREE])

However does not work because these are numbers and letters.

Probably a simple one, can someone please help - perhaps a query that sounds like this : show all but not Right$([POSTAL_CODE],3)

Ta

View 2 Replies View Related

Wildcard For One OR More Digits?

Mar 14, 2007

Hello, I'm trying to use wildcards to filter for records that contain a date somewhere within the string.

I'm using Like "*#.##.##*" which works for dates that have a day of the months >10, but what about those under?

Well, Like "*#.#.##*" only works for those with the day of month <10. Is there a wildcard character for "one or more digits"?

Also, the above example excludes Oct. - Dec. for the same reason.

help!

Thanks,
Gifford

View 4 Replies View Related

First 12 Digits From One Field Into Another

Nov 19, 2007

I am having massive problems with data – I have imported data only to find out that Access has not imported all of it as there is a max of 255 fields, and I have loads more!!

I think I can get round this by importing without the delimited or fixed widths into a memo field but this gives me another problem, the the first 12 digits are the ‘Ref_No’

So I have a table called tblCustMemo that I have imported, and I have 3 fields, ID (Primary Key), Ref_No (new and totally empty) and Memo.

How can I put the first 12 characters from the memo field into the Ref_No field?
Then remove the first 13 characters from the memo field (there is a space after the Customers reference number)

I presume I would do this by update queries, but I am currently at a loss!!


I tried this, just to get the first 13 characters then was going to try update query, but this only returned 7 records out of 8687!!

SELECT Custmemo_TEST.ID, Custmemo_TEST.Ref_No, Custmemo_TEST.Memo
FROM Custmemo_TEST
WHERE (((Custmemo_TEST.Memo)=Left([Custmemo_TEST]![Memo],13)));

View 2 Replies View Related

Help Me Block Out The First 5-digits Of The SSN

Mar 13, 2006

I hope someone can help me. I have a report that prints out with the customers social security number on it. I need to change it so that only the last four digits of the SSN show, so it would like something like this XXX-XX-1234. I still want it to keep the full SSN in my Table though so we can search for the customers info with the SSN.

Is there a way that I can change it on the report only and not mess up any other forms that I have it on? Any help would be awesome!

View 4 Replies View Related

Totals But Only If 4 Digits

Oct 25, 2004

i need to total some data, but only if the code contains 4 digits.

by this i mean.

Code --> A101 ----> Occur 35
Code --> A101A ----> Occur 1
Code --> A101B ----> Occur 5
Code --> A101C ----> Occur 3
Code --> A101D ----> Occur 5
Code --> A101E ----> Occur 5
Code --> A101F ----> Occur 5

the total i need to be displayed is 24....

you will see that the first code only has 3 digits in the code...

Can this be done? if so how please

View 1 Replies View Related

Reducing The After Decimal Digits

Dec 21, 2007

I have a table in which i have fields that have numbers with a huge number of digits after the decimal. i.e 10.2356491876545.... when i change the properties of the field to show only two digits. it does display two digits but the number is still stored in its original format. Is there anway i can chop off the unwanted digits forever so that they are not stored in the table anymore.

View 3 Replies View Related

Change Number Of Digits To 5

Jun 30, 2005

have a query with a field that contains numbers with 3,4,and 5 digits. I want to format it so it displays all as 5 digits by adding 0s to the front of the number. EX:

324
4856
45634

change to:
00324
-4856
45634

Help please. Dont want to do it in VBA either. I would rather build it as an expression field or something.

View 2 Replies View Related

How To Query The First 3 Digits Of A Field

Aug 3, 2006

I'm trying to export from a text file. However one of the fields contains 2 items of data, ie the code and name of a person.
eg 'po2 Paul O Mahony'. What I want to do is query only the code(first 3 digits) from this field. ie 'po2'. Is there a way of doing this within a query (sql) or do I have to use vbscript to solve this?
thanks

View 1 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved