I am trying to build this passthrough query with a Onclick event
SELECT format(Workorders.[Internal Work Order Number],"000000") as Workorder, format([Workorders.DateOpened],"dd/mmm/yyyy") as [Date Opened], format([Workorders.DateClosed],"dd/mmm/yyyy") as [Date Closed]
from Workorders
UNION...
Thank you both for your suggestions. In going through the code and tidying it up I found a typo on the form which was calling the function. All now works as it should.
I have created this function
Function Shopex_ind(myForm)
On Error GoTo Err_Shopex_ind
Dim Shopex
Shopex = ""
If myForm![Shop1] = -1 Then
Shopex = 1
myForm![Shop1Label].BackColor = 65280
myForm![Shop 01]...
Yes, I do. I have failed to supply enogh information for you to understand my problem. I have built a query that gets its criteria from a form using Like [Forms]![Report Date - 99]![text16]
The Control Source property of text16 looks like this =IIf(IsNull([Combo8]),"*",[Combo8])
This...
I am running a query with Like "*" in the criteria and the query returns everything except the records with a null value in that field. Am I missing something? I thought that Like "*" should return everything.
Sorry for not being clear. What my last post is showing is how to share information from the sub report with the main report, instead of the usual main report with sub report via linking.
I showed the formulas to answer the question "...Is there any way to refer to the subreport, in a formula...
Place a formula in the sub report
//Declare Shared Variable
Shared NumberVar VehicleCount;
//Assign count of models per part to the shared variable
VehicleCount :=DistinctCount ({Table.Vehicle});
if VehicleCount < 1 then VehicleCount = 0;
In the main report place a formula
//Retrieve...
The multiple vehicles are available to the main report. Where the problem lies is if only one vehicle is selected in the record selection formula then even the DistinctCount funtion only returns 1. The sub report was the only way I was able to pull the other vehicles out. Is there any way to...
My Report Currently Looks Like
Main Report
Vehicle 1
Part Number 123
Sub Report
Other Applicable Vehicles
2
3
456
789
what I need to have happen is Part Number 123 not to...
The report is run to find out what parts fit on a certain vehicle. If the report is run for one vehicle then the fact that some parts have multiple applications is missed. The report is run to determrine what parts to dispose of when a vehicle is being disposed of. The reason for the sub...
I have created a report with a subreport that shows part numbers and the vehicles that they fit on. The main report shows the part number and vehicle it can be used on as well as other usefull info. The subreport shows any other vehicles that the part can be used on. My problem is that I want...
I have a query
SELECT tblPrepTime.Course, tblPrepTime.Instructor, tblPrepTime.Type_Of_Prep, tblPrepTime.Date, tblPrepTime.Time, tblCourseInfo.Course_Name, tblCourseInfo.[Start Date], tblCourseInfo.[End Date]
FROM tblPrepTime INNER JOIN tblCourseInfo ON tblPrepTime.Course =...
OK, If we assume that the record source property can't be changed, and it's a query, can the criteria for the query change and the sub report be refreshed/requeried to reflect the change in the query's criteria?
I have a report with one subreport. The subreport is based off of a query. I have code that will change the query but can't seem to get the subreport to refresh with differernt data. The subreport is in a header and I am using the onformat event of the header to fire the code to change the...
The final code that works looks like this
Function DisplayArray(InArray() As String)
Dim mSTR
Dim mSTR1
Dim j As Integer, k As Integer
For j = LBound(InArray, 1) To UBound(InArray, 1)
For k = LBound(InArray, 2) To UBound(InArray, 2)
' Debug.Print InArray(j, k),
If...
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.