MS Access 2003 - Is there a way to programmatically define the data for a chart?

Posted by Justin on Stack Overflow See other posts from Stack Overflow or by Justin
Published on 2010-03-05T17:34:52Z Indexed on 2010/03/08 9:06 UTC
Read the original article Hit count: 325

So I have some VBA for taking charts built with the Form's Chart Wizard, and automatically inserting it into PowerPoint Presentation slides. I use those chart-forms as sub forms within a larger forms that has parameters the user can select to determine what is on the chart. The idea is that the user can determine the parameter, build the chart to his/her liking, and click a button and have it in a ppt slide with the company's background template, blah blah blah.....

So it works, though it is very bulky in terms of the amount of objects I have to use to accomplish this.

I use expressions such as the following:

like forms!frmMain.Month&* 

to get the input values into the saved queries, which was fine when i first started, but it went over so well and they want so many options, that it is driving the number of saved queries/objects up. I need several saved forms with charts because of the number of different types of charts I need to have this be able to handle.

SO FINALLY TO MY QUESTION:

I would much rather do all this on the fly with some VBA. I know how to insert list boxes, and text boxes on a form, and I know how to use SQL in VBA to get the values I want from tables/queries using VBA, I just don't know if there is some vba I can use to set the data values of the charts from a resulting recordset:

DIM rs AS DAO.Rescordset
DIM db AS DAO.Database
DIM sql AS String

sql = "SELECT TOP 5 Count(tblMain.TransactionID) AS Total, tblMain.Location FROM
tblMain WHERE (((tblMain.Month) = """ & me.txtMonth & """ )) ORDER BY Count 
(tblMain.TransactionID) DESC;"

set db = currentDB
set rs = db.OpenRecordSet(sql)

              rs.movefirst

            some kind of cool code in here to make this recordset
             the data of chart in frmChart ("Chart01")

thanks for your help. apologies for the length of the explanation.

© Stack Overflow or respective owner

Related posts about ms-access-2003

Related posts about ms-access