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_Command_Kalk_Click:
    Exit Sub

Err_Command_Kalk_Click:
    MsgBox Err.Description
    Resume Exit_Command_Kalk_Click
DoCmd.Hourglass False
End Sub