VBA enabling to add the Current Year in in a field.

[Demerit]

I have this VBA in my DB and i wish that the current year be added to it but only the last two digits of the year:

Private Sub SupplierID_AfterUpdate()
Me.PurchaseIDNew = "PU00" & [PurchaseIDAutoNumber]


End Sub

Let it look like this:

Private Sub SupplierID_AfterUpdate()
Me.PurchaseIDNew = "PU00" & [PurchaseIDAutoNumber] & "/" & "Current year"
End Sub


An example is this: PU0064/13

Thanks in advance for your help

[June7]

Try:

Me.PurchaseIDNew = "PU00" & [PurchaseIDAutoNumber] & "/" & Right(Year(Date()), 2)

or

Me.PurchaseIDNew = "PU00" & [PurchaseIDAutoNumber] & "/" & Format(Date(),"YY")

[Demerit]

Thanks June7 Access has automatically changed them to:

Me.PurchaseIDNew = "PU00" & [PurchaseIDAutoNumber] & "/" & Right(Year(Date), 2)

and

Me.PurchaseIDNew = "PU00" & [PurchaseIDAutoNumber] & "/" & Format(Date, "YY")

But they work perfectly

[Demerit]

How do i mark a Thread as solve?

[June7]

Thread Tools dropdown above first post.

[Demerit]

Thanks i have seen it