Results 1 to 7 of 7
  1. #1
    3 Star Lounger
    Join Date
    Feb 2004
    Location
    Kitchener, Ontario, Canada
    Posts
    228
    Thanks
    0
    Thanked 0 Times in 0 Posts

    meeting agenda (XP-2)

    I am trying to make an agenda report for the next month from this table. I really don't know where to start. I want the report to look at the upcoming month and only show me the agend items for that month. any ideas

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: meeting agenda (XP-2)

    Is the table design already cast in concrete or could it still be changed? If possible, you should change it to a design in which the months are below each other.

  3. #3
    3 Star Lounger
    Join Date
    Feb 2004
    Location
    Kitchener, Ontario, Canada
    Posts
    228
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: meeting agenda (XP-2)

    I would love to change it but so far it is set into stone. and that is where my problem is....

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: meeting agenda (XP-2)

    Try the following:
    - Create a report based on the Agenda Items table; add the Agenda Items field, but not the fields for the months.
    - If you look at the report now, it should just display a list of ALL agenda items.
    - Create the following code in the On Open event of the report:

    Private Sub Report_Open()
    Dim strSQL As String
    Dim strMonth As String
    strMonth = Format(DateSerial(Year(Date), Month(Date) + 1, 1), "mmm")
    strSQL = "SELECT [Agenda Items] FROM [Agenda Items] WHERE [" & _
    strMonth & "] = True"
    Me.RecordSource = strSQL
    End Sub

    - Clear the Record Source property of the report.
    - Close and save the report.

  5. #5
    3 Star Lounger
    Join Date
    Feb 2004
    Location
    Kitchener, Ontario, Canada
    Posts
    228
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: meeting agenda (XP-2)

    Thanks Hans but I get an error.

  6. #6
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: meeting agenda (XP-2)

    Sorry, my fault. Change the first line to

    Private Sub Report_Open(Cancel As Integer)

  7. #7
    3 Star Lounger
    Join Date
    Feb 2004
    Location
    Kitchener, Ontario, Canada
    Posts
    228
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: meeting agenda (XP-2)

    Hans

    You are a genius.....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
  •