DatePart VBA

[Guest]

Hi all

Bit of help would be great and very much appreciated - how can I get only
year ("06" not "2006") in a concencated value ???
(Note the yyyy and the yy difference)

This works
Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & DatePart("yyyy", [SomeField])
End Sub

This doesn't
Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & DatePart("yy", [SomeField])
End Sub

 

[Douglas J. Steele]

As you've found, DatePart doesn't recognize yy as a valid parameter.
However, the Format function does. Since you're trying to treat it as text
anyhow, try:

Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & Format([SomeField], "yy")
End Sub

 

[Guest]

Many thanks Douglas

Tried the Format route before but got it wrong so thank you for your
expertise again.

--
Wayne
Manchester, England.
Enjoy whatever it is you do

As you've found, DatePart doesn't recognize yy as a valid parameter.
However, the Format function does. Since you're trying to treat it as text
anyhow, try:

Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & Format([SomeField], "yy")
End Sub




--
Doug Steele, Microsoft Access MVP

(no private e-mails, please)

Hi all

Bit of help would be great and very much appreciated - how can I get only
year ("06" not "2006") in a concencated value ???
(Note the yyyy and the yy difference)

This works
Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & DatePart("yyyy", [SomeField])
End Sub

This doesn't
Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & DatePart("yy", [SomeField])
End Sub

 

[JK]

This should work:
Me.Code = Me.Combo123.Column(0) & Right(Str(Year([SomeField])),2)

Regards/JK

 

[JK]

Ooops, just in case [someField] is not a Date Field

Me.Code = Me.Combo123.Column(0) & Right(Str(Year(CDate([SomeField]))),2)

Reagrds/JK


Me.Code = Me.Combo123.Column(0) &

This should work:
Me.Code = Me.Combo123.Column(0) & Right(Str(Year([SomeField])),2)

Regards/JK

Hi all

Bit of help would be great and very much appreciated - how can I get
only
year ("06" not "2006") in a concencated value ???
(Note the yyyy and the yy difference)

This works
Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & DatePart("yyyy", [SomeField])
End Sub

This doesn't
Private Sub Combo123_AfterUpdate()
Me.Code = Me.Combo123.Column(0) & DatePart("yy", [SomeField])
End Sub