B
Bob V
I want to try and change the order of my Report to show the latest Date
first or the Highest InvoiceID first (Descending)
Thanks for any help with this........................Bob
Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("frmHorseInfo").IsLoaded Then
Report.RecordSource = "SELECT Distinct
tblInvoice.InvoiceDate,tblInvoice.InvoiceID AS InvoiceID," _
& " tblHorseInfo.HorseID, funGetHorse(0,tblHorseInfo.HorseID,false) AS
Name, [StableReturnDate] " _
& " FROM tblInvoice,tblHorseInfo where tblHorseInfo.HorseID " _
& " = tblInvoice.HorseID" _
& " and tblInvoice.HorseID=" & Forms!frmHorseInfo![tbHorseID]
Report_rptHorseExpenses.tbInvoiceDate.Visible = False
ElseIf CurrentProject.AllForms("frmInvoice").IsLoaded Then
Report_rptHorseExpenses.tbInvoiceDate.Visible = True
Report.RecordSource = "SELECT tblInvoice.InvoiceID AS InvoiceID," _
& " qActiveHorseList.* FROM tblInvoice," _
& " qActiveHorseList where qActiveHorseList.HorseID=tblInvoice.HorseID
And " _
& " tblInvoice.HorseID=" & Forms!frmInvoice![cbHorseName]
ElseIf CurrentProject.AllForms("frmInvoiceClient").IsLoaded = True Then
Report_rptHorseExpenses.tbInvoiceDate.Visible = True
Report.RecordSource = "SELECT tblInvoice.InvoiceID AS InvoiceID," _
& " qActiveHorseList.* FROM tblInvoice," _
& " qActiveHorseList where qActiveHorseList.HorseID=tblInvoice.HorseID
And " _
& " tblInvoice.OwnerID=" & Forms!frmInvoiceClient![cbOwnerName]
Debug.Print Report.RecordSource
End If
Debug.Print "Recordsource = " & Report.RecordSource
End Sub
first or the Highest InvoiceID first (Descending)
Thanks for any help with this........................Bob
Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("frmHorseInfo").IsLoaded Then
Report.RecordSource = "SELECT Distinct
tblInvoice.InvoiceDate,tblInvoice.InvoiceID AS InvoiceID," _
& " tblHorseInfo.HorseID, funGetHorse(0,tblHorseInfo.HorseID,false) AS
Name, [StableReturnDate] " _
& " FROM tblInvoice,tblHorseInfo where tblHorseInfo.HorseID " _
& " = tblInvoice.HorseID" _
& " and tblInvoice.HorseID=" & Forms!frmHorseInfo![tbHorseID]
Report_rptHorseExpenses.tbInvoiceDate.Visible = False
ElseIf CurrentProject.AllForms("frmInvoice").IsLoaded Then
Report_rptHorseExpenses.tbInvoiceDate.Visible = True
Report.RecordSource = "SELECT tblInvoice.InvoiceID AS InvoiceID," _
& " qActiveHorseList.* FROM tblInvoice," _
& " qActiveHorseList where qActiveHorseList.HorseID=tblInvoice.HorseID
And " _
& " tblInvoice.HorseID=" & Forms!frmInvoice![cbHorseName]
ElseIf CurrentProject.AllForms("frmInvoiceClient").IsLoaded = True Then
Report_rptHorseExpenses.tbInvoiceDate.Visible = True
Report.RecordSource = "SELECT tblInvoice.InvoiceID AS InvoiceID," _
& " qActiveHorseList.* FROM tblInvoice," _
& " qActiveHorseList where qActiveHorseList.HorseID=tblInvoice.HorseID
And " _
& " tblInvoice.OwnerID=" & Forms!frmInvoiceClient![cbOwnerName]
Debug.Print Report.RecordSource
End If
Debug.Print "Recordsource = " & Report.RecordSource
End Sub