Results 1 to 3 of 3
  1. #1
    4 Star Lounger
    Join Date
    Oct 2002
    Location
    Sayre, Pennsylvania, USA
    Posts
    504
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Line #'s on Reports (2000)

    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Cancel = (Me.calcPRReportLineNumber > 6)
    End Sub

    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Me.srptPRPartsSubreportRestExistRich.Visible = _
    (DCount("*", "qryPRSubreportExistRich", "txtPRNo='" & txtPRNo & "'") > 6)
    Me.PageBreak212.Visible = Me.srptPRPartsSubreportRestExistRich.Visible
    End Sub

    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    Cancel = (Me.calcPRReportLineNumber <= 6)
    End Sub

    I have the above code on a report. It works fine and counts correctly but now they want every line number to be 4 digits. 0001, 0002,...0010. Any ideas on how I do that?
    Thanks,
    Deb

  2. #2
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Sint Niklaas, Belgium
    Posts
    2,778
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Line #'s on Reports (2000)

    These are three times a :
    Private Sub Detail_Format
    routine.
    Two of them set Cancel to True or False,
    the other set the controls srptPRPartsSubreportRestExistRich and PageBreak212 visible or not.

    To format the number, set the format property of the textbox containing the number to 0000
    Francois

  3. #3
    4 Star Lounger
    Join Date
    Oct 2002
    Location
    Sayre, Pennsylvania, USA
    Posts
    504
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Line #'s on Reports (2000)

    That was easy enough. Seems to work great. Thanks!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •