Field: WORK ORDER: Trim([WO_HDR.WO_NUM])

Cirteria: Like [Enter WO Number and include "*" at end of WO Number to include NCR WO]

It seems like the trim function is messing it up. any ideas how to get around it?

I have transcribed your code verbatim except for the name of my DB and query.

I am getting the dreaded error 3343: Unrecognized Database Format.

here are two screen shots: 1) My references and 2) the code.

Can you tell me what I need to to do to fix this problem. I am using Excel 2007 and Access 2007.

thanks

glen

references:

MS Excel 12.0 Object Library
MS DAO 3.6 Object Library

Code:

‘Step 1: Declare your variables

Dim MyDatabase As DAO.Database
Dim MyQueryDef As DAO.QueryDef
Dim MyRecordSet As DAO.Recordset
Dim i As Integer

‘Step 2: Identify the database and query
Set MyDatabase = DBEngine.OpenDatabase _
(“C:\My Documents\TRHDR1.accdb”)
Set MyQueryDef = MyDatabase.QueryDefs(“PARAMETERQUERY”)

‘Step 3: Define the Parameters
With MyQueryDef
.Parameters(“[Enter Name]“) = Range(“C1″).Value
End With

‘Step 4: Open the Query
Set MyRecordSet = MyQueryDef.OpenRecordSet

‘Step 5: Clear Previous contents
Sheets(“Main”).Select
ActiveSheet.Range(“A6:K10000″).ClearContents

‘Step 6: Copy the recordset to Excel
ActiveSheet.Range(“A7″).CopyFromRecordset MyRecordSet

‘Step 7: Add column heading names to the spreadsheet
For i = 1 To MyRecordSet.Fields.Count
Actovesheet.Cells(6, i).Value = MyRecordSet.Fields(i – 1).Name
Next i

MsgBox “Your Query has been run”

End Sub

It looks like you’re trying to hit a network directory that has been mapped to your Windows Explorer as a relative drive. In this case, you’ll have to use the full absolute network path.

For Example:

Instead of
B:\SalesOps\AccessDatabase.accdb

I would use
\\skuspldc03\data\SalesOps\AccessDatabase.accdb