Filling fields by code

  • Thread starter Thread starter Anne
  • Start date Start date
A

Anne

I gave up on the reports group because nobody answered. I am therefore
thinking it might be an impossible task in reports to create a report to
look like a spreadsheet.
Perhaps the data can be created with a query which then can fill the fields
in the report which are now empty.

I am trying to create a report, which consists of blocks of data.
I have 6 gangs, which can contain up to 8 columns.

Example:
Gang1, JoistID, JoistID, JoistID
Gang2, JoistID, JoistID, JoistID,JoistId
Gang3, JoistID
Gang4, JoistID, JoistID

When the user enters the JoistID into the form, he then selects enters a
JobID, JoistQty, JoistID and the gangID. The entry creates a new line in the
table PoursDetail.

Is there any way that via code entries can forced to gang 5 or 6 (for the
sample above) to a fake job0 (which I already set up with default joistIDs)?

I did it manually and made the report look really good. I then used
conditional formatting to not show Job0, but it showed the background of the
data.

There are 14 items of data which describes the detail of each joist, that is
why I cannot use a crosstab query.

AP
 
I am as confused by your question here as I was in Reports. I don't think we
know:
1) your table structure
2) sample records
3) desired display of those sample records

In the Reports posting you stated "I am presently using Duane Hookom's
routine to draw squares with code, but it does not look right,"

What doesn't look right about it?
 
I wish one could attachments in this group to show you.
I using the rect1, rect2, rect3 etc where all I have to change is the Number
of Columns and Rows in the SQL

I need to add labels to the left of each gang, identifying the Gang Number
and the strands used for each gang.
I also have 7 labels identifying the 7 lines of data.
Those labels are now with each subform which repeat for each block of data
which consists of 16 text boxes.
That throws everything out of alignment. Even if I set the text box to hide
duplicates, it repeats an empty space between each column.

COL#>>> 1 2 3 4 Total Feet
7 JOB # 1859 1859
#1 No+Type 2 J-80 2 J-83
FT 45 1 44 10 179.84
POINT 1PT 8.50 1PT 8.50
RB 7 1 30 7 1 30
RB
ENDS 1 A S 1 A N


I was able to paste from the spreadsheet - This is what they want one gang
to look like, I am only showing 4 colums and one row, but there are always
8. I wonder what this will look like once I send the post. #1 is the gangID
and the 7 are the number of stands.
But in access, the blank blocks to not show, so I am using the rectangulars
instead. The labels are the main problem. I also need total feet

I have a table PoursSum for the main form which is linked to the subform by
PourID (hold Main info about pour, data, Joist Size, PSI
TblPoursNew hold the detail of the pour:
SELECT TblPoursNew.PourLineID, TblJoists.ProductTypeID, TblPoursNew.PourId,
TblPoursNew.JobId, TblPoursNew.ProductID, [productletter] & "-" &
[ProductNO] AS ProductLNo, TblPoursNew.GangID, TblPoursNew.GangQty,
TblPoursNew.StrandQty, TblDepressionPoints.Point, TblJoists.PointField2,
TblJobs.JobNo, TblJobs.JobName, TblJoists.ProdLenghtFeet,
TblJoists.ProdLenghtInches,
(([ProdLenghtInches]/12)+[ProdLenghtFeet])*nz([gangQty],0) AS GangLenght,
TblJoists.[Rebar1#], TblJoists.Rebar1Qty, TblJoists.Rebar1Lenght,
TblJoists.[Rebar2#], TblJoists.Rebar2Qty, TblJoists.Rebar2Lenght,
TblJoists.ShearFrictionQty, TblJoists.EndsID1, TblEndsNotches.EndName,
TblJoists.EndsID2, TblEndsNotches2.EndName2
FROM ((TblPoursNew LEFT JOIN (((TblJoists LEFT JOIN TblDepressionPoints ON
TblJoists.PointID = TblDepressionPoints.PointID) LEFT JOIN TblEndsNotches ON
TblJoists.EndsID1 = TblEndsNotches.EndsID) LEFT JOIN TblEndsNotches2 ON
TblJoists.EndsID2 = TblEndsNotches2.Ends2ID) ON TblPoursNew.ProductID =
TblJoists.ProductId) LEFT JOIN TblJobs ON TblPoursNew.JobId = TblJobs.JobID)
LEFT JOIN TblProductType ON TblJoists.ProductTypeID =
TblProductType.ProductTypeID;
Anne
 
I'm sorry, I have no clue what you are talking about. I like to model a
problem down to its simplest form and preferrably modelling something most
of us would understand. I would explain using Access terms like table,
fields, values, etc.

Including words like gangs, lines of data, block of data, etc don't make
much sense.

--
Duane Hookom
MS Access MVP


Anne said:
I wish one could attachments in this group to show you.
I using the rect1, rect2, rect3 etc where all I have to change is the
Number of Columns and Rows in the SQL

I need to add labels to the left of each gang, identifying the Gang Number
and the strands used for each gang.
I also have 7 labels identifying the 7 lines of data.
Those labels are now with each subform which repeat for each block of data
which consists of 16 text boxes.
That throws everything out of alignment. Even if I set the text box to
hide duplicates, it repeats an empty space between each column.

COL#>>> 1 2 3 4 Total Feet
7 JOB # 1859 1859
#1 No+Type 2 J-80 2 J-83
FT 45 1 44 10 179.84
POINT 1PT 8.50 1PT 8.50
RB 7 1 30 7 1 30
RB
ENDS 1 A S 1 A N


I was able to paste from the spreadsheet - This is what they want one gang
to look like, I am only showing 4 colums and one row, but there are always
8. I wonder what this will look like once I send the post. #1 is the
gangID and the 7 are the number of stands.
But in access, the blank blocks to not show, so I am using the
rectangulars instead. The labels are the main problem. I also need total
feet

I have a table PoursSum for the main form which is linked to the subform
by PourID (hold Main info about pour, data, Joist Size, PSI
TblPoursNew hold the detail of the pour:
SELECT TblPoursNew.PourLineID, TblJoists.ProductTypeID,
TblPoursNew.PourId, TblPoursNew.JobId, TblPoursNew.ProductID,
[productletter] & "-" & [ProductNO] AS ProductLNo, TblPoursNew.GangID,
TblPoursNew.GangQty, TblPoursNew.StrandQty, TblDepressionPoints.Point,
TblJoists.PointField2, TblJobs.JobNo, TblJobs.JobName,
TblJoists.ProdLenghtFeet, TblJoists.ProdLenghtInches,
(([ProdLenghtInches]/12)+[ProdLenghtFeet])*nz([gangQty],0) AS GangLenght,
TblJoists.[Rebar1#], TblJoists.Rebar1Qty, TblJoists.Rebar1Lenght,
TblJoists.[Rebar2#], TblJoists.Rebar2Qty, TblJoists.Rebar2Lenght,
TblJoists.ShearFrictionQty, TblJoists.EndsID1, TblEndsNotches.EndName,
TblJoists.EndsID2, TblEndsNotches2.EndName2
FROM ((TblPoursNew LEFT JOIN (((TblJoists LEFT JOIN TblDepressionPoints ON
TblJoists.PointID = TblDepressionPoints.PointID) LEFT JOIN TblEndsNotches
ON TblJoists.EndsID1 = TblEndsNotches.EndsID) LEFT JOIN TblEndsNotches2 ON
TblJoists.EndsID2 = TblEndsNotches2.Ends2ID) ON TblPoursNew.ProductID =
TblJoists.ProductId) LEFT JOIN TblJobs ON TblPoursNew.JobId =
TblJobs.JobID) LEFT JOIN TblProductType ON TblJoists.ProductTypeID =
TblProductType.ProductTypeID;
Anne
Click to expand...
 
Back
Top