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):Private Sub cmdExportToExcel_Click()
On Error GoTo ErrorHandler
Dim strTable As String
Dim strWorksheetPath As String
strWorksheetPath = "C:\Korisnici\" 'Ovdje napiši gdje da se sprema Excell datoteka
strWorksheetPath = strWorksheetPath & "korisnici.xls"
strTable = "qryPretrazivanjeAsc"
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
Pozdrav