Change Order for a Report

[Bob]

Can I change the report order by HorseName1 Asending [Not by HorseID] or by
dtdate as this is doing
Thanks for any Help...Bob

Private Sub Report_Open(Cancel As Integer)
Category.ControlSource = "='" & Form_frmMain.cbCategory & "'"
tblHorseInfo,qryCategory where tblRemarks.HorseID=tblHorseInfo.HorseID and
qryCategory.HorseID = tblHorseInfo.HorseID and qryCategory.dtdate1 =
tblRemarks.dtDate ORDER BY tblRemarks.dtDate DESC;
Me.RecordSource = "SELECT tblRemarks.dtDate, funGetHorse(0,
qryCategory.HorseID,false) AS HorseName1, " _
& " tblRemarks.Category, tblRemarks.Remark FROM tblRemarks, qryCategory
WHERE qryCategory.HorseID " _
& " = tblRemarks.HorseID And qryCategory.RemarkID1 = tblRemarks.RemarkID
" _
& " and tblRemarks.Category='" & Form_frmMain.cbCategory & "'" _
& " ORDER BY tblRemarks.dtDate DESC; "
Debug.Print Me.RecordSource
End Sub

 

[Damian S]

Hi Bob,

Either change the sorting and grouping in the report itself, or change your
ORDER BY clause to use HoreName1 rather than dtDate.

Hope this helps.

Damian.

 

[Maurice]

Hi Damian,

Unlucky typo there... gives the report a whole different look ;-)

Maurice

Hi Bob,

Either change the sorting and grouping in the report itself, or change your
ORDER BY clause to use HoreName1 rather than dtDate.

Hope this helps.

Damian.

Can I change the report order by HorseName1 Asending [Not by HorseID] or by
dtdate as this is doing
Thanks for any Help...Bob

Private Sub Report_Open(Cancel As Integer)
Category.ControlSource = "='" & Form_frmMain.cbCategory & "'"
tblHorseInfo,qryCategory where tblRemarks.HorseID=tblHorseInfo.HorseID and
qryCategory.HorseID = tblHorseInfo.HorseID and qryCategory.dtdate1 =
tblRemarks.dtDate ORDER BY tblRemarks.dtDate DESC;
Me.RecordSource = "SELECT tblRemarks.dtDate, funGetHorse(0,
qryCategory.HorseID,false) AS HorseName1, " _
& " tblRemarks.Category, tblRemarks.Remark FROM tblRemarks, qryCategory
WHERE qryCategory.HorseID " _
& " = tblRemarks.HorseID And qryCategory.RemarkID1 = tblRemarks.RemarkID
" _
& " and tblRemarks.Category='" & Form_frmMain.cbCategory & "'" _
& " ORDER BY tblRemarks.dtDate DESC; "
Debug.Print Me.RecordSource
End Sub