I wonder if it is a matter of timing.
An on-demand subreport has not been run when your main report is being viewed. The main report it doesn't know whether the subreport is blank until it has been run so it cannot chose whether to suppress the subreport.
If the subreport is not "on demand"...
Maybe something in the GotFocus event, like:
Private Sub ComboName_GotFocus()
If CheckBoxName = "True" Then
ListName.RowSource = "0,25,50,75,100"
Else
ListName.RowSource = "0,25,50,75"
End If
End Sub
(With the control RowSourceType property set to Value List)
Select the properties option for your input (text) box. In the 'Data' tab click the 'Input Mask' box and then click the three dots "..." button to open the Input Mask Wizard.
Click the 'Edit List' button and add the input mask as 00000-00000. The zeroes mean a compulsory digit must be added...
If you want digits in each of the ten character positions then I think you've already got the input mask - use "00000-00000" when you set the input mask for the field on your form and make sure that you chose the option to save with the dash.
In the Chart Options under Axes you can choose to display two sets of data (if you have two data value sources in the Data area of the Chart Expert) and have separate Axes scales for each.
Is this the sort of thing that you need?
So your code checks to see whether LocationID is blank, gives the user a warning, puts todays date in [BookingDate] if Location ID is blank and then carries on with the Update action which it cannot complete because a field is blank.
I think you need to be able to jump out of the Sub and abort...
My installation of Access 2003 always does this but I only see the one I want to work on because the window is maximised so it is not a problem. The other code windows are hidden beneath.
Assuming that [txtCriteria] would hold the start date of the date range, you could have a hidden text control on the form which is only made visible and receives focus if [cboType]="Call Date" which would be used to enter the end date of the date range.
In this case you might need a separate...
Hello
I am using CR XI connected to a SQL database.
I have a dynamic string parameter which uses the DESCRIPTION field from the POINT_OF_CONTACT table as its data source.
The POINT_OF_CONTACT table also includes the STATUS_ID which indicates whether the DESCRIPTION is current or unused.
I...
I can't replicate your problem. I get two decimal places in both instances. Is there anything else in the data or formatting that might account for this?
"BISTeam, If I would like to implement your suggestion, where will I use the code you gave?"
Include the code as a function in your form code and call it at the Form Open event.
Andy
As a possible alternative to keeping the query names in a table you could use some code such as this:
Function ListQueries()
Dim PickQry As Object
Set dbsCurrent = Application.CurrentData
For Each PickQry In dbsCurrent.AllQueries
If Len(Query_Finder.RowSource) > 2 Then...
This may be a bit clumsy if there are a lot of fields to compare but I use a query which compares fields named {Tel No] and [Costcode] in two different tables and outputs a comment if it finds records that do not match or are null:
SELECT [Table1].[Tel No], [Table1].[Notes], [Table1].Costcode...
I had a similar sounding problem recently which was solved by getting the users to open the database the long-winded way e.g. through File|Open.
The Open button on the Open dialog box has a drop-down arrow giving various options. Using the Open option (rather than Open Read Only or Open...
My first ever post to Tek-Tips, so here goes...
Maybe this is a bit clumsy but it works for me.
Set up another data table containing simply all possible group numbers i.e. 1-10, and then left join from that table.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.