Private Sub Workbook_Open()
     Dim db As database
     Dim Rs As Recordset
     Dim Vork As Worksheet
     Dim SQL As String
     Dim Putanja As String
     Dim ImePrije As String
     Dim I As Integer
     Dim Brojac As Integer
     Dim Izmjena As String
     Dim R
     
     Putanja = Me.Path & "\Du.mdb"
     Set db = OpenDatabase(Putanja)
     Izmjena = db.Transactions
     SQL = "SELECT ImePrezime,VrstaPoslova,GrupaPosla,NazivPosla, " _
          & "SumBrojUnosa, Unos_u_proc " _
          & "FROM podaci " _
          & "ORDER BY podaci.ImePrezime"
     Set Rs = db.OpenRecordset(SQL)
     Izmjena = Rs.RecordCount
     Set Vork = Me.Worksheets("a")
     If Vork.Cells(1, 1) = Izmjena Then
        R = MsgBox("Nema izmjena" & vbCrLf & "Hes li ponovo u
itaiti", vbYesNo + _
        vbExclamation + vbApplicationModal + vbDefaultButton2, "Napomena")
        Select Case R
        Case vbYes:
         GoTo Start
        Case vbNo:
         GoTo Kraj:
        End Select
     Else
Start:
     Vork.Cells(1, 1) = Izmjena
     End If
     
     Application.DisplayAlerts = 0
     For Each Vork In ThisWorkbook.Worksheets
     If Vork.Name <> "a" Then
     Vork.Delete
     End If
     Next Vork
     Brojac = 1
     Do While Not Rs.EOF()
     Brojac = Brojac + 1
       If ImePrije <> Rs!ImePrezime Then
         Set Vork = Sheets.Add
         Vork.Name = Rs!ImePrezime
         Vork.Cells(1, 1) = "Vrsta posla"
         Vork.Cells(1, 2) = "Grpa Posla"
         Vork.Cells(1, 3) = "Naziv Posla"
         Vork.Cells(1, 4) = "Broj Unosa"
         Vork.Cells(1, 5) = "Procenat Unosa"
         Brojac = 2
       End If
       For I = 1 To 5
       Vork.Cells(Brojac, I) = Rs.Fields(I)
       Next I
       
     ImePrije = Rs!ImePrezime
     Rs.MoveNext
     Loop
  Application.DisplayAlerts = 1
Kraj:
 Set db = Nothing
 Set Rs = Nothing
  End Sub