B
Bob Vance
This report code is showing me just the latest date [dtDate], I want to
change it so all Dates show.....Thanks Bob
Private Sub Report_Open(Cancel As Integer)
Category.ControlSource = "='" & Form_frmMain.cmbRemarkOrderAll & "'"
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.cmbRemarkOrderAll & "'" _
& " ORDER BY tblRemarks.Remark ,tblRemarks.dtDate , tblRemarks.Category
;"
Debug.Print Me.RecordSource
End Sub
change it so all Dates show.....Thanks Bob
Private Sub Report_Open(Cancel As Integer)
Category.ControlSource = "='" & Form_frmMain.cmbRemarkOrderAll & "'"
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.cmbRemarkOrderAll & "'" _
& " ORDER BY tblRemarks.Remark ,tblRemarks.dtDate , tblRemarks.Category
;"
Debug.Print Me.RecordSource
End Sub