Predmet:Re: Import - zabrana

---

'Private Sub Command79_Click()
'On Error GoTo Err_Command79_Click
'
' On Error GoTo ErrorHandler
'
'Dim strTable As String
'Dim strWorksheetPath As String
'
'strWorksheetPath = "C:\izvjestaj-" 'Ovdje napiši gdje da se sprema Excell datoteka
'strWorksheetPath = strWorksheetPath & "korisnici.xls"
'strTable = "qryclanovi"
'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
ovaj dio koda ti nema vezu ne postoji dugme command79 kad ga blokiraš
napravi se mde fajl
Pozdrav