<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
Private Sub Command_Kalk_Click()
On Error GoTo Err_Command_Kalk_Click

 If IsNull([txtKomada]) Or [txtKomada] = 0 Then
        MsgBox "Niste upisali broj komada", vbCritical, "Nedostaju podaci"
        Me![txtKomada].SetFocus
        'GoTo Kraj
    End If
    CurrentDb.Execute "DELETE*FROM [ZbirnikKonacni]"

DoCmd.Hourglass True

             '-----------------------------------------------------------
      Call Shema  'Poziva se Funkcija SHEMA u Deklaracijama
             '------------------------------------------------------------
            
                
        DoCmd.OpenQuery "ZbirnikQryApp", acNormal, acEdit     'Kopiranje iz ZbirnikQry u tablicu ZbirnikKonacni
        DoCmd.OpenQuery "ZbirnikPNDQryApp", acNormal, acEdit  'Kopiranje iz ZbirnikPNDQry u tablicu ZbirnikKonacni
        DoCmd.OpenQuery "ZbirnikStrojPNDQryApp", acNormal, acEdit
                
   
DoCmd.Hourglass False
Exit_Comma