OK, the combo box row source would be either a table with two fields
MthNumber Integer
MthName Text
and the row source for the combo box would be
SELECT MthNumber, MthName FROM tblMonths ORDER BY MthNumber;
Set the properties of the combo box to:
Limit to List = TRUE
Column count = 2
Column Widths = 0";1"
List Rows = 13
--------------
OR
a value list (I prefer this):
;"All";1;"January";2;"February";3;"March"; .....;12;"December"
Set the properties of the combo box to:
Row source type = Value List
Column count = 2
Column Widths = 0";1"
List Rows = 13
The query for the form would be :
Code:
SELECT Employees.EmpLName, Employees.EmpDOB
FROM Employees
WHERE (((Month([empdob]))=[forms]![Form7].[cboMonth])) OR ((([forms]![form7].[cboMonth]) Is Null));
In the after update event of the combo box:
Code:
Private Sub cboMonth_AfterUpdate()
Me.Requery
End Sub
Change the BLUE terms to your field/table/combo box names.