Thank you very much Mr. Viescas. The code works great. What caused confusion was, after the report was loaded on the screen, I used the navigating button to look for the page or record that shows the label "Amount greater then 50". Each time when I clicked on the Last Page Navigating Button (only happens with the Last Page button), the label then will disappear!! However, that will not happen and the label will stay visible when I typed in a page number first(and hit enter) then used the navigating button. What is the possible cause? Is it a bug of Access itself? (the version that I am using is Access 2003). Thanks again Mr. Viescas.
--- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@...> wrote:
>
> Phucon-
>
> It should work with the code I gave you, assuming intG50 is declared at the
> module level.
>
> Option Compare Database
> Dim intG50 As Integer
>
> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> ' If we haven't already turned on the line label,
> If Not intG50 Then
> ' .. and the number is greater than 50
> If Me.intNum > 50 Then
> ' Show the line and the label
> Me.lbl50.Visible = True
> Me.line50.Visible = True
> ' Set the flag to show we have done the display
> intG50 = True
> End If
> Else
> ' Already displayed flag is set,
> ' so make sure line and label are hidden
> Me.lbl50.Visible = False
> Me.line50.Visible = False
> End If
> End Sub
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
> --------------------------
>
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of saigonf7q5
> Sent: Sunday, May 27, 2012 4:45 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] Re: Insert a label within report detail lines
>
>
>
>
> Thank you very much for your help Mr.Viescas.
>
> The `lbl50' and the `line50' won't display until I added the line "intG50 =
> False" after the Else statement. However, they display on every 2 detail lines
> as shown below. Another question that I have is, how do I control to display
> "Number greater than 50" only 1 time, instead of display for every record.
> Thanks again. Phucon.
>
> Number greater than 50
> 51
> 51
> Number greater than 50
> 51
> 52
> Number greater than 50
> 53
> 54
> Number greater than 50
> 55
> 56
> Number greater than 50
> 57
> 58
> Number greater than 50
> 59
> 60
>
> Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> If Not intG50 Then
> If Me.intNum > 50 Then
> Me.lbl50.Visible = True
> Me.line50.Visible = True
> intG50 = True
> End If
> Else
> Me.lbl50.Visible = False
> Me.line50.Visible = False
> 'intG50 = False
> End If
> End Sub
>
> --- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@> wrote:
> >
> > Phucon-
> >
> > You could design your Detail section with a line across the top and a label
> that
> > both have the Visible property set to No. In the Format event of the Detail
> > section, put this:
> >
> > Option Compare Database
> > Option Explicit
> > Dim intG50 As Integer ' Module level variable
> >
> > Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
> > ' If line not displayed before
> > If Not intG50 Then
> > ' See if we have exceeded the value
> > If Me.Amount > 50 Then
> > ' Show the line and label
> > Me.lbl50.Visible = True
> > Me.lin50.Visible = True
> > ' Set variable to show we've done it
> > intG50 = True
> > End If
> > Else
> > ' Make sure line and label are not visible
> > Me.lbl50.Visible = False
> > Me.lin50.Visible = False
> > End If
> > End Sub
> >
> >
> > John Viescas, author
> > Microsoft Office Access 2010 Inside Out
> > Microsoft Office Access 2007 Inside Out
> > Building Microsoft Access Applications
> > Microsoft Office Access 2003 Inside Out
> > SQL Queries for Mere Mortals
> > http://www.viescas.com/
> > (Paris, France)
> >
> >
> >
> > From: MS_Access_Professionals@yahoogroups.com
> > [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of cc
> > Sent: Monday, May 21, 2012 11:09 PM
> > To: MS_Access_Professionals@yahoogroups.com
> > Subject: [MS_AccessPros] Re: Insert a label within report detail lines
> >
> >
> >
> > Hello Duane
> >
> > It is simply a numeric value, the value (500) could happen twice if 2
> customers
> > have the same amount.
> >
> > The report that I have been trying to achieve is, seperate the detail lines
> into
> > 2 sections, it first prints the detail lines that have value <= 500,(1 to 499
> > for example) and when it's over 500 then prints the label and then print the
> > detail lines which > 501 to 1000...
> >
> > Thanks
> >
> > --- In MS_Access_Professionals@yahoogroups.com, "Duane" <duanehookom@> wrote:
> > >
> > > Are the Amount values in a increasing order so 500 will be hit only once? Is
> > this a running sum or just a simple numeric value?
> > >
> > > Duane Hookom
> > > MS Access MVP
> > >
> > > --- In MS_Access_Professionals@yahoogroups.com, "cc" <saigonf7q5@> wrote:
> > > >
> > > > Good morning all
> > > >
> > > > I have a report's record source is based on a query that has a column
> named
> > "Amount". I am wondering if it's possible to program the report to insert a
> > label or column headings after the detail lines meet a specific criterion. For
> > example, the value of the "Amount" field has a range from 1 to 1000, when the
> > Amount reaches 501, then insert a label "Amount greater than 500". Can this be
> > done within report?
> > > >
> > > > Phucon
> > > >
> > >
> >
>
Tidak ada komentar:
Posting Komentar