[JoeBlack999]

I haven't used Access for about a year and rust has set in. I have been asked to generate a reference number to identify clients. The reference number uses the first three letters from each of the clients first and last name and the unique (autonumber).

I can do this on a form view easily enough:

=Left([fsub_Staff].[Form]![FirstName],3) & Left([fsub_Staff].[Form]![LastName],3) & [fsub_Staff].[Form]![ID]

However, I would really need this to be hard coded back into the underlying database table, consisting of the first, last and autonumber field (as reference).

Any assistance would be appreciated.

[OBP]

I am not sure why they need this reference number, as the Autonumber does the job as far as the database is concerned.
But as you have the job to do, just add the new Reference Number field to the Data Input Form and then use the equivalent VBA version of your Formula in the First and Last Name Fields After Update Event Procedures.
The VBA Version is
me.referencenumber = Left(me.[FirstName],3) & Left(me.[LastName],3) & me.[ID]
where referencenumber is the actual name of your new field.
It needs to be in both fields in case someone changes either field later.

You can also create an update Query to update any current data.

[JoeBlack999]

Originally Posted by OBP

I am not sure why they need this reference number, as the Autonumber does the job as far as the database is concerned.
But as you have the job to do, just add the new Reference Number field to the Data Input Form and then use the equivalent VBA version of your Formula in the First and Last Name Fields After Update Event Procedures.
The VBA Version is
me.referencenumber = Left(me.[FirstName],3) & Left(me.[LastName],3) & me.[ID]
where referencenumber is the actual name of your new field.
It needs to be in both fields in case someone changes either field later.

You can also create an update Query to update any current data.

I assume its the code builder, option on the afer update event procedure?

Private Sub FirstName_AfterUpdate()
Me.Reference = Left(Me.[FirstName], 3) & Left(Me.[LastName], 3) & Me.[ID]
End Sub


Access spits out some errors, what or where have I goofed up?

[OBP]

Sorry , I missed your reply yesterday, what errors do you get?
You may need to set some Library references to use the VBA code.

[JoeBlack999]

Originally Posted by JoeBlack999

I assume its the code builder, option on the afer update event procedure?

Private Sub FirstName_AfterUpdate()
Me.Reference = Left(Me.[FirstName], 3) & Left(Me.[LastName], 3) & Me.[ID]
End Sub


Access spits out some errors, what or where have I goofed up?

Sorry for the delay in responding - the code is working - must have not pasted it in correctly - thanks for your help - problem now solved.l