Code:
SELECT GetFiscalYear([InvoiceDate]) AS [Fiscal Year], fFiscalPeriod([InvoiceDate]) AS Period, BudgetCodeID, Sum(InvoiceDetails.Amount) AS SumOfAmount, (SELECT Sum(InvoiceDetails.amount)
SELECT GetFiscalYear([InvoiceDate]) AS [Fiscal Year], fFiscalPeriod([InvoiceDate]) AS Period, BudgetCodeID, Sum(InvoiceDetails.Amount) AS SumOfAmount, (SELECT Sum(InvoiceDetails.amount)
SELECT GetFiscalYear([InvoiceDate]) AS [Fiscal Year], fFiscalPeriod([InvoiceDate]) AS Period, DatePart("q",[invoicedate]) AS Quarter, DatePart("m",[invoicedate]) AS [Month],
Public Function CheckListbox(strPass As String, lstPersons As ListBox)
Dim intCurrIndex As Integer
Dim intStringLen As Integer
intStringLen = Len(strPass)
strBuild = strBuild & lst.Column(1, i) & ";" & lst.Column(2, i)
Dim fDialog As Office.FileDialog Dim varFile As Variant 'Clear listbox contents. 'Me.FileList.RowSource = "" 'Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog
Dim strReport As String
Dim strDateField As String
Dim startDate As String
Dim endDate As String
Dim strWhere As String
Dim lngView As Long
Const strcJetDate = "\#mm\/dd\/yyyy\#"
strDateField=[SubmitDate]
Select
Leave a comment: