Prikazi cijelu temu 15.03.2012 15:58
Dado Van mreze
Clan
Registrovan od:27.10.2011
Lokacija:Doboj


Predmet:Re: Pregled stanja
Da ne otvaram novu temu evo jos jedan problemci koji mi se javlja. Naime kod ekporta podataka u excel javlja mi poruku da imam prvise redaka za izvoz a da je izvoz limitiran. da li je limit postavljen u excelu ili u accessu. Ja npr. imam preko 17000 redaka, a evo dole nize kod za eksport:

Private Sub cmdExcel_Click()
On Error GoTo cmdExcel_Click_Err
Dim directory As String
Dim DB As Database
Set DB = CurrentDb
directory = getpath(DB.Name)
If FileExists(directory & "\Dokumentacija\Stanje*.xls") Then Kill directory & "\Dokumentacija\Stanje*.xls"

DoCmd.OutputTo acForm, "frmStanje", "MicrosoftExcel(*.xls)", directory & "\Dokumentacija\Stanje.xls", True, "", 0

cmdExcel_Click_Exit:
Exit Sub

cmdExcel_Click_Err:
MsgBox Error$
Resume cmdExcel_Click_Exit
End Sub
Pozdrav!