[AccessD] MOre help needed

Susan,

You need a reference to DAO 3.6 in A200?
You then need to dim as DAO.Object

Michael R. Mattys
www.mattysconsulting.com

----- Original Message -----
From: "Klos, Susan" <Susan.Klos at fldoe.org>
To: <accessd at databaseadvisors.com>
Sent: Monday, June 09, 2003 9:37 AM
Subject: RE: RE: [AccessD] MOre help needed


> OK, Here I am now:
>
>     Dim school As String
>     Dim strFileName As String
>     Dim mysql As String
>     Dim qdf As QueryDef
>     Dim db As Database
>
>     Set db = currentdatabase
>
>     school = InputBox("What School Number")
>     'DoCmd.TransferSpreadsheet acExport, 8, "Reading",
> "T:\2002-2003\SchoolGrades\Data\Reading" & school & ".xls", True, ""
>     mysql = "SELECT ReadingGrade.DistSchNo, ReadingGrade.Grade,
> ReadingGrade.LName, " & _
>     "ReadingGrade.FName, ReadingGrade.IDSS, ReadingGrade.Curr03,
> ReadingGrade.MatchFCAT02, " & _
>     "ReadingGrade.LevelR03, ReadingGrade.LevelR02, ReadingGrade.DSS03R, "
&
> _
>      "ReadingGrade.DSSR02 AS Expr1, ReadingGrade.SSR02, ReadingGrade.Lo25"
&
> _
>     "FROM ReadingGrade WHERE (((ReadingGrade.DistSchNo)=" & school & "))"
>     'MsgBox school
>
>     Set qdf = db.QueryDefs("Reading")
>
>      strFileName = "T:\2002-2003\SchoolGrades\Data\Reading" & school &
> ".xls"
>      qdf.SQL = mysql
>      MsgBox "tablename = " & strFileName
>
>      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9,
qdf.Name,
> strFileName, True
>
> I am now getting this message when I get to Set qdf = db.QueryDefs
"Object
> Required"  I have a query called "Reading"  and I thought I had DIMmed
> everything.
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>