Recent content by Nouba

I didn't look at Pat's sample, but a function like this could be used for customizing the output format. Function TimeSumString(ByVal hrs As Long, ByVal mins As Long) As String TimeSumString = Format$(hrs + mins \ 60, "00") + ":" + Format$(mins Mod 60, "00") End Function

CDate(1.333333/24) should give you the desired Value.

The WhereCriteria should be a legal Where expression of a query without the word where. If your'e using text fields in your expression each value must be surrounded by a pair of '. I. e. "[Computer]='" & Me![computer].Column(2) & "' AND " Dim strWhere As String strDocName = "report1" 'Report...

In the page footer's Format event you could try an expression like Me.Section(acPageFooter).Visible = (Me.Page = 1)

You can use the DateAdd function for your purpose. >DateAdd("yyyy", -2, Date())

The problem is described in Microsoft knowledge base Article - 170838 ACC: How to Create a Line That Can Shrink and Grow in a Report

You could try the code from the article How to Create an Application's LNK (Shortcut) Files - Workaround.

There might be different ways to set the right query for your report. You can use a public variable in a global modul or lookup at a control value in the report's open event. Some Access-Version (AXP, A2K?) have the OpenArgs argument in the OpenReport method. By using a global variable you...

You can set an appropriate RecordSource for the report in its Open Event.

I just set up a table instead of your query, also I didn't use a criteria for the year. With only one record in qryTally I got the following result Month Total FR IAR EAD January 1 1 0 0 February 0 0 0 0 March 0 0 0 0 April 0 0 0 0 May 0 0 0 0 June 0 0 0 0 July 0 0 0 0 August 0 0 0 0 September 0...

Get the one from Stephen Lebans which is capable showing it's content in a report.

You must have activated the magic wand on top in the control toolbar.

Maybe you can set up the combobox in the Load Event of the form with the following procedure. Sub SetLast52Weeks(CboCtl As Access.ComboBox) Dim strRowSource As String Dim i As Integer Dim dtThisWeek As Date ' assuming week starts on Sunday...

I think that the information of the query is not sufficient to be able to get a clear picture of your table structure. Maybe You explain to us how the involved tables stand together in relation.

I recommend using Debug.Print YourQueryText statements to test the assembeld queries by copying the output to new queries.