Export table to Excell? 1

[jtfrier]

I have a table that I need exported to excell but I only want the information for a one year I have a date field in the table but when I try to filter the year */*/year It does not work. I also need to know how to export it to excell. Im using a button to open up excell her is the code that was auto generated. I was wanteing to have the user enter in a year and the the excell doc popup with the info for the year

Private Sub cmbExcell_Click()
On Error GoTo Err_cmbExcell_Click

    Dim oApp As Object

    Set oApp = CreateObject("Excel.Application")
    oApp.Visible = True
    'Only XL 97 supports UserControl Property
    On Error Resume Next
    oApp.UserControl = True

Exit_cmbExcell_Click:
    Exit Sub

Err_cmbExcell_Click:
    MsgBox Err.Description
    Resume Exit_cmbExcell_Click
    
End Sub

 

[AlexMidd]

How exacty are you filtering the year for the query?

Have fun! )

Alex Middleton

 

[jtfrier]

all i did was put in =*/*/2006

 

[AlexMidd]

Sorry, where did you put that criterion? Is this being run off an access query or SQL in code? Normally the criterion would look something like:

SELECT [Fields] FROM [Tables] 
WHERE Year([DateField]) = 2006

Have fun! )

Alex Middleton

 

[jtfrier]

It worked.Thanks for the help.