Filter records in table based from an item from Combox box

[corinereyes]

Hi Guys,

Can someone please help me figure out how to filter records from a table based from a selected item in a combo box and export the results to excel. I have started this code and im so lost.

Thank you in advance.

Regards,
Corine

Private Sub cmdSaveRecords_Click()
Dim StrSQL As String
Dim qdf As QueryDef

'On Error GoTo Err_cmdSaveRecords_Click

StrSQL = "SELECT * FROM [QueryResults] WHERE [QueryResults].[Contract type] Not like *NON MEDICAL*"


If MsgBox("Do you want to save the current records?", vbOKCancel) = vbOK Then
    DoCmd.TransferSpreadsheet acExport, , "QueryResults", "\\kfafhstore\DEPTS\PERSONNEL\CORINE\EVALUATION PROJECT\B Database file\Test1.xlsx", True
    MsgBox "Records sucessfully save.", vbInformation, "Save Records"
End If


Exit_cmdSaveRecords_Click:
    Exit Sub

'Err_cmdSaveRecords_Click:
    'MsgBox Err.Description
    'Resume Exit_cmdSaveRecords_Click

End Sub

 

[theDBguy]

Hi Corine. Welcome to the forum. You can create a query with a form reference in the criteria and then use TransferSpreadsheet on said query.

 

[corinereyes]

Hi Corine. Welcome to the forum. You can create a query with a form reference in the criteria and then use TransferSpreadsheet on said query.

Hi DBguy,

Thank you

Can you please just show me how to start on it? maybe a sample code?

 

[corinereyes]

Hi Again DBGuy,

From your suggestion i think i figure it out i will get back if i will encounter some problems

Thank you!

 

[theDBguy]

Hi Again DBGuy,

From your suggestion i think i figure it out i will get back if i will encounter some problems

Thank you!

Hi. Glad to hear you made some progress. Let us know if you get stuck. Good luck!