Predmet:Re: Prebacivanje sa access forme u excel.
PreuzmiIzvorni kôd (Visual Basic):Dim OutputF As String
Dim SQL As String
Dim QDF As QueryDef
Dim Db As Database
Dim ImeFajla As String
Set Db = CurrentDb
Set QDF = Db.QueryDefs("QExport")
SQL = Me.RecordSource
QDF.SQL = SQL
ImeFajla = Format(Date, "yyyyMMdd") & ".xls"
OutputF = FindDatabase(CurrentProject.Path, ImeFajla)
'Ovo je samo izmijenjeno
If OutputF <> "" Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "QExport", OutputF, True
End If
evo sad se nece nista javljati.
E sad neznam dali ti hoces da se i prozor ne otvara.
rekao si prije da hoces da se otvori prozor i da te pita gdje ces zapisati.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.