Prikazi cijelu temu 26.01.2015 13:05
pmiroslav Van mreze
Clan
Registrovan od:02.02.2009
Lokacija:Osijek


Predmet:Re: Baza za evidenciju korisnika
Citiraj Dado:
i da kada selektujem nekog korisnika na listboxu List30 klikom na dugme otvorim njegovu karticu pomoci i otprintam je. Ja bih pripremio reports.
To već imaÅ¡. Selektiraj korisnika i pritisni dugme PRIKAŽI KORISNIKA.

Za export u excel na formi za pretraživanje napravi dugme koje ćeÅ¡ nazvati cmdExportToExcel i ispod njega kopiraj slijedeći kod
PreuzmiIzvorni kôd (vbnet):
  1. Private Sub cmdExportToExcel_Click()
  2. On Error GoTo ErrorHandler
  3.  
  4. Dim strTable As String
  5. Dim strWorksheetPath As String
  6.  
  7. strWorksheetPath = "C:\Korisnici\"  'Ovdje napiÅ¡i gdje da se sprema Excell datoteka
  8. strWorksheetPath = strWorksheetPath & "korisnici.xls"
  9. strTable = "qryPretrazivanjeAsc"
  10. DoCmd.TransferSpreadsheet transfertype:=acExport, _
  11. spreadsheettype:=acSpreadsheetTypeExcel9, _
  12. TableName:=strTable, _
  13. filename:=strWorksheetPath, _
  14. HasFieldNames:=True
  15.  
  16. ErrorHandlerExit:
  17. Exit Sub
  18. ErrorHandler:
  19. MsgBox "Greška br: " & Err.Number _
  20. & "; Opis: " & Err.Description
  21. Resume ErrorHandlerExit
  22.  
  23. End Sub
Pozdrav