ACCESS FEED: [MS_AccessPros] Re: Word Like Table in MS Access Report

It seems like we have been here before. I would recommend entering the word "Border" in the tag property of every control you want outlined. Then use code like the following in the On Print of the section of the report containing the controls.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim intMaxHeight As Integer
Dim ctl As Control
'Find highest control in Detail section _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
If ctl.Height > intMaxHeight Then
intMaxHeight = ctl.Height
End If
End If
Next
'Draw a box around each control in Detail _
that has a tag property of "Border"
For Each ctl In Me.Section(0).Controls
If ctl.Tag = "Border" Then
Me.Line (ctl.Left, ctl.Top)- _
Step(ctl.Width, intMaxHeight), vbBlack, B
End If
Next

End Sub

--- In MS_Access_Professionals@yahoogroups.com, Abdul Shakeel <maxccess@...> wrote:
>
> Dear Duane
>
> It works now, just another thing I want to do with the subreport is, can I
> draw Vertical Line equals to the height of subreport for each control in
> the subreport for example a vertical line between Qty and Item Code from
> starting point of subreport to end, so it more like a professional invoice,
> it might be sound confusing but its great for me having a solution for this.
>
> On Fri, Feb 24, 2012 at 10:01 PM, Duane Hookom <duanehookom@...>wrote:
>
> > **
> >
> >
> >
> > It looks like the InvoiceID header should actually be the same as the
> > detail section level which is good (assuming only one record per invoice in
> > the main report). The subreport should be in the detail section of the main
> > report and the section should be set to keep together.
> >
> > Duane
> >
> >
> > > To: MS_Access_Professionals@yahoogroups.com
> > > From: maxccess@...
> > > Date: Fri, 24 Feb 2012 14:51:57 +0500
> >
> > > Subject: Re: [MS_AccessPros] Re: Word Like Table in MS Access Report
> > >
> > > I am understand what do you mean by Invoice, if you are asking about
> > > sections then I have the following
> > >
> > > Page Header / Footer
> > > InvoiceID Header/Footer
> > > Detail
> > >
> > > SubReport has the following Record Source
> > >
> > > SELECT tblInvoice.InvoiceID,[tblInvoice Details].InventoryCode,
> > [tblInvoice
> > > Details].Quantity, [tblInvoice Details].Rate, tblInventory.InventoryName,
> > > [tblInvoice Details].SalesTax, [tblInvoice Details].SED,
> > > CCur([Quantity]*[Rate]) AS ExtendedPrice, "Ring Traveller" & " " &
> > > [InventoryName] AS InvName
> > >
> > > FROM tblInvoice INNER JOIN (tblInventory INNER JOIN [tblInvoice Details]
> > ON
> > > tblInventory.InventoryCode = [tblInvoice Details].InventoryCode) ON
> > > tblInvoice.InvoiceID = [tblInvoice Details].InvoiceID;
> > >
> > >
> > > and main report has the following Record Source
> > >
> > >
> > > SELECT tblCustomer.CustomerName, tblCustomer.ShippingAddress,
> > > tblCustomer.ShippingCity, tblInvoice.CustomerCode, tblInvoice.InvoiceID,
> > > tblInvoice.InvoiceNumber, tblInvoice.InvoiceDate, tblInvoice.Freight
> > >
> > > FROM tblCustomer INNER JOIN tblInvoice ON tblCustomer.CustomerCode =
> > > tblInvoice.CustomerCode;
> > >
> > >
> > > On Fri, Feb 24, 2012 at 12:57 PM, Duane Hookom <duanehookom@...
> > >wrote:
> > >
> > > > **
> >
> > > >
> > > >
> > > >
> > > > Does your main report contain more detail than just the invoice level?
> > > >
> > > > I had asked about your Record Sources but you didn't provide these.
> > > >
> > > >
> > > > Duane Hookom
> > > > MS Access MVP
> > > >
> > > >
> > > >
> > > > > To: MS_Access_Professionals@yahoogroups.com
> > > > > From: maxccess@...
> > > > > Date: Fri, 24 Feb 2012 12:49:04 +0500
> > > >
> > > > > Subject: Re: [MS_AccessPros] Re: Word Like Table in MS Access Report
> > > > >
> > > > > Dear Duane
> > > > >
> > > > > Yes I has created Subreport
> > > > >
> > > > > No, I am not remove detail section from report, actually I put
> > subreport
> > > > > there.
> > > > >
> > > > > Link Master/Child is InvoiceID
> > > > >
> > > > > On Fri, Feb 24, 2012 at 12:21 PM, Duane Hookom <
> > duanehookom@...
> > > > >wrote:
> > > > >
> > > > > > **
> > > >
> > > > > >
> > > > > >
> > > > > >
> > > > > > Abdul,
> > > > > > I'm not convinced you have this set up correctly.
> > > > > >
> > > > > > Did you create a subreport?
> > > > > >
> > > > > > Did you remove a level of detail out of the main report?
> > > > > >
> > > > > > Can you tell us about your record sources and Link Master/Child
> > > > properties?
> > > > > >
> > > > > >
> > > > > > Duane Hookom
> > > > > > MS Access MVP
> > > > > >
> > > > > >
> > > > > > > To: MS_Access_Professionals@yahoogroups.com
> > > > > > > From: maxccess@...
> > > > > > > Date: Fri, 24 Feb 2012 09:37:41 +0500
> > > > > > > Subject: Re: [MS_AccessPros] Re: Word Like Table in MS Access
> > Report
> > > > > >
> > > > > > >
> > > > > > > Clive-
> > > > > > >
> > > > > > > I have already Grouping on InvoiceID with "Keep whole group
> > together
> > > > on
> > > > > > one
> > > > > > > page"
> > > > > > >
> > > > > > > On Thu, Feb 23, 2012 at 5:57 PM, Clive <zctek@...> wrote:
> > > > > > >
> > > > > > > > **
> > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > > Hi Abdul,
> > > > > > > >
> > > > > > > > You will need to change the Sorting_And_Grouping for
> > > > > > > > the Invoice.
> > > > > > > >
> > > > > > > > Open the report in Design_View and click on
> > > > > > > > View/Sorting_And_Grouping from the menu.
> > > > > > > > You will probably just need to group on an
> > > > > > > > Invoice Field.
> > > > > > > >
> > > > > > > > Regards, Clive.
> > > > > > > >
> > > > > > > >
> > > > > > > > --- In MS_Access_Professionals@yahoogroups.com, Abdul Shakeel
> > > > > > <maxccess@>
> > > > > > > > wrote:
> > > > > > > > >
> > > > > > > > > Dear Duane,
> > > > > > > > >
> > > > > > > > > thanks it works, but when an invoice have more than one
> > record
> > > > the it
> > > > > > > > > splits into to pages, and become even worse if invoice have
> > more
> > > > > > than 2
> > > > > > > > or
> > > > > > > > > more records, however I have set can grow/shrink property to
> > no
> > > > > > > > >
> > > > > > > > > On Thu, Feb 23, 2012 at 10:44 AM, Duane <duanehookom@>
> > wrote:
> > > > > > > > >
> > > > > > > > > > **
> > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > I think you can do this with a subreport of fixed height.
> > Make
> > > > > > sure the
> > > > > > > > > > subreport can't grow or shrink.
> > > > > > > > > >
> > > > > > > > > > Duane Hookom
> > > > > > > > > > MS Access MVP
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > --- In MS_Access_Professionals@yahoogroups.com, Abdul
> > Shakeel
> > > > > > > > <maxccess@>
> > > > > > > > > > wrote:
> > > > > > > > > > >
> > > > > > > > > > > Dear All,
> > > > > > > > > > >
> > > > > > > > > > > I want insert a table in access report just like we do in
> > > > word
> > > > > > but
> > > > > > > > with
> > > > > > > > > > > some fixed height in width let say the table height 3 in"
> > > > fixed
> > > > > > even
> > > > > > > > if
> > > > > > > > > > it
> > > > > > > > > > > had only one record, I post these question previously in
> > > > > > different
> > > > > > > > manner
> > > > > > > > > > > got some answer though which are not helpful, I also have
> > > > tried
> > > > > > line
> > > > > > > > > > method
> > > > > > > > > > > but no luck. I am trying to make an invoice. any
> > suggestions.
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > > [Non-text portions of this message have been removed]
> > > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > [Non-text portions of this message have been removed]
> > > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > [Non-text portions of this message have been removed]
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > ------------------------------------
> > > > > > >
> > > > > > > Yahoo! Groups Links
> > > > > >
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > >
> > > > > >
> > > > > > [Non-text portions of this message have been removed]
> > > > > >
> > > > > >
> > > > > >
> > > > >
> > > > >
> > > > > [Non-text portions of this message have been removed]
> > > > >
> > > > >
> > > > >
> > > > > ------------------------------------
> > > > >
> > > > > Yahoo! Groups Links
> > > > >
> > > > >
> > > > >
> > > >
> > > >
> > > > [Non-text portions of this message have been removed]
> > > >
> > > >
> > > >
> > >
> > >
> > > [Non-text portions of this message have been removed]
> > >
> > >
> > >
> > > ------------------------------------
> > >
> > > Yahoo! Groups Links
> > >
> > >
> > >
> >
> >
> > [Non-text portions of this message have been removed]
> >
> >
> >
>
>
> [Non-text portions of this message have been removed]
>