Combo box

[Guest]

Can someone tell me how to populate a combo box with Formated Date of yyyy
say from 1999 to current year

 

[Guest]

Mike,

Place the following code in the OnOpen event of your form:

Dim strRowSource As String
Dim varCntr As Byte
Dim cntr

varCntr = Val(Year(Date)) - 1999
strRowSource = "1999"
For cntr = 1 To varCntr
strRowSource = strRowSource & "; " & Str(1999 + cntr)
Next cntr
With Me.cboYear
.RowSource = strRowSource
.Requery
End With

Change the Me.cboYear to the name of your combo box.

 

[Guest]

Thank You Mr.B

Mike,

Place the following code in the OnOpen event of your form:

Dim strRowSource As String
Dim varCntr As Byte
Dim cntr

varCntr = Val(Year(Date)) - 1999
strRowSource = "1999"
For cntr = 1 To varCntr
strRowSource = strRowSource & "; " & Str(1999 + cntr)
Next cntr
With Me.cboYear
.RowSource = strRowSource
.Requery
End With

Change the Me.cboYear to the name of your combo box.
--
HTH

Mr B
askdoctoraccess dot com

 

[Guest]

Your quite welcome.

Good luck with your project.

Mr B
askdoctoraccess dot com