Private Sub Command54_Click()
Dim dbs As DAO.Database
Dim qdf1 As DAO.QueryDef
Dim qdf2 As DAO.QueryDef
Dim prm As DAO.Parameter
Dim rst1 As DAO.Recordset
Dim strStart As String
Dim strMiddle As String
Dim strEnd As String
Dim sSQL1 As String
Dim strSQL As String
Dim vehtyp As String
Dim Year As String
On Error Resume Next
DoCmd.DeleteObject acQuery, "qryOutSource " & strMiddle
On Error GoTo 0
Year = Me.ModelYear
vehtyp = Me.VehicleType
strStart = "R:\fcsd\SLTS Extract Database\Total Labor Time Output Files\" & vehtyp & "\" & "Out Src Labor"
strEnd = ".xls"
Set dbs = CurrentDb()
sSQL1 = Me.Combo55.RowSource
Set qdf1 = dbs.CreateQueryDef("", sSQL1)
Set rst1 = qdf1.OpenRecordset
With rst1
.MoveFirst
Do Until .EOF
strMiddle = !FullLaborOpId
Me.Combo55 = strMiddle
strSQL = "SELECT [FullLaborOps].[FullLaborOp], [TimeStudies].[BaseDesc], [VehicleLines].[Description], [VehicleLines].[VehicleType], [ModelYears].[Year], [FullLaborOps].[TotTime],[Engines].[Abbr], [Transmissions].[Abbr]" _
& "FROM [LaborOpItems], (((VehicleLines " _
& "INNER JOIN (((TimeStudies " _
& "INNER JOIN FullLaborOps ON TimeStudies.TsId = FullLaborOps.TsId) " _
& "INNER JOIN Qualifiers ON TimeStudies.TsId = Qualifiers.TsId) " _
& "INNER JOIN ModelYears ON TimeStudies.TsId = ModelYears.TsId) ON VehicleLines.VlCode = Qualifiers.Value) " _
& "INNER JOIN VehlinesToEnginesToTransmissions ON VehicleLines.VlCode = VehlinesToEnginesToTransmissions.VlCode) " _
& "INNER JOIN Engines ON VehlinesToEnginesToTransmissions.EnCode = Engines.EnCode) " _
& "INNER JOIN Transmissions ON VehlinesToEnginesToTransmissions.TrCode = Transmissions.TrCode " _
& "GROUP BY FullLaborOps.FullLaborOp, TimeStudies.BaseDesc, VehicleLines.Description, VehicleLines.VehicleType, ModelYears.Year, FullLaborOps.TotTime, Engines.Abbr, Transmissions.Abbr, Engines.ModelYear, Transmissions.ModelYear, VehlinesToEnginesToTransmissions.ModelYear, FullLaborOps.TsId, TimeStudies.TsRemark, VehicleLines.ModelYear, Engines.VehicleType, Transmissions.VehicleType " _
& "HAVING (((FullLaborOps.FullLaborOp)=[Forms]![frmOutSourceLaborTime]![Combo55]) " _
& "AND ((VehicleLines.VehicleType)=[Forms]![frmOutSourceLaborTime]![VehicleType]) " _
& "AND ((ModelYears.Year) Like [Forms]![frmOutSourceLaborTime]![ModelYear] & ""*"") " _
& "AND ((Engines.ModelYear) Like [Forms]![frmOutSourceLaborTime]![ModelYear] & ""*"") " _
& "AND ((Transmissions.ModelYear) Like [Forms]![frmOutSourceLaborTime]![ModelYear] & ""*"") " _
& "AND ((VehlinesToEnginesToTransmissions.ModelYear) Like [Forms]![frmOutSourceLaborTime]![ModelYear] & ""*"") " _
& "AND ((TimeStudies.TsRemark) Not Like ""*Recall*"" " _
& "AND (TimeStudies.TsRemark) Not Like ""rc*"") " _
& "AND ((VehicleLines.ModelYear)=[ModelYears].[Year]) " _
& "AND ((Engines.VehicleType)=[Forms]![frmOutSourceLaborTime]![VehicleType]) AND ((Transmissions.VehicleType)=[Forms]![frmOutSourceLaborTime]![VehicleType]))" _
& "ORDER BY [FullLaborOps].[FullLaborOp], [VehicleLines].[Description];"
Set qdf2 = dbs.CreateQueryDef("qryOutSource " & strMiddle, strSQL)
For Each prm In qdf2.Parameters
prm.Value = Eval(prm.Name)
Next prm
On Error Resume Next
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "qryOutSource " & strMiddle, strStart & " " & Year & " " & vehtyp & strEnd, True, ""
On Error GoTo 0
qdf2.Close
Set qdf2 = Nothing
DoCmd.DeleteObject acQuery, "qryOutSource " & strMiddle
.MoveNext
Loop
End With
rst1.Close
Set rst1 = Nothing
Beep
MsgBox "The Report is Located: R:\fcsd\SLTS Extract Database\Total Labor Time Output Files\" & vehtyp & "\", vbOKOnly, ""
Command54_Click_Exit:
Exit Sub
Command54_Click_Err:
MsgBox Error$
Resume Command54_Click_Exit
End Sub