Help with sorting a form

[MFS]

Hello,
I have been working on a database that Rawb had helped me build, I had a question that I'm hoping someone or quite possibly Rawb may be able to help me with.


On my "Employee Timesheet" form; is there a way to sort the employees alphabetically? (So when the form opens the employees are alphabetically in order)
Also, I added a "shift" field to this form, is there a way to have it show all the "A" shift 1st then the "B" shift and then "C"? (Sorted from A to C)
Attached is a copy of my DB,
Thank You in advance,

Speck

[Missinglinq]

I can't open a 2010 file, but assuming you have a first name and last name, as you should, in the Form_Load event:

Me.OrderBy = "[ShiftField] ASC, [LastName] ASC, [FirstName] ASC"
Me.OrderByOn = True

Change the Field names to the actual names, of course.

Linq ;0)>

[Rawb]

On the Employee Timesheet Form, there's a VBA Sub called Form_Requery(). You will need to update the SQL Query in that Sub with the sorting you want:

Private Sub Form_Requery()
  Me.Form.RecordSource = "SELECT Timesheet.* FROM Timesheet INNER JOIN Employees ON Employees.[Employee_ID] = Timesheet.[Employee_ID] WHERE Timesheet.[Coordinator_ID]=" & Nz(Me!cboCoordinator.Column(0), "0") & " AND Timesheet.[Period_End]=#" & Nz(Me!cboPeriodEnding, CDate(0)) & "# ORDER BY Timesheet.[Shift_ID], Employees.[Name_Last], Employees.[Name_First]"
  Me.Form.Requery
End Sub

In the above code, I changed the sorting from the "default" of Employee_ID (which I should never have done in the first place!) to sorting by the Shift, then last name, then first name.

Also, it might be worth it to include the employee's name in the Timesheet Table directly. That way, if someone changes their name (gets married/divorced, for example) it will properly show their name at that time. You would still be able to find out their current name by searching the Employees Table.

[MFS]

Rawb, This is perfect, Thank You so very much. This little DB is going to help the Coordinators within my company tremendously.

Missinglinq Thank You as well for your help.

Speck