Prikazi cijelu temu 30.06.2015 20:55
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Prebacivanje sa access forme u excel.
PreuzmiIzvorni kôd (Visual Basic):
  1. Dim OutputF As String
  2. Dim SQL As String
  3. Dim QDF As QueryDef
  4. Dim Db As Database
  5. Dim ImeFajla As String
  6.  
  7. Set Db = CurrentDb
  8. Set QDF = Db.QueryDefs("QExport")
  9. SQL = Me.RecordSource
  10. QDF.SQL = SQL
  11. ImeFajla = Format(Date, "yyyyMMdd") & ".xls"
  12. OutputF = FindDatabase(CurrentProject.Path, ImeFajla)
  13. 'Ovo je samo izmijenjeno
  14. If OutputF <> "" Then
  15. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "QExport", OutputF, True
  16. 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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.