Referencing listbox value in export code

[BeachBummin]

Hello,

I have a listbox populated with a series of queries. I am trying to write code so the user selects the query from the list and clicks and export command button.

Private Sub cmdExport_Click()
Dim strQuerySelect As String
Dim lstQueryBox As ListBox

strQuerySelect = lstQueryList.Value

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, strQuerySelect, "C:\Documents and Settings\RCEA Intern\Desktop\February.xlsx"
End Sub

[ADezii]

You can accomplish this in two Lines of Code, namely:

If IsNull(Me![lstQueryList]) Then Exit Sub

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, Me![lstQueryList], _
                          "C:\Documents and Settings\RCEA Intern\Desktop\February.xlsx"