[AccessD] Help!Why won't this work?

Let me join the Guess-A-Thon (I'll be Jerry) Should the DB be dimmed as DAO? 
When Access 'stops working' a repair and compact as well as a cold boot plus 
maybe a JetComp might be in order.
_D

>From: "Klos, Susan" <Susan.Klos at fldoe.org>
>Reply-To: accessd at databaseadvisors.com
>To: "'accessd at databaseadvisors.com'" <accessd at databaseadvisors.com>
>Subject: RE: [AccessD] Help!Why won't this work?
>Date: Tue, 10 Jun 2003 09:46:34 -0400
>
>Nope, Access just quits working.
>
>-----Original Message-----
>From: paul.hartland at fsmail.net [mailto:paul.hartland at fsmail.net]
>Sent: Tuesday, June 10, 2003 9:35 AM
>To: accessd at databaseadvisors.com
>Subject: Re: [AccessD] Help!Why won't this work?
>
>
>Susan,
>
>Does it give you any error messages ?
>
>Paul
>
>From: "Klos, Susan" <Susan.Klos at fldoe.org>
>Date: Tue 10/Jun/2003 13:28 GMT
>To: "'accessd at databaseadvisors.com'" <accessd at databaseadvisors.com>
>Subject: [AccessD] Help!Why won't this work?
>
>It worked yesterday.
>'------------------------------------------------------------
>' mcrSaveReading
>'
>'------------------------------------------------------------
>Function mcrSaveReading()
>On Error GoTo mcrSaveReading_Err
>
>     Dim school As String
>     Dim strFileName As String
>     Dim mysql As String
>     Dim qdf As QueryDef
>     Dim db As Database
>     Dim rs As DAO.Recordset
>
>     Set db = CurrentDb
>
>     Set rs = db.OpenRecordset("GradedSchools")
>     Do Until (rs.EOF)
>    school = rs.Fields("DistSchNo")
>     'school = InputBox("What School Number")
>     'school = "[GradedSchools.DistSchNo]"
>     'MsgBox school
>     '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,
>ReadingGrade.SSR02, ReadingGrade.Lo25 FROM ReadingGrade " & _
>     "WHERE (((ReadingGrade.DistSchNo)='" & 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
>      rs.MoveNext
>     Loop
>
>mcrSaveReading_Exit:
>     Exit Function
>
>mcrSaveReading_Err:
>     MsgBox Error$
>     Resume mcrSaveReading_Exit
>
>End Function
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>
>
>__________________________________________________________________________
>Join Freeserve http://www.freeserve.com/time/
>
>Winner of the 2003 Internet Service Providers' Association awards for Best
>Unmetered ISP and Best Consumer Application.
>
>
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com

_________________________________________________________________
Tired of spam? Get advanced junk mail protection with MSN 8. 
http://join.msn.com/?page=features/junkmail