Sorting on a subform

[MisterA2]

I've had this Access DB for years. It's has a master table or names and a child table with attendance dates.

The form shows on the screen with a tab for the attendance form. The form sorts the dates in DES order.

I wanted to click a button and:
Add a Record
Then sort the attendance dates in ASC order so the new added record would be at the top.
move the focus to the new (empty) attenance date.

I got the add a record by entering this code inn the On Clicl property of the New Button:

Dim StrSQL
StrSQL = "Insert into Attendance (IDNUM) Select IDNUM from Member where IDNUM = [Forms]![Secretary Changes]![IDNUM];"
Docmd. RunSQL StrSQL

Docmd.doMenuItem acformbar, acrecordsmenu,5 , , acmenuver70 (Refresh)

But Orderon doesn't work!!! Even if I set the focus to the Attendance form.


Any help would be greatly appreciated

Alan

[meratigoerr]

Is the button on the main form or on the subform:

Mainform:

Forms!MainFormName!SubformName.form.OrderBy = "[DateField] desc"
Forms!MainFormName!SubformName.form.orderOn = True

SubForm:

Me.OrderBy = "[DateField] Desc"
Me.OrderOn = True

[MisterA2]

Hi,

Great Reply!

Here is the full Code for anyone with this issue:

Private Sub CmdAddRec_Click()
Dim StrSQL As String
'Add New Attendance Record
StrSQL = "Insert into Attendance (IDNUM) Select IDNUM from Member where IDNUM = [Forms]![Secretary Changes]![IDNUM];"
DoCmd.RunSQL StrSQL

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

'Set Focus to New Record
Me.Attendance1_subform.SetFocus

'Change Attendance Date Sort to ASC so Cursor is in New Date Field
Forms![Secretary Changes]![Attendance1 subform].Form.OrderBy = "AttendDate ASC"
Forms![Secretary Changes]![Attendance1 subform].Form.OrderByOn = True
End Sub


Thanks Again for the Quick Reply,
Alan
Staten Island, NY