Private Sub cmdExportToExcel_Click()
On Error GoTo ErrorHandler

Dim strTable As String
Dim strWorksheetPath As String

strWorksheetPath = "C:\Korisnici\"  'Ovdje napiši gdje da se sprema Excell datoteka
strWorksheetPath = strWorksheetPath & "korisnici.xls"
strTable = "qryPretrazivanjeAsc"
DoCmd.TransferSpreadsheet transfertype:=acExport, _
spreadsheettype:=acSpreadsheetTypeExcel9, _
TableName:=strTable, _
filename:=strWorksheetPath, _
HasFieldNames:=True

ErrorHandlerExit:
Exit Sub
ErrorHandler:
MsgBox "Greška br: " & Err.Number _
& "; Opis: " & Err.Description
Resume ErrorHandlerExit

End Sub