record sort

[peterbowles]

Hi,
This is the problem

form 1

The form has a date field and a text field. all field are displayed in tabular. They are sorted in date order with the most recent being at the top of the list. When I enter a new date with text I want the form to automatically sort the new record

any help would be great

 

[Rich]

Private Sub Command41_Click()
On Error GoTo Err_Command41_Click
DoCmd.RunCommand acCmdSaveRecord
txtDate.SetFocus
DoCmd.RunCommand acCmdSortAscending
Exit_Command41_Click:
Exit Sub

Err_Command41_Click:
MsgBox Err.Description
Resume Exit_Command41_Click

End Sub
or Descending as the case may be